Ma trận trong VBA

[Phanvuhaiduong]

Bạn chạy thử với 5 lần tính xem kết quả của bạn & của tôi có giống nhau hay không.

Bài đã được tự động gộp: 4/12/19

Code Vòng lặp

Sub Super_Mmult()
Dim Arr0
Dim Arr1
Dim Arr01
Dim rws, cls
Dim i, j, k, m
m = 2
With Sheet1
    Arr0 = .Range("A1").CurrentRegion
    Arr01 = .Range("F1").CurrentRegion
    rws = UBound(Arr0)
    cls = UBound(Arr0, 2)
    For k = 1 To m
        Arr1 = Arr01
        For i = 1 To rws
            Arr01(i, 1) = 0
            For j = 1 To cls
                Arr01(i, 1) = Arr01(i, 1) + Arr0(i, j) * Arr1(j, 1)
            Next j
        Next i
    Next k
    .Range("H1").Resize(UBound(Arr0), 1) = Arr01
End With
End Sub

vâng anh