excel - VBA 目标寻求多行

Question

这应该很简单，我只是无法理解它

我有 3 列

ABC 如果 A 中有数据，我想在 B 和 C 上运行目标搜索

Range("B3").GoalSeek 目标：=0，ChangingCell:=Range("C3")

我想要类似的东西：

  If CellA>0:
     Range("D1").GoalSeek Goal:=0, ChangingCell:=Range("C1")

如果这有什么不同的话，这可能是大约 7000 行的价值

Answer 1

试试这个：

Dim rCell As Range

For Each rCell In ActiveSheet.UsedRange.Resize(, 1)
    If rCell.Value <> "" Then
        rCell.Offset(, 3).GoalSeek Goal:=0, ChangingCell:=rCell.Offset(, 2)
    End If
Next rCell

此代码示例基于您上面的最后一条评论。它将更改 C 列中的单元格以在 D 列的公式中给出 0。