[已解决]请教如何标记出多行中用逗号分隔的重复项，谢谢

honghuzi

类似如下效果，请指教，谢谢

C123,C234,C123

C123,C456

最佳答案

月排行榜 / 总排行榜

金樽空对月

2022-5-10 20:29

假设数据在A列，代码如下：

1. Sub mycolor()
   
2. Dim x%, i%, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For x = 1 To Range("a100000").End(3).Row
   
5.     For i = 1 To Len(Cells(x, 1)) Step 5
   
6.         If d.Exists(Mid(Cells(x, 1), i, 4)) Then
   
7.             Cells(x, 1).Select
   
8.             ActiveCell.Characters(Start:=i, Length:=4).Font.Color = -16776961
   
9.         Else
   
10.             d.Add Mid(Cells(x, 1), i, 4), ""
    
11.         End If
    
12.     Next i
    
13. Next x
    
14. End Sub

复制代码

跳转到最佳答案楼层

金樽空对月

假设数据在A列，代码如下：

1. Sub mycolor()
   
2. Dim x%, i%, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For x = 1 To Range("a100000").End(3).Row
   
5.     For i = 1 To Len(Cells(x, 1)) Step 5
   
6.         If d.Exists(Mid(Cells(x, 1), i, 4)) Then
   
7.             Cells(x, 1).Select
   
8.             ActiveCell.Characters(Start:=i, Length:=4).Font.Color = -16776961
   
9.         Else
   
10.             d.Add Mid(Cells(x, 1), i, 4), ""
    
11.         End If
    
12.     Next i
    
13. Next x
    
14. End Sub

复制代码

honghuzi

金樽空对月 发表于 2022-5-10 20:29
假设数据在A列，代码如下：

感谢感谢

honghuzi

再请教下，数据可能是4位到6位，如C123，C12345，这个应该怎么做呢
谢谢

金樽空对月

honghuzi 发表于 2022-5-11 08:52
再请教下，数据可能是4位到6位，如C123，C12345，这个应该怎么做呢
谢谢

代码如下：

1. Sub mycolor()
   
2. Dim x%, i%, n%, j%, d As Object, ar, str1$, str2$, str3$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For x = 1 To Range("a100000").End(3).Row
   
5.     ar = Split(Cells(x, 1), ",")
   
6.     str2 = Cells(x, 1).Text
   
7.     For i = 0 To UBound(ar)
   
8.         n = InStr(1, str2, ar(i))
   
9.         str1 = Mid(str2, n, Len(ar(i)))
   
10.         For j = 1 To Len(str1)
    
11.             str3 = str3 & "-"
    
12.         Next j
    
13.         If d.exists(str1) = False Then
    
14.             d.Add str1, ""
    
15.         Else
    
16.             Cells(x, 1).Select
    
17.             ActiveCell.Characters(Start:=n, Length:=Len(ar(i))).Font.Color = RGB(255, 0, 0)
    
18.         End If
    
19.         str2 = Replace(str2, str1, str3, 1, 1, 1)
    
20.         str3 = ""
    
21.     Next i
    
22. Next x
    
23. End Sub

复制代码

金樽空对月

金樽空对月 发表于 2022-5-11 17:16
代码如下：

增加一些判断即可，上面代码用于任何位数的字符串，只要格式为逗号隔开的字符串都行。

honghuzi

金樽空对月 发表于 2022-5-11 17:18
增加一些判断即可，上面代码用于任何位数的字符串，只要格式为逗号隔开的字符串都行。

感谢老师