1、实例【录入姓名，查询个人信息？】
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：
Sub 信息查询系统()Dim endc As Integer, m%, n%Range("i2:o100").Clearendc = Columns("a").Find("*", , xlValues, xlPart, xlByColumns, xlPrevious).RowFor Each rng In Range(Cells(2, 1), Cells(endc, 1))m = m + 1 If rng Like Range("q2") Then n = n + 1 Range(Cells(m + 1, 1), Cells(m + 1, 7)).copy Cells(n + 1, 9) End IfNextEnd Sub
6、返回工作表，在【开发工具】菜单下，点击【插入】，在表格中插入一按钮！
7、选中插入的按钮，点击鼠标右键，指定宏，指定编辑的【信息查询系统】，并将按钮命名为【信息查询】。
8、假若我们要查询姓名有两个字人员的成绩信息？可在查询标准中录入通配符“??”,点击【信息查询】按钮！
9、结果会被很快查询出来，很智能吧！
