如何用vba查找包含关键字的所有词，并将有关键字的那一行全部填充为红色？

Question

例如：找 "消费" 关键词 一个单元格里面有：学生消费 老师消费 凡是有“消费”这个关键词 那一行全行填充红色

Answer 1

根据题意，解题如下：

①VBA程序代码：

Sub gjci()

Dim i1, i2, i3, i4, i5

On Error Resume Next '忽略运行过程中可能出现的错误

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1

mysheet1.Range("A2:J10000").Interior.Pattern = xlNone '先将A2:J10000置成无填充

For i1 = 2 To 10000 '从第2行到10000行

 For i2 = 1 To 10 '从第二列到10列

  If mysheet1.Cells(i1, i2) <> "" Then '如果单元格不是空白，则

   i3 = InStr(1, mysheet1.Cells(i1, i2), mysheet1.Cells(1, 4)) '获取关键词所在位置

   If i3 > 0 Then '如果存在关键词，则这一行第1到10列单元格填充红色

    mysheet1.Range(mysheet1.Cells(i1, 1), mysheet1.Cells(i1, 10)).Interior.Color = RGB(255, 0, 0)

    Exit For '退出For循环

   End If

  End If

 Next

Next

End Sub

程序代码截图

②VBA程序运行前后结果如下图：

程序运行之前

程序运行之后

追问

你好，假如不同关键词是改哪里的？例如现在是“消费”，如果我换“大道”呢？可以说一下嘛？

追答

你好，A1,B1,C1单元格没用，你就更改D1单元格里面的内容就可以了。

Answer 2

你不详说例，你参考下面试

Excel对数据查找单个或连续怎样快速标示出来