Как использовать VBA для циклического поиска по столбцам

Question

Я новичок в этом сайте и совершенно новый для VBA.У меня есть вопрос, связанный с поиском цели.

Мне нужно несколько раз использовать поиск цели в VBA.Вот пример моего листа Excel:

Мне нужно установить ячейки в 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