矩阵乘法抛出下标超出范围错误

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