Sub ochiia()
    '变量个数
    v = 9
    '输出的起始行列号
    rOutput = v + 2
    cOutput = 1
    
    For i = 2 To v
        For j = i To v
            Cells(rOutput + i, cOutput + j) = Cells(i, j + 1) / (Sqr(Cells(i, i)) * Sqr(Cells(j + 1, j + 1)))
        Next
    Next
    
    For i = 1 To v
        Cells(rOutput + i + 1, cOutput + i) = 1
    Next
    
    '给另一边赋值
    'Str(rOutput + j) & "," & (cOutput + i)
    rOutput = rOutput + 2
    cOutput = 2
    For i = 1 To v - 1
        For j = 0 To i - 1
            Cells(rOutput + i, cOutput + j) = Cells(rOutput + j, cOutput + i)
        Next
    Next
    

End Sub