除非注明，文章均为 战战如疯 原创，转载请保留链接: http://www.zhanzhanrufeng.com/cat4/441.html，VBA交流群273624828。
今天来看一个筛选信息的例子。现在手头上有一个2015年度国考的职位信息，为了方便查找现在需要将报考专业中包括法学的职位筛选到一个新表中。方法很多，可以打开报考职位信息表逐条判断，也可以用SQL方法筛选，这里先看一下打开文件逐条筛选的方法。
Sub 查找专业()
Dim myfile
mypath = ThisWorkbook.Path & "\2015年度职位信息.xlsx"
Application.ScreenUpdating = False '关闭屏幕更新
Application.DisplayAlerts = False '关闭提示框
Sheet1.UsedRange.Offset(1, 0).Clear '清除之前查询结果
Workbooks.Open (myfile)
With ActiveWorkbook.Sheets(2)
ends = .Range("L1048576").End(xlUp).Row
For Each professional In .Range("l2:l" & ends)
m = professional.Row
If professional Like "*法学*" Then
k = k + 1
.Range("a" & m & ":ad" & m).Copy Sheet1.Range("a" & Sheet1.[a1048576].End(xlUp).Row + 1)
End If
Next
End With
Workbooks("2015年度职位信息.xlsx").Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
用Open方法打开工作表，对打开工作表的sheet2的L列进行逐行对比，用到的关键词是Like，“*”是通配符，代表任意多个字符。如果符合条件则用copy法复制到新表中。
本节示例文件下载地址：http://pan.baidu.com/s/1qW4qYWc。
联系客服
