用颜色标注单元格数字变化

msw2395

如图表所示，根据隔列右下斜单元格数字+1，用颜色标注单元格相同数字。比如D4单元格399+1=400，就把B3单元格数字400用红色标注出来。请老师们帮助解答一下，谢谢 ！！

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    With CreateObject("vbscript.regexp")
        .Pattern = "\d+"
        .Global = True
        For j = 8 To 4 Step -1
            For i = 8 To 4 Step -2
                If .test(Cells(j, i)) Then
                    d.RemoveAll
                    For Each m In .Execute(Cells(j, i))
                        d(Val(m) + 1) = ""
                    Next m
                    Set Rng = Cells(j - 1, i - 2)
                    If .test(Rng) Then
                        For Each m In .Execute(Rng)
                            If d.exists(Val(m)) Then
                                Rng.Characters(m.firstindex + 1, m.Length).Font.ColorIndex = 3
                            End If
                        Next m
                    End If
                End If
            Next i
        Next j
    End With
End Sub

liulang0808

附件内容供参考

msw2395

liulang0808 发表于 2024-3-28 14:14
附件内容供参考

非常感谢liulang0808老师解答！！但如何向右扩展呢，还请老师告知，谢谢！！

liulang0808

For j = 8 To 4 Step -1   这个红色数字对应有数据部分的最大行号
            For i = 8 To 4 Step -2 这个红色数字对应有数据的最大列号
根据需求修改就可以了

msw2395

liulang0808 发表于 2024-3-28 16:49
For j = 8 To 4 Step -1   这个红色数字对应有数据部分的最大行号
            For i = 8 To 4 Step -2 这 ...

可以了，谢谢老师的耐心解答