1、在电脑中找到我们的数据统计表，而后打开，要求根据S1单元格的内容，匹配A列，只要A列包含S1，就将整行数据查找出来
3、点击查看代码，而后就进入了VBA工作界面，我们在界面中找到插入，菜单，点击插入，而后在弹出的选项卡里面找到模块选项
5、如下图，我们在窗口中输入检索的代码，Sub 查询()Dim rng As Range, n%For Each rng In Range([A2], [A2].End(xlDown))If InStr(rng, [s1]) > 0 Then '相当于函数里面用find查找，是否包含的意思n = n + 1Cells(n + 1, 19).Offset(1, 0).Resize(1, 3) = rng.Resize(1, 3).ValueEnd IfNextEnd Sub
7、点击完按钮，而后在工作表界面拖动，就出现了一个链接代码的窗口，我们选择刚才我们输入的代码名称查询，而后确定关闭对话框
