每个单元格内重复姓名_字体标红色

ykcbf1100

准提部林 发表于 2023-7-14 14:25
Sub TEST_A1()
Dim X As Range, T$, n%, c1%, c2%
.Font.ColorIndex = 0

老师你的解题思路总是与众不同啊，佩服！

准提部林

再來個...字典三分法//


Xl0000277.rar (13.04 KB, 下载次数: 17)

2023-7-15 08:48 上传

点击文件名下载附件

lizhipei78

gwjkkkkk 发表于 2023-7-14 19:37
参与一下。。。

你的解法最佳

我要注册

ykcbf1100 发表于 2023-7-14 13:30
附件供参考。。。

请问老师这种需求如何设置呢，谢谢！

我要注册

以上求助补上附件!

ykcbf1100

我要注册 发表于 2023-7-19 01:11
以上求助补上附件!

双列标红。。。

yynrzwh

准提部林 发表于 2023-7-14 14:25
Sub TEST_A1()
Dim X As Range, T$, n%, c1%, c2%
.Font.ColorIndex = 0

太强大了，不得不佩服！
学习学

1. Sub bh()
   
2. 
   
3. arr = Sheets(1).UsedRange
   
4. 
   
5. For i = 2 To UBound(arr)
   
6.     a1 = 0: a2 = 0
   
7.     If arr(i, 2) <> "" Then
   
8.        Range("B" & i).Font.ColorIndex = 0
   
9.         s = arr(i, 2)
   
10.         sp = Split(s, "、")
    
11.         For Each x In sp
    
12.             a1 = InStr(s, x)
    
13.             a2 = InStrRev(s, x)
    
14.             If a1 <> a2 Then
    
15.                 Range("B" & i).Characters(a1, Len(x)).Font.ColorIndex = 3
    
16.                 Range("B" & i).Characters(a2, Len(x)).Font.ColorIndex = 3
    
17.             End If
    
18.         Next x
    
19.     End If
    
20. Next i
    
21. End Sub
    

复制代码

习思路

准提部林

yynrzwh 发表于 2023-7-19 10:33
太强大了，不得不佩服！
学习学习思路

INSTR...須注意//
張三/張三郎
李冰/李冰冰
司馬洪文/馬洪/馬洪文/洪文

前後不加分隔符包圍, 很容易弄錯~~

yynrzwh

是的，这是个bug

准提部林

我要注册 发表于 2023-7-19 01:11
以上求助补上附件!

同格內相同標"藍", 與它格相同再標"紅"
Xl0000283.rar (11.78 KB, 下载次数: 8)

2023-7-19 19:23 上传

点击文件名下载附件