使用宏运行许多单变量回归

Question

运行整个excel文件，但是现在它仅在第一次循环时有效，但是随后我不断收到通知，指出即使退出循环，列中也没有数据。列中的数据。

试图弄清楚如何锁定我希望回归处理的一列，但我无法锁定列。

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"), _
                 .Range(.Cells(3, i), .Cells(134, i)), False, False, , "", False, False, _
                 False, True, , False

        Next i
    End With

End Sub

我希望它对一列带有变量的列进行回归，所有这些都针对一个列。本质上，我希望该宏针对同一列信息创建一堆单变量回归。