矩阵乘法将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()的事情。因为它将第一个数组中一行中的每个项与第二个数组中的列中的每个项相乘。

​

​

化作

​

​

有关更好的解释，请参见这里。

在这段代码中，您要将单个值相乘，因此一个简单的乘法可以工作：

= 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