Поиск макроса по столбцам

Question

Недавно я спросил, как написать макрос, который будет циклически искать цели, когда он организован в строках. Теперь я хочу циклически искать цели по столбцам.Пока у меня есть следующий код:

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

    With ActiveSheet
        lastcol = .Cells(.Columns.Count, "4").End(xlToLeft).Column

        For i = K To lastcol
            .Range(i & "4").GoalSeek Goal:=0, ChangingCell:=.Range(i & "4")
        Next i
    End With
End Sub

Вот мой Excel.

Я хочу установить «дисперсию» равной нулю, изменив K4.Затем я хочу, чтобы макрос переместился на один столбец вправо и продолжал поиск цели до конца.

Answer 1

i должно быть Long, а не буквой, и использовать Cells вместо Range.Обратите внимание, что 1-й аргумент Cells является индексом строки, а 2-й является индексом столбца.

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

    With ActiveSheet
        lastcol = .Cells(4, .Columns.Count).End(xlToLeft).Column

        For i = 11 To lastcol
            .Cells(6, i).GoalSeek Goal:=0, ChangingCell:=.Cells(4, i)
        Next i
    End With
End Sub