excel - VBA:完成矩阵

Question

我有一个 3 x 3 矩阵，其中给出了元素 (1,1)、(2,1)、(2,2)、(3,1)、(3,2)、(3,3):

X   .   .
X   X   .
X   X   X

我需要编写一个写出缺失元素的程序，其中 (1,2)=(2,1)、(1,3)=(3,1) 和 (2,3)=(3,2)。我写了以下代码:

Function kiegeszito(a)
    For i = 1 To 3
        For j = 1 To 3
            If i < j Then
                a(i, j) = a(j, i)
            Else        
                a(i, j) = a(i, j)
            End If
        Next j
    Next i

    kiegeszito = a
End Function

但是，这似乎不起作用，任何人都可以帮助我为什么这不起作用？

Answer 1

只需删除 Else健康)状况:

Function kiegeszito(a)
    For i = 1 To 3
        For j = 1 To 3
            If i < j Then a(i, j) = a(j, i)
        Next j
    Next i

    kiegeszito = a
End Function