给重复的字符着色

ww0000

Book2.rar (7.93 KB, 下载次数: 30)

2017-4-14 14:52 上传

点击文件名下载附件


B列要达到C列的效果，谢谢

Excel学徒123

什么鬼东西

大灰狼1976

你的意思是修改字体颜色？规则跟前面的贴子一样吗？
那么由于keyword规则问题，结果还会是错的。
做可以做，我有时间的话试试。

大灰狼1976

看你的示例是重复两个字符以上标色，不是只要两个字符了？
另，字符颜色怎么设定，需要给个规律，不然不好做循环。

ww0000

重复两个字符以上，字符颜色随机

大灰狼1976

代码说明如下，加了stop语句是为了方便你确认每一次循环的结果。

1. Private Sub CommandButton1_Click()
   
2. Dim i&, j&, k&, l&, r&, s$, s1$, n&, m&, b As Boolean
   
3. r = [b65536].End(3).Row
   
4. n = 3
   
5. For i = 2 To r - 1
   
6.   s = Cells(i, 2)
   
7.   For k = i + 1 To r
   
8.     s1 = Cells(k, 2)
   
9.     For j = 1 To Len(s) - 1
   
10.       m = InStr(s1, Mid(s, j, 2))
    
11.       If m Then
    
12.         b = True
    
13.         Cells(i, 2).Characters(j, 2).Font.ColorIndex = n
    
14.         Cells(k, 2).Characters(m, 2).Font.ColorIndex = n
    
15.       End If
    
16.     Next j
    
17.   Next k
    
18.   If b = True Then n = n + 1
    
19.   b = False
    
20.   Stop
    
21. Next i
    
22. End Sub

复制代码

ww0000

大灰狼1976 发表于 2017-4-20 16:11
代码说明如下，加了stop语句是为了方便你确认每一次循环的结果。

结果不对，颜色较乱

大灰狼1976

所以要用stop让你看一下每个循环有没有问题，结果有问题是由于从已经标色的单元格向下判断时，会重新着色，而要解决这一点的话，要判断每个字符有没有字体颜色（不是整个单元格），有颜色的话跳过，这是个大工程。

大灰狼1976

再举个例子：
张三
三丰
张三丰
判断张三后的结果
张三
三丰
张三丰
再次判断三丰时的结果
张三
三丰
张三丰

明白了吗。

ww0000

大灰狼1976 发表于 2017-4-20 17:18
再举个例子：
张三
三丰

噢，看来是这个道理！