打开代码后会发现其中有两句代码是多余，我们选中Range("B3").Select和Range("A4:A20").Select删除，并且从Field:=1,后面添加空格和短划线是将代码换行。
从模块1中将处理好的代码复制，双击打开sheet1工作表，通用里面选择Worksheet 事件选择change随后将代码粘贴到change过程里面，这里需要将代码Criteria1:="=*小*"更改为Criteria1:="=*" & Target & "*"
到此粗略的关键词筛选功能算是做好了，我们回到文中输入内容查看通过刚刚录制宏修改代码后效果，这是你会发现在任何单元格中输入内容都会触发筛选事件，不仅仅局限于在C1单元格中输入内容，那么想让内容只在C1单元格起作用咋办呢？
我们可以在代码中添加一个IF语句，用来判断输入内容的单元格是C1才执行筛选功能。附上修改后的代码：
_________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
'输入内容的单元格是C1才执行筛选
If Target.Address(0, 0) = "C1" Then
Range("a3").CurrentRegion.AutoFilter Field:=1, _
Criteria1:="=*" & Target & "*", _
Operator:=xlAnd
End If
End Sub
_________________________________________________________
最后成品的效果如下：
