谢谢您，单用“1-”后面indirect公式，可以直接出来abc，但是加上"1-"之后，显示"value!"。我把a换成数字试了试，可以直接运算。谢谢您。

上传完整的模拟数据 最好

已上传，谢谢您。

Sub TriMatrix()
    Dim i As Long, j As Long
    Dim arr As Variant
    Application.ScreenUpdating = False
    arr = ActiveSheet.UsedRange.Value
    For i = 2 To UBound(arr, 1) Step 1
        For j = 2 To UBound(arr, 2) Step 1
            If i = j Then
                arr(i, j) = 1
            ElseIf i < j Then
                arr(i, j) = 1 - arr(j, i)
            'Else
                'arr(i, j) = arr(j, i)
            End If
        Next j
    Next i
    arr(1, 1) = Cells(1, 1).Value
    Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    Application.ScreenUpdating = True
    MsgBox "ok!"
End Sub