如何用VBA实现查找特定的字符串并将该单元格变色-excel查找字符串,excel查找返回包含字符串

代码及注释如下：
Private Sub CommandButton1_Click()
For i = 1 To 100'行数从1循环抄到100
For j = 1 To 100'列数从1到100循环
If InStr(UCase(Cells(i, j).Value), "ABC") Then'先将单元格袭转换为大写，再判断其中是否含有“ABC"字符串百
ActiveSheet.Cells(i, j).Interior.Color = 65535 '如果含有，则将当度前工作表的当前单元格填充底色
End If
Next
Next
End Sub

Sub 宏1()
    a = "abcd"
    b = "hijk"
    Cells.Replace What:=a, Replacement:=b, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

a是被来替换的源内容百

b是替度换上的内容

1、首先打开需要编辑的Excel表格，进入到知编辑的的页面中。

2、然后在弹出来的窗口中，鼠标右键单击工道作表，选择打开“查看代回码”。

3、然后在弹出来的窗口中，点击输入代码：

Sub AAA()

Dim I As Long

For I = 1 To 1000 '行 范围，自己修改

If InStr(Range("A" & I), "invalidstatus") > 0 Then

Range("A" & I).Font.Color = vbRed

End If

Next

End Sub

4、然后进行保存，点击运行就答完成了。