关于 range.autofilter 和 VBA的 filter

 

1 range().autofilter容易出错的地方

1.1 range().autofilter的返回值

• range().autofilter 
• 返回值总是 true
• 返回值并不是对象，而是执行一个筛选的操作
• 所以

Sub test1_filter5()
'Dim rng1 As Range
'Set rng1 = Range("b1:b20").AutoFilter(field:=1, Criteria1:=5)
'Debug.Print rng1.Address

Debug.Print Range("b1:b20").AutoFilter(field:=1, Criteria1:=5)
Debug.Print Range("b1:b20").AutoFilter(field:=1, Criteria1:=55555)

End Sub

 

1.2 因此，调用 range().autofilter() 写法一般都不带括号

• 如上面的例子

• range().autofilter() 也可以带参数+括号，但是返回值的意义不大

• 所以一般，都不带括号，因为也不需要调用其返回值

Sub test001()
Range("a:a").AutoFilter field:=1, Criteria1:="10002"
End Sub

 

1.3 range().autofilter() 容易笔误出错的地方

• 语法
• 表达式.AutoFilter(Field, Criteria1,Operator, Criteria2, VisibleDropDown)

容易出错的例子

• 容易出错的地方
• Range("a:a").AutoFilter field:=1, Criteria1:="10002"
• 注意 Criteria1:="10002" 不是 Criterial:="10002" 是1 不是l 而且，中间也不能有间隔 Criteria1
• 你要理解 Criteria1 是要查找的内容，而且有2个参数，所以是 Criteria1 和 Criteria2，不是L

 

2 range().autofilter的 功能学习

2.1 基础语法

• 表达式.AutoFilter(Field, Criteria1,Operator, Criteria2, VisibleDropDown)
• Field，类vlookup 一样，默认左边第1列为1，右边的列为2,3,4。。。。
• criteria1
• criteria2
• operator   控制2个标准之间的逻辑关系
• visibleDropDown   控制下拉框

 

2.2 range().autofilter 什么参数都不带，那就只是打开 此区域相关区域的筛选

• 就是把 range() 区域相连接的区域，全部实现筛选
• 如果运行多次，开一次，关一次

2.2.1 运行两次，1次开1次关（不知道原理？）

• 运行第1次，开启筛选
• 运行第2次，关闭筛选

Sub test1_filter30()

Range("a1").AutoFilter

End Sub

• 有问题的地方
• 如果多加了一句： Debug.Print Range("a1").AutoFilter，结果筛选完全打不开了？

Sub test1_filter31()
Debug.Print Range("a1").AutoFilter
Range("a1").AutoFilter
End Sub

 

2.3 多个 range().autofilter，会多次执行，按最后一次的执行，而且可能有问题

暂时原因不明

• 如果同时执行了多个 range().autofilter，感觉会执行多次
• 一般是按最后一次的   range().autofilter （交互次序会发现筛选结果不同）
• 但有时候啥也不执行，也不筛选了

 

• 安全的做法
• 一次只做1次筛选，把筛选区域写合适。

Sub test1_filter40()
Range("a1").AutoFilter
Range("b1").AutoFilter
End Sub


Sub test1_filter41()
Range("a1:a20").AutoFilter field:=1, Criteria1:=115
Range("b1").AutoFilter
End Sub

'前2个例子都是有问题的

Sub test1_filter42()
Range("a1:b1").AutoFilter
End Sub

 

2.4 range() 选 标题头，列头就行了？

2.4.1 无参数时，下面两种写法是无差别的

Sub test1_filter50()
Range("a1:b1").AutoFilter
End Sub


Sub test1_filter51()
Range("a1:b20").AutoFilter
End Sub

 

2.4.2 即使有参数，下面两种写法也差不多，range("a1:b10") 相当于 range("a1:b1") 也相当于 range("a:b")

Sub test1_filter50()
Range("a1:b1").AutoFilter field:=2, Criteria1:=">=10"
End Sub


Sub test1_filter51()
Range("a1:b20").AutoFilter field:=1, Criteria1:="999"
End Sub

 

2.5 报错处理

• 不能超过range()本身的范围
• 下面的报错，因为field:=3，因为range() 本身才2列

 

3  range().autofilter的返回值 ----replace() 也一样？

• range().autofilter 
• 返回值总是 true
• 返回值并不是对象，而是执行一个筛选的操作
• 所以

Sub test1_filter5()
'Dim rng1 As Range
'Set rng1 = Range("b1:b20").AutoFilter(field:=1, Criteria1:=5)
'Debug.Print rng1.Address

Debug.Print Range("b1:b20").AutoFilter(field:=1, Criteria1:=5)
Debug.Print Range("b1:b20").AutoFilter(field:=1, Criteria1:=55555)

End Sub

 

 

参考文章

https://www.jianshu.com/p/0ab092d1de52