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

china047 · 发表于 2024-9-24 08:17

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

ykcbf1100 · 发表于 2024-9-24 08:42

本帖最后由 ykcbf1100 于 2024-9-24 08:43 编辑

附件供参考。。。

ykcbf1100 · 发表于 2024-9-24 08:44

参与一下。。。

demonimissyou · 发表于 2024-9-24 17:23

参与一下

limonet · 发表于 2024-9-24 18:03

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 · 发表于 2024-9-24 18:05

关键字：取巧

china047 · 发表于 2024-9-26 17:34

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

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

		自动登录	找回密码
密码			免费注册

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