用EXCEL的VBA编程序(宏)。
例如,A1到A10格中有的格内的内容含有“abcd”字符串,有个格子内没有含,那么下面的程序能够把“abcd”字符串涂成红色,其他颜色不变。可以试一试。
Sub Macro1()
Dim iRow As Long, iPosition As Long
For iRow = 1 To 10
iPosition = InStr(1, Cells(iRow, 1).Value, "abcd")
If iPosition > 0 Then
With Cells(iRow, 1).Characters(Start:=iPosition, Length:=4).Font
.ColorIndex = 3
End With
End If
Next iRow
End Sub