如何实现同一行重复字母变色

wujiuzhi

请教一下，假如在C3到J3这几个单元格里出现重复的字母，例如C3单元格是AB，然后在J3输入AC，或者其他重复该如何让设置使它变色？

teweis

选择C3到J3 -> 菜单 条件格式-> 新建规则 -> 有一个关于唯一或重复的规则 -> 选择 重复 -> 设置格式

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Application.Intersect(Target, [c3:j3]) Is Nothing Then Exit Sub
   
4. [c3:j3].Interior.Pattern = xlNone
   
5. Dim i&, j&, d As Object, s$, c, n&, arr
   
6. n = 2
   
7. Set d = CreateObject("scripting.dictionary")
   
8. For i = 3 To 10
   
9.   s = Cells(3, i)
   
10.   For j = 1 To Len(s)
    
11.     d(Mid(s, j, 1)) = d(Mid(s, j, 1)) & "," & i
    
12.   Next j
    
13. Next i
    
14. For Each c In d.items
    
15.   arr = Split(c, ",")
    
16.   If UBound(arr) > 1 Then
    
17.     n = n + 1
    
18.     For i = 1 To UBound(arr)
    
19.       Cells(3, Val(arr(i))).Interior.ColorIndex = n
    
20.     Next i
    
21.   End If
    
22. Next c
    
23. End Sub

复制代码