arrays - VBA 数组逆运算

Question

我正在尝试在 Excel VBA 中从方阵数组中的电子表格中获取一些值，反转该数组。我有以下代码:

Private Sub CommandButton1_Click()
Dim A As Variant
Dim i As Integer, j As Integer
ReDim A(1 To 3, 1 To 3) As Double

For i = 1 To 3
    For j = 1 To 3
        A(i, j) = Cells(i, j).Value      
    Next j
Next i

A = Application.WorksheetFunction.MInverse(A)

End Sub

行中:

A = Application.WorksheetFunction.MInverse(A)

我收到错误:

run-time error 1004: application defined or object defined error

有人可以帮助我吗？

Answer 1

尝试使用下面的代码从单元格 A1 读取 3×3 数组，并在单元格 A5 上写入逆数组。

Private Sub CommandButton1_Click()
    Dim A() as Variant, B() as Variant
    A = Range("A1").Resize(3,3).Value
    B = WorksheetFunctions.MMinverse(A)
    Range("A5").Resize(3,3).Value = B
End Sub

不需要循环遍历每个单元格，这是一个缓慢的操作。使用 Range().Resize().Value 语法，通过一个命令读取和写入整个表。