如何用EXCELVBA编写模糊查询程序，并将结果显示在工作表中？ – 网络|

1、利用INPUTBOX（）获得想查询的内容，并存放到局部变量INPUTDATA 中

2、用DIM MYRANGE AS RANGE 和以下语句组合进行查找 Set MyRange = Sheets(“工作表名称”).Cells.Find(what:=INPUTDATA, After:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)

3、用条件语句进行判断是否找到或符合 If MyRange Is Nothing Then MsgBox “没找到符合条件的记录!” ….. else 找到的话，进行相应的单元格赋值操作 ….. endif

4、用将上述步骤嵌套到一个循环语句内，以便继续查找。