如何用Excel VBA获取自动筛选第2字段的Criteria1值？

原代码问题说明 #

• 筛选条件访问语法错误：正确的字段筛选对象路径是ActiveSheet.AutoFilter.Filters(2)，而非ActiveSheet.AutoFilter.field(2)
• 未判断筛选是否启用：直接访问Criteria1会在未开启筛选或无筛选条件时触发错误
• 未处理"显示全部"的状态：当筛选条件为*时，需要对应逻辑分支

修正后的完整代码 #

Sub CycleFilterSettingsFieldTWO()
    Dim x As String
    Dim targetFilter As Filter
    
    ' 判断当前工作表是否启用了自动筛选
    If ActiveSheet.AutoFilter Is Nothing Then
        ' 未启用则先开启筛选并设置初始条件为"3"
        ActiveSheet.Range("A10:Z10").AutoFilter
        ActiveSheet.AutoFilter.Range.AutoFilter Field:=2, Criteria1:="3"
        Exit Sub
    End If
    
    Set targetFilter = ActiveSheet.AutoFilter.Filters(2)
    
    ' 判断该字段是否处于筛选激活状态
    If targetFilter.On Then
        ' 获取Criteria1的值，处理空值情况
        x = IIf(IsNull(targetFilter.Criteria1), "", CStr(targetFilter.Criteria1))
        ' 若需处理Criteria2多条件，可补充：x = x & " " & CStr(targetFilter.Criteria2)
    Else
        ' 字段未筛选时视为"显示全部"状态
        x = "*"
    End If
    
    Select Case x
        Case "3"
            ActiveSheet.AutoFilter.Range.AutoFilter Field:=2, Criteria1:="4"
        Case "4"
            ' 清除该字段筛选，等同于显示全部
            ActiveSheet.AutoFilter.Range.AutoFilter Field:=2
        Case Else
            ActiveSheet.AutoFilter.Range.AutoFilter Field:=2, Criteria1:="3"
    End Select
End Sub

关键说明 #

• ActiveSheet.AutoFilter.Filters(2)：精准定位第2字段（B列）的筛选对象，索引从1开始（1对应A列，2对应B列）
• targetFilter.On：判断该字段是否处于筛选激活状态，避免无筛选时访问Criteria1报错
• 清除筛选用AutoFilter Field:=2而非设置Criteria1:="*"，前者完全清除筛选规则，后者会保留筛选状态
• 增加了无自动筛选时的初始化处理，避免首次运行报错

内容的提问来源于stack exchange，提问作者LondonJustin