请教怎样批量改变多个单元格中部分指定文字的颜色

foreverwatson

A列中，很多单元格都包含“理想”这个词，我想把所有的“理想”都改成红色字体，但其他文字的颜色不变，请问用vba怎样实现，谢谢！

lcluck2002

ykcbf1100

标色。。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.9.19
   
2.     stt = "理想"
   
3.     With Sheets("Sheet1")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         .UsedRange.Offset(2).Font.ColorIndex = 0
   
6.         For i = 3 To r
   
7.             Set rng = .Cells(i, 1)
   
8.             st = rng.Value
   
9.             bs stt, rng, 3
   
10.         Next
    
11.     End With
    
12. End Sub

复制代码

usedrange

1. Sub tt()
   
2.     Dim m%, na$, i%, b%
   
3.     m = [a3].End(4).Row
   
4.     na = "理想": b = 0
   
5.     [a3].Resize(m, 1).Font.Color = none
   
6.     For i = 3 To m
   
7.         b = InStr(Cells(i, 1), na)
   
8.         If b Then
   
9.             Cells(i, 1).Characters(b, 2).Font.ColorIndex = 3
   
10.         End If
    
11.     Next i
    
12. End Sub

复制代码