如何使用VBA循環目標向下搜索列

Question

我是這個網站的新手，也是VBA的新手。 我有一個與目標尋求有關的問題。

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

我需要通過更改I（硬編碼）中的單元格來將F（與另一個工作表鏈接的公式）中的單元格設置為0。 我有執行此操作的基本代碼，但是我想弄清楚如何告訴Excel“嘿，為列中的每個單元格循環執行此操作”。 我不想在VBA中多次手動輸入此命令。 這是我實際上在VBA中擁有的東西。

Sub Goal_Seek()
'
' Goal_Seek Macro

    Range("F7").Select
    Range("F7").GoalSeek Goal:=0, ChangingCell:=Range("I7")
    Range("F8").Select
    Range("F8").GoalSeek Goal:=0, ChangingCell:=Range("I8")
     Range("F9").Select
    Range("F9").GoalSeek Goal:=0, ChangingCell:=Range("I9")
     Range("F10").Select
    Range("F10").GoalSeek Goal:=0, ChangingCell:=Range("I10")
     Range("F11").Select
    Range("F11").GoalSeek Goal:=0, ChangingCell:=Range("I11")
End Sub

任何幫助表示贊賞。

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