Есть ли у матриц A и B одинаковые строки? помогите пожалуйста! очень надо! в VBA

Sub PoiskOdinakovihStrok()
' количество строк и столбцов должен вводить пользвоатель (здесь только как пример)
' по количеству столбцов матрицы одинаковые (это как я понимаю)
kolvoStrA = 10 ' количесвто строк в A
kolvoStrB = 15 ' количесвто строк в B
kolvoStolbA = 20 ' количесвто столбцов в A
kolvoStolbB = kolvoStolbA ' количесвто столбцов в B
' задаем матрицы, через двумерные массивы. В скобочках количество элементов по строкам и по столбцам
Dim StrokiSovpali As Boolean ' строки совпали
ReDim MatrixA(kolvoStrA, kolvoStolbA) As Integer ' тут вместо Integer тип твоих данных, можно не указывать, тогда будет Variant
ReDim MatrixB(kolvoStrB, kolvoStolbB) As Integer ' тут вместо Integer тип твоих данных, можно не указывать, тогда будет Variant
' в этом месте надо инициализировать массивы, вобщем запихнуть данными
' мне лень это сейчас делать

' для кажджого элемента из строки в матрице А сравниваем такойже по порядку элемент в каждой строке из B
For nstrA = 1 To kolvoStrA
For nstrB = 1 To kolvoStrA
StrokiSovpali = False ' ставим метку что строки НЕ свопали
For nstolb = 1 To nstolbA
If MatrixA(nstrA, nstolb) = MatrixA(nstrB, nstolb) Then
' если оказалось что все элементы в строке равны. т. е. е добрались до последних и нас не выкинулу из "ифов"
' значит строки совпали
If nstolb = nstrA Then
StrokiSovpali = True
End If

End If
Next
If StrokiSovpali Then
' тут выдаем сообщение или записываем куда надо (например на лист екселя)
MsgBox "Номер совпавшей строки из А = " & nstrA & " с Номером совпавшей строки из B = " & nstrB
End If
Next
Next
End Sub

Необессудь за структурирование, тут табы не различаются

бывает.. .
а что?