Excel 使用宏批量修改单元格内指定文字为红字

->

step 1:新建宏，进入编辑，使用如下代码：

Sub Ss()
Dim c As Range
For Each c In ActiveSheet.UsedRange
i = 1
While InStr(i, c, "木木", 0) > 0
i0 = InStr(i, c, "木木", 0)
If i0 > 0 Then c.Characters(i0, 2).Font.Color = vbRed: i = i0 + 2
Wend
Next
End Sub

step 2:运行宏。

 

转载于:https://www.cnblogs.com/shadrach/p/5899968.html