VBAfilter和循环回归

我正在尝试多次运行回归，并将某些输出（Intercept＆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