如何使用VBA循环目标向下搜索列

Question

我是这个网站的新手，并且是VBA的新手。我有一个与寻求目标有关的问题。

我需要多次在VBA中使用目标搜索。这是我的Excel工作表示例：

我需要通过更改I（硬编码）中的像元，将F（与另一张纸相连的公式）中的像元设置为0。我有执行此操作的基本代码，但是我想弄清楚如何告诉Excel“嘿，为列中的每个单元格循环执行此操作”。我不想在VBA中多次手动输入此命令。这是我实际上在VBA中拥有的东西。

cookie_store

感谢您的帮助。

Answer 1

也许像这样：

Sub Goal_Seek()
    Dim lastRow As Long, i As Long

    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "F").End(xlUp).Row

        For i = 7 To lastRow
            .Range("F" & i).GoalSeek Goal:=0, ChangingCell:=.Range("I" & i)
        Next i
    End With
End Sub