筛选前
筛选后
vba代码如下:
Sub 在表格第2列筛选小于3或者大于9的条目()
ActiveSheet.Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="<3", Operator:=xlOr, Criteria2:=">9"
End Sub
以上代码解释如下:
Sub 在表格第2列筛选小于3或者大于9的条目()
ActiveSheet.Rows("1:1").Select '进入表格,选中第一行
Selection.AutoFilter '为第一行设置自动筛选功能
Selection.AutoFilter Field:=2, Criteria1:="<3", Operator:=xlOr, Criteria2:=">9" '在第二列设置筛选条件,小于3或者大于9
End Sub