如何用VBA对比A,B两列的字符串,并标涂差异字符串颜色

china047

DevilW 发表于 2024-9-23 17:54
正则 Execute 方法练习一遍，先加工排列下数据，分组一捕获相同名字，分组二捕获剩余名字，直接读取分组二 ...

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

demonimissyou

参与一下

limonet

Sub limonet()
    Dim i%
    For i = 2 To 12
        If Cells(i, "A") <> Cells(i, "B") Then
            If Len(Cells(i, "A")) > Len(Cells(i, "B")) Then
                Cells(i, "A").Characters(Len(Cells(i, "B")) - 1, 3).Font.Color = vbRed
                Cells(i, "B").Characters(Len(Cells(i, "B")) - 1, 1).Font.Color = vbRed
            Else
                Cells(i, "A").Characters(Len(Cells(i, "A")) - 1, 1).Font.Color = vbRed
                Cells(i, "B").Characters(Len(Cells(i, "A")) - 1, 3).Font.Color = vbRed
            End If
        End If
    Next i
End Sub

limonet

关键字：取巧

china047

DevilW 发表于 2024-9-23 17:54
正则 Execute 方法练习一遍，先加工排列下数据，分组一捕获相同名字，分组二捕获剩余名字，直接读取分组二 ...

正则代码简洁,就是有点不好理解那些字符串