矩阵乘法抛出SubScript超出范围错误

Question

前言：在使用立方体数学时，在查看所有各种选项之后，我似乎遇到了当前结构的问题。也许有人愿意指出我在这里缺少的东西？

Private Sub cube3()
    Dim x(0 To 2, 0 To 2) As Single
    Dim y(0 To 2, 0 To 2) As Single
    Dim z(0 To 2, 0 To 2) As Single
    For a = 0 To 2
        For b = 0 To 2
            Count = (Count + 3) / 2 * 1.5
            x(a, b) = Count
            y(a, b) = Count
            z(a, b) = Application.WorksheetFunction.MMult(x, y)(a, b) '****** This is where the issue occurs
            Debug.Print ; x(a, b)
            Debug.Print ; z(a, b)
        Next
    Next
End Sub

Answer 1

在这种情况下，MMULT()不是单向值乘法的方法。

它系统地做了类似于SUMPRODUCT（）的事情。因为它将第一个数组中一行中的每个项目与第二个数组中的每个项目相乘。

变为

有关更好的解释，请参阅HERE。

在此代码中，您将乘以单个值，因此可以使用简单的乘法：

= x(a,b)*y(a, b)

就我的研究发现，将一个数组中的每个值与其第二个数组中的姐妹值相乘，唯一的方法是循环。

您已经在使用最快的方法来执行此操作。通过使用数组而不是工作表范围，即使使用更大的数据集，这仍然会非常快。

如果要使用MMULT（），请先填充两个数组，然后将z声明为变体：

Private Sub cube3()
Dim x(0 To 2, 0 To 2) As Single
Dim y(0 To 2, 0 To 2) As Single
Dim z
For a = 0 To 2
    For b = 0 To 2
        Count = (Count + 3) / 2 * 1.5
        x(a, b) = Count
        y(a, b) = Count

        Debug.Print x(a, b)
        Debug.Print y(a, b)
    Next
Next
 z = Application.WorksheetFunction.MMult(x(), y()) '****** This is where the issue occurs
 Range("A1").Resize(UBound(z, 1), UBound(z, 2)).Value = z
End Sub