VBA目标寻求多行

Question

这应该很简单我只是无法绕过它

我有3列

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

范围（“B3”）。GoalSeek目标：= 0，ChangingCell：=范围（“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。