遍历列以运行回归

Question

我正在尝试运行一个遍历不同列的宏，以对一个常量列H列运行具有不同变量的回归。但是我不知道如何在宏的记录部分中表达它，即回归位，以便循环通过。关于如何合并for循环，以便我可以拥有1个常量列和1个可更改的列的任何想法？

谢谢！

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的任何其他引用，以减少冗余。