乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何用VBA实现查找特定的字符串并将该单元格变色-excel查找字符串,excel查找返回包含字符串

如何用VBA实现查找特定的字符串并将该单元格变色-excel查找字符串,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、然后进行保存,点击运行就完成了。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网