VBA:如何创建一个新的数组来显示另一个数组中每列的计算平均值？

Dim originalArray As Variant
originalArray = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9))

Dim numColumns As Integer
Dim numRows As Integer

numColumns = UBound(originalArray, 2) + 1
numRows = UBound(originalArray) - LBound(originalArray) + 1

Dim averageArray As Variant
ReDim averageArray(0 To numColumns - 1)

Dim i As Integer
Dim j As Integer
Dim sum As Double

For j = 0 To numColumns - 1
    sum = 0
    
    For i = 0 To numRows - 1
        sum = sum + originalArray(i)(j)
    Next i
    
    averageArray(j) = sum / numRows
Next j

For j = 0 To numColumns - 1
    Debug.Print "第 " & (j + 1) & " 列的平均值为: " & averageArray(j)
Next j