Определить позиции несимметричных относительно главной диагонали элементов матрицы порядка NxN

sub t()
  dim a, b%(), n%, nn%, i%, j%
  n=[a1].end(xldown).row
  a=[a1].resize(n,n).value
  redim b(1 to (n^2)\2, 2)
  for i=1 to n-1
      for j=i+1 to n
          if a(i,j)<>a(j,i) then
              nn=nn+1
              b(nn,1)=i
              b(nn,2)=j
          end if
      next
  next
 
  columns(n+2).resize(,2).clearcontents
  if nn then
      redim preserve b(1 to nn, 2)
      cells(1,n+2).resize(nn,2).value=b
  end if
end sub

Option Base 1

ReDim b(1 To (n ^ 2) \ 2, 1 To 2)

Option Base 1
 
Sub t()
  Dim a, b%(), n&, nn&, i&, j&
  n = [a1].End(xlDown).Row
  a = [a1].Resize(n, n).Value
  ReDim b(1 To (n ^ 2) \ 2, 2)
  For i = 1 To n - 1
      For j = i + 1 To n
          If a(i, j) <> a(j, i) Then
              nn = nn + 1
              b(nn, 1) = i
              b(nn, 2) = j
          End If
      Next
  Next
  
  Columns(n + 2).Resize(, 2).ClearContents
  If nn Then
      Cells(1, n + 2).Resize(nn, 2).Value = b
  End If
End Sub