VBA:将 1x1 矩阵转换为整数

Question

我有一个来自以下的 1x1 数组:

Dim wbottom As Variant
wbottom = WorksheetFunction.MMult(WorksheetFunction.transpose(e), wtop)

我正在尝试获取数组中的数字。 wbottom(0,0) 和 wbottom(1,1) 给出“下标超出范围”。当我尝试用 MsgBox 打印数字时，ReDim-ming 什么也没给出。我该如何解决？

Answer 1

如果结果矩阵是 1x1，则结果数组是一维的，唯一有效的下标是 1。见下文，其中 A1:E1和 A3:A7分别包含 1x5 和 5x1 矩阵的值(以便乘法产生 1x1 矩阵):

Sub mmultTest()
    Dim v As Variant
    v = WorksheetFunction.MMult(Range("A1:E1"), Range("A3:A7"))
    Debug.Print LBound(v)
    Debug.Print UBound(v)
    Debug.Print v(1)
End Sub

输出如下:

1
1
55