Excel 循环遍历列以运行回归

我试着运行一个循环不同列的宏，对一个常数列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

换线

ActiveSheet.Range（i&“3”：i&“134”）

到

.Range（.Cells（3，i），.Cells（134，i））

---

您还可以在

With

块中删除对

ActiveSheet

的任何其他引用，以减少冗余。

代码现在正在运行，谢谢！但是现在它第一次循环工作，但是我一直收到一个通知，说在它退出循环之前，列中没有任何数据，即使列中有数据。有没有想过为什么会发生这种情况？