上前菜:先进行一下逻辑梳理,如果看的一头雾水,不要气馁,看个大概就行
上主菜:辅助理解的代码。最好自己执行一下,有助消化
Sub 筛选()
''1、未筛选状态下的 AutoFilterMode 与 FilterMode
'对【B2:B8】区域进行筛选
Range("a2:b8").AutoFilter 2, ">30"
'取消筛选
Sheet1.ShowAllData
'比较 AutoFilterMode 与 FilterMode 属性
Debug.Print Sheet1.AutoFilterMode '返回 True,是否有“自动筛选”箭头
Debug.Print Sheet1.FilterMode '返回 False,是否进行了“筛选”
'定义 f 为自动筛选区域
Set f = Sheet1.AutoFilter
f.Range.Select
'获取 FilterMode 的值
Debug.Print f.FilterMode
'&