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.AddressDebug.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").AutoFilterEnd 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 SubSub 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 SubSub 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 SubSub 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.AddressDebug.Print Range("b1:b20").AutoFilter(field:=1, Criteria1:=5)
Debug.Print Range("b1:b20").AutoFilter(field:=1, Criteria1:=55555)End Sub