Цикл по столбцам для запуска регрессии

Question

Я пытаюсь запустить макрос, который проходит по разным столбцам, чтобы запустить регрессии с разными переменными для одного постоянного столбца, столбца H. Но я не знаю, как сформулировать его в записанной части макроса, регрессиинемного, так что это перебирает.Есть какие-нибудь мысли о том, как включить цикл for, чтобы у меня мог быть один постоянный столбец и один столбец, который изменяется?

Спасибо!

Sub RunRegressions()
'
' RunRegressions Macro
'

'

    Dim lastcol As Long, i As Long

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

        For i = 12 To lastcol

             Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$H$3:$H$134"), _
                 ActiveSheet.Range(i & "3" : i & "134"), False, False, , "", False, False, _
                 False, True, , False

        Next i
    End With



End Sub

Answer 1

Измените строку

ActiveSheet.Range(i & "3" : i & "134")

на

.Range(.Cells(3, i), .Cells(134, i))

Вы также можете добавить любые другие ссылки на ActiveSheet в вашемWith блок для уменьшения избыточности.