Question

如何用excel的宏实现查找功能

一个excel有三个sheet第一个sheet是搜索页，在里面有黄色的格子，可以输入任意字段，旁边有2个按钮，一个按钮是在sheet2里面查询，一个按钮是在sheet3里面查询要求能查询多个结果，就类似 ctrl F，搜索出所有包含该字段的单元格（由于sheet2和sheet3都是文字，所以，基本都在A列里面，等于一行就一个格子A1，A2.。。。）把搜索到的多个格子，能显示在sheet1里面就像下面图片，我输入了“文档”于是，在sheet2里面有2个格子，在sheet3里面有另外2个格子，按第一个按钮显示的就是sheet2里面的搜索内容，按第二个按钮，显示的是sheet3的搜索内容这个怎么用宏来实现啊 ，谢谢啊，求大神指点啊。。。。。另外，希望能不要只搜索sheet2或者sheet3里面的1列（不要筛选功能），一方面我想实现模糊查询，一方面我是有时候也不确定是不是都在A列，所以最好是全文搜索，谢谢啦，最后是excel的模拟数据，谢谢！





Answer 1

因没有具体内容，可以参照下面程序修改：
Sub 查找搜索()
Dim MyArr, LastRow
LastRow = Sheet2.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
MyArr = Sheet2.Range("A1:A" & LastRow)
For i = 2 To LastRow
TmpRow = Application.Match(MyArr(i, 1), Sheet1.Range("B:B"), 0)
If Not IsError(TmpRow) Then Sheet2.Cells(i, 3) = Sheet1.Cells(TmpRow, 1)
Next i
End sub

Answer 2

你好！需要模拟文件。