如何将表读入数组并使用Excel Data Analysis Toolpak对数组进行回归

Question

我想将两个Excel表读入两个数组，然后使用Excel Data Analysis Toolpak对数组进行回归。我认为下面的代码将多列表读入数组。

Sub MultiColumnTable_To_Array()

Dim myTable As ListObject
Dim myArray As Variant
Dim x As Long

'Set path for Table variable
Set myTable = ActiveSheet.ListObjects("Table1")

'Create Array List from Table
myArray = myTable.DataBodyRange

'Loop through each item in Third Column of Table (displayed in Immediate 
Window [ctrl + g])

For x = LBound(myArray) To UBound(myArray)
Debug.Print myArray(x, 3)
Next x

End Sub

我将使用上面的代码创建两个数组。然后，我想对具有多个因变量的数组和具有一个自变量的数组进行回归。

在数据分析工具库中运行回归函数时，我已经记录了一个宏。

 Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$B$1:$B$41"), _
 ActiveSheet.Range("$C$1:$G$41"), False, True, 95, 
 ActiveSheet.Range("$R$22" _
 ), True, False, False, False, , False

如何在Microsoft Excel 2016中回归两个数组？如何遍历工作簿中的所有表以及具有工作表的工作表，这些工作表的相关变量和独立变量存储在表格中？所有自变量都存储在一个工作表的一张表中，范围从Y1到Y15。我所有的表都具有相同数量的行，但具有不同的列数。我正在尝试使用Excel 2016自动执行回归。