如何使用代码将表格中的字母hot mini small等英文标红

爱你所选0922

附件是一份含有英文的表格，我想将hot 、mini 、small字体标红，该如何写代码的呢？

还希望有大佬能帮忙解答下，谢谢！

tanglf188

先查找出字符的起始和结束位置，用下面的代码标色
[A1].Characters(Start:=1, Length:=4).Font.Color = vbRed

swl4561255

1. Sub test()
   
2. mystr = Array("hot", "mini", "small")
   
3. ar = [A1].End(4).Row
   
4. For i = 1 To ar
   
5.   For j = 0 To 2
   
6.   s = InStr(Range("A" & i), mystr(j))
   
7.    If s > 0 Then
   
8.      Range("A" & i).Characters(s, s + Len(mystr(j)) - 1).Font.ColorIndex = 3
   
9.    End If
   
10.   Next
    
11. Next
    
12. End Sub
    

复制代码

swl4561255

第8 行写错子，改为：

1. Sub test()
   
2. mystr = Array("hot", "mini", "small")
   
3. ar = [A1].End(4).Row
   
4. For i = 1 To ar
   
5.   For j = 0 To 2
   
6.   s = InStr(Range("A" & i), mystr(j))
   
7.    If s > 0 Then
   
8.      Range("A" & i).Characters(s, Len(mystr(j))).Font.ColorIndex = 3
   
9.    End If
   
10.   Next
    
11. Next
    
12. End Sub

复制代码

爱你所选0922

swl4561255 发表于 2024-3-25 18:17
第8 行写错子，改为：

感谢您的回复，谢谢！