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

china047 · 发表于 2024-9-23 14:44

各位老师:

如何用VBA对比附件A,B两列的字符串,将对方列没有的水果字符涂上颜色(如附件效果)
先谢过老师了!

对比两列字符串差异并标颜色.rar (18.52 KB, 下载次数: 23)

kevinchengcw · 发表于 2024-9-23 15:22

quqiyuan · 发表于 2024-9-23 15:50

参与一下，仅供参考。。。

quqiyuan · 发表于 2024-9-23 15:51

代码如下。。。
Sub test()
arr = [a1].CurrentRegion
[a1].CurrentRegion.Font.Color = 0
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
      brr = Split(arr(i, 1), "，")
      For j = 0 To UBound(brr)
         d(brr(j)) = ""
      Next
      crr = Split(arr(i, 2), "，")
      For j = 0 To UBound(crr)
         dic(crr(j)) = ""
      Next
      For j = 0 To UBound(brr)
         If Not dic.exists(brr(j)) Then Cells(i, 1).Characters(InStr(arr(i, 1), brr(j)), Len(brr(j))).Font.Color = vbRed
      Next
      For j = 0 To UBound(crr)
         If Not d.exists(crr(j)) Then Cells(i, 2).Characters(InStr(arr(i, 2), crr(j)), Len(crr(j))).Font.Color = vbRed
      Next
      d.RemoveAll
      dic.RemoveAll
Next
Set d = Nothing
Set dic = Nothing
Beep
End Sub

quqiyuan · 发表于 2024-9-23 16:03

不用字典也可以，仅供参考。。。

quqiyuan · 发表于 2024-9-23 16:04

代码如下。。。
Sub test1()
arr = [a1].CurrentRegion
[a1].CurrentRegion.Font.Color = 0
For i = 2 To UBound(arr)
      brr = Split(arr(i, 1), "，")
      crr = Split(arr(i, 2), "，")
      For j = 0 To UBound(brr)
         If InStr(arr(i, 2), brr(j)) = 0 Then Cells(i, 1).Characters(InStr(arr(i, 1), brr(j)), Len(brr(j))).Font.Color = vbRed
      Next
      For j = 0 To UBound(crr)
         If InStr(arr(i, 1), crr(j)) = 0 Then Cells(i, 2).Characters(InStr(arr(i, 2), crr(j)), Len(crr(j))).Font.Color = vbRed
      Next
Next
Beep
End Sub

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

quqiyuan 发表于 2024-9-23 16:04
代码如下。。。
Sub test1()
arr = [a1].CurrentRegion

太好了,完美解决

sunya_0529 · 发表于 2024-9-23 17:34

WPS里的JSA练习一下——

微信截图_20240923173247.png

DevilW · 发表于 2024-9-23 17:54

正则 Execute 方法练习一遍，先加工排列下数据，分组一捕获相同名字，分组二捕获剩余名字，直接读取分组二是否有捕获数据，如有就调取该位置 firstindex 和长度 Length 属性对单元格进行染色

对比两列字符串差异并标颜色.rar (16.2 KB, 下载次数: 10)

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

sunya_0529 发表于 2024-9-23 17:34
WPS里的JSA练习一下——

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

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