如何使用代码将D列中的单词“bag”"size"标红的呢？

爱你所选0922

如何使用代码将D列中的单词“bag”"size"标红的呢？

swl4561255

1. Sub test()
   
2. ar = [A1].End(4).Row
   
3. arr = Array("bag", "size")
   
4.   For i = 2 To ar
   
5.      For j = 0 To 1
   
6.        n = InStr(Range("D" & i), arr(j))
   
7.        If n > 0 Then
   
8.           With Range("D" & i).Characters(n, Len(arr(j))).Font
   
9.              .ColorIndex = 3
   
10.              .Bold = True
    
11.           End With
    
12.        End If
    
13.     Next
    
14. Next
    
15. End Sub
    

复制代码

无敌小猪猪

仅供参考！

prome3

无敌小猪猪 发表于 2024-4-2 12:27
仅供参考！

这配色看着不错

爱你所选0922

swl4561255 发表于 2024-4-2 11:39

感谢您的回复，按照您的方法解决了。