excel小技巧——用vba代码批量多条件查询筛选excel表

需求

    筛选excel表单数据，筛选条件为一组电话号码
    一般思路，是通过Critl+F快捷键，调出查找和替换选项框，通过手动输入的形式一个个对照着电话号码输入到表单中，然后通过比较一个个筛选出来，过程过于繁琐
vba 脚本

    excel表格自带了开发工具，可用通过vba脚本的形式，实现批量筛选
前置工作

    默认情况下，excel是不会显示开发工具选项的，首先要调出该选项

步骤：
文件 → 选项 → 自定义功能区勾选上开发工具，即可显现该功能选项卡

在开发工具选项卡上点击Visual Basic就可以调出编辑器，进行代码编写
或者使用快捷键 Alt+F11
需求1：批量查询数据

需求：
假设根据一组电话号码，剔除出源数据表单中与之对应的行
筛选条件组：

• 电话号码
  13001791310
  13011722206
  13011771600
  13011775361
  13011777627
  13011778063
  13011782456
  13011784149
  13011789450
  13012741471
  13012744466
  13012749111
  

操作思路

• 将筛选条件（电话号码）放在新的表中（假设命名为sheet2），新建表作为输出数据表（sheet3）,假设源数据表单为sheet1
  
• 通过For循环，比较sheet1和sheet2，属性（列）电话不相等的元组（行），则输入到sheet3中
  

参考vba脚本

1. Sub 批量查询()
2. Dim 表1行, 表2行, 行, 列 As Integer
3. Dim 矢量 As Boolean
4. '清理表3数据
5. Sheet3.Range("A2:C200").Clear
6. 行 = 2
8. '筛选条件查询
9. For 表1行 = 2 To Sheet1.Rows.Count
10. 矢量 = False
11. '查询区域循环
12.     For 表2行 = 2 To Sheet2.Rows.Count
13.         If Sheet1.Cells(表1行, "B") = Sheet2.Cells(表2行, "B") Then
14.         矢量 = True
15.         Exit For
16.         End If
17.     If Cells(表2行, "B") = "" Then 表2行 = Rows.Count
18.     Next 表2行
20. '输入区域循环
21.     If 矢量 = False Then
22.         For 列 = 1 To 3
23.         Sheet3.Cells(行, 列) = Sheet1.Cells(表1行, 列)
24.         Next 列
25.     Else
26.         行 = 行 - 1
27.     End If
28. 行 = 行 + 1
29. If Cells(表1行, "B") = "" Then 表1行 = Rows.Count
30. Next 表1行
31. End Sub

复制代码

需求2:多条件批量查询

需求：
① 在需求1的基础上，加入姓名、性别等条件都要一致的需求

操作思路

类似电话筛选条件，只需要在控制sheet2的筛选条件就可以，即IF多加几个条件，可以使用and 关键字做多条件查询

• 增加循环，例如姓名
  

1. If Sheet1.Cells(表1行, "B") = Sheet2.Cells(表2行, "B") and _
2. Sheet1.Cells(表1行, "A") = Sheet2.Cells(表2行, "A") Then
3.         矢量 = True
4.         Exit For
5.         End If

复制代码

来源：程序园用户自行投稿发布，如果侵权，请联系站长删除
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！