сравнение элементов матриц

[Gulnara]

Помогите, пожалуйста, решить задачу.. Необходимо сравнивать элементы матриц(6х6), если матрицы одинаковые, то вывести ее только один раз, и продолжить дальше сравнение...

вот в каком виде выдает матрицы:

Безымянный.jpg

вот фрагмент кода программы, который выдает всевозможные варианты матриц(это остовы графа), но среди них очень много повторяющихся.. как их можно устранить?

Dim A(6, 6), B(6, 6), C(5600), E(6), R(500)
For i = 1 To 6
For j = 1 To 6
A(i, j) = 0
Next j, i
d = 1
A(1, 2) = 2: A(1, 4) = 7: A(2, 5) = 15: A(3, 6) = 9: A(4, 5) = 18: A(4, 6) = 3: A(5, 6) = 2: A(3, 4) = 2
For i = 1 To 6
For j = 1 To 6
Cells(i, j) = A(i, j)
Next j, i
For k = 1 To 8
For m = 1 To 8
For n = 1 To 8
If k = m Then GoTo 30
If k = n Then GoTo 30
If m = n Then GoTo 30
p = 0
For i = 1 To 6
For j = 1 To 6
B(i, j) = A(i, j)
If B(i, j) <> 0 Then p = p + 1
If p = k Then B(i, j) = 0
If p = m Then B(i, j) = 0
If p = n Then B(i, j) = 0
Cells(i + d * 6, j) = B(i, j)
Next j, i
d = d + 1
30 '
Next n, m, k