针对唯一值运行回归

Question

我正在做一个项目，以了解各种因素对我大学课程竞标价格的影响。

为此，我必须针对每个列对单个x变量（教授A，教授B，教授C ......）运行y变量Bids的回归，如下所示。

我已经编写了一些代码来运行所有模块的所有出价的回归，但问题是它必须是特定于mod的，即ACCT101，ACCT102，ACCT103的出价必须一起回归。

我相信这会使用一个超出我深度的脚本字典。欢迎任何帮助!!

DATA：

Example of my Data

当前代码：

Sub RegressionRunner()

Dim rng As Range
Dim column As Range
Dim i As Variant

Set rng = Range("C1:G1")

For Each column In rng.Columns

column.End(xlUp).Select

Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$B$1:$B$40"), _
ActiveSheet.Range(ActiveCell, ActiveCell.End(xlDown)), _
False, True, 95, ActiveSheet.Range("J$1048576").End(xlUp).Offset(3, 0), _
False, False, False, False, , False

Next column

End Sub

谢谢你们！