excel2003 多条件或查询

在你想要查找的表菜单上方右键调出控件工具箱添加一个按键！双击把下面代码复制进去！并在条一行的第10列单元格输入条件！OK退出设计模式！点按钮运行！
Dim i As Integer, xxb As Worksheet, xxb2 As Worksheet, cou As Integer, userr As Variant
Set sjb = Worksheets("数据") '这括号里是你的数据源有表名称
Set sjb2 = Worksheets("结果") '这括号里是你的放置结果的表名称
cou = sjb.Range("a65535").End(xlUp).Row
userr = sjb.Cells(1, 10)
X = sjb2.Range("a65535").End(xlUp).Row
For i = 1 To cou Step 1 '等号后面的1你可以改成你数据行第一行的行号
If sjb.Cells(i, 1).Value = userr Then
sjb2.Cells(X, 1) = "条件为“" & userr & "”时的结果"
sjb2.Cells(X, 2) = sjb.Cells(i, 1)
sjb2.Cells(X, 3) = sjb.Cells(i, 2)
sjb2.Cells(X, 4) = sjb.Cells(i, 3)
sjb2.Cells(X, 5) = sjb.Cells(i, 4)
X = X + 1
End If
Next i

数据在A列，B1输入
=IF(COUNT(FIND({"人","民","代","表"},A1)),A1,"")回车并向下填充
选B列——菜单栏——数据——筛选——自动筛选——下拉选（非空白）

查找的功能实现不了，你可以试试用“筛选”的功能试试。

你可以查找全部呀！在全部的下面就好找了！