已知单元格数据，输入其对应的对角线对称数据。如图已知abcd,如何批量输入1-a,1-b等

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，abcd在实际生活中是常数，麻烦各位大神解答疑惑，谢谢。excel上传在附件中。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

关键词：对角线

帮顶。。。。

wangjuju123 发表于 2018-11-1 10:37
帮顶。。。。

谢谢

在B3单元格输入以下公式，然后下拉试一下：
=1-indirect(adress(2,row()))

stocktonc 发表于 2018-11-7 20:41
在B3单元格输入以下公式，然后下拉试一下：
=1-indirect(adress(2,row()))

谢谢您，貌似没成功，我再好好查查这俩函数

18353151352 发表于 2018-11-9 11:17
谢谢您，貌似没成功，我再好好查查这俩函数

不好意思单词拼错了，是address而不是adress。

stocktonc 发表于 2018-11-13 10:27
不好意思单词拼错了，是address而不是adress。

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

上传完整的模拟数据 最好

車樹森 发表于 2018-12-11 13:00
上传完整的模拟数据 最好

已上传，谢谢您。

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