Question

我尝试多次运行回归并将某些输出（Intercept＆amp; Beta）复制到新工作表中。我绝不是VBA程序员，这是我提出的代码。

基本上，我有一个字段（下面代码中的字段6）。我需要对字段6中的每个过滤值进行回归（这是年/季度连接）。

任何帮助都会很棒！

Sub RunRegression() ' ' RunRegression Macro '

'Add for loop to run through different filters
    ActiveSheet.Range("$A$1:$AW$34712").AutoFilter Field:=6, Criteria1:="20044"
     Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$AQ$1:$AQ$30274" _
        ), ActiveSheet.Range("$AF$1:$AF$30274"), False, True, , "Output", False _
        , False, False, False, , False
    Range("B17:B18").Select
    Selection.Copy
    Sheets("Sheet5").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        ActiveCell.Offset(1, 0).Select
        Sheets("Output").Delete
         End Sub

VBA过滤和循环回归

0 个答案: