无需辅助列，如何恢复两次AutoFilter后首次过滤的可见行状态？

问题根源 #

你当前的场景是先执行一次特殊逻辑的AutoFilter（列2筛选*102*后，手动取消列3符合条件行的隐藏），再执行另一次AutoFilter，之后需要回到第一次筛选后的混合状态，但CustomView方法不可靠。

CustomView失效的核心原因：它对「AutoFilter筛选+手动修改行隐藏」的混合状态支持不完善，当行隐藏状态与AutoFilter规则冲突时，容易出现恢复不全的情况。

替代方案：记录可见行号集合 #

直接保存第一次筛选后所有可见行的行号，恢复时先重置所有筛选和行状态，再根据记录的行号精准控制显示/隐藏，同时还原第一次的AutoFilter规则。

步骤1：在AutoFilter(1)执行后记录可见行 #

修改你的筛选过程，添加行号记录逻辑：

' 模块级变量，用于存储第一次筛选后的可见行号
Dim visibleRowsAfterFilter1 As Collection

Sub Filter_criteria()
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
    Const crit As String = "*102*"
 
    If ws.AutoFilterMode Then ws.AutoFilterMode = False     
    Dim rng As Range: Set rng = ws.Range("A1:R" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
 
    ' 执行列2筛选
    rng.AutoFilter Field:=2, Criteria1:=crit, Operator:=xlFilterValues
 
    ' 手动取消列3符合条件行的隐藏
    For i = 1 To rng.Rows.Count
        If rng.Cells(i, 3).Value Like crit Then rng.Rows(i).Hidden = False
    Next i

    ' 记录所有可见行的行号
    Set visibleRowsAfterFilter1 = New Collection
    Dim rowNum As Long
    For rowNum = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row
        If Not ws.Rows(rowNum).Hidden Then
            visibleRowsAfterFilter1.Add rowNum
        End If
    Next rowNum
End Sub

步骤2：执行AutoFilter(2)后恢复状态 #

添加恢复过程，精准还原第一次筛选后的状态：

Sub RestoreFilter1State()
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
    Const crit As String = "*102*"

    ' 先重置所有筛选和行隐藏状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    ws.Rows.Hidden = False

    ' 还原第一次的AutoFilter规则
    Dim rng As Range: Set rng = ws.Range("A1:R" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
    rng.AutoFilter Field:=2, Criteria1:=crit, Operator:=xlFilterValues

    ' 根据记录的行号，隐藏非可见行
    Dim rowNum As Long
    Dim isVisible As Boolean
    For rowNum = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row
        isVisible = False
        ' 检查当前行是否在记录的可见行集合中
        Dim item As Variant
        For Each item In visibleRowsAfterFilter1
            If item = rowNum Then
                isVisible = True
                Exit For
            End If
        Next item
        ws.Rows(rowNum).Hidden = Not isVisible
    Next rowNum
End Sub

性能优化（大数据量场景） #

如果数据行数较多，遍历集合检查行号效率较低，可以改用Dictionary存储：

' 模块级变量替换为Dictionary
Dim visibleRowsDict As Object

' 记录行号时的代码替换：
Set visibleRowsDict = CreateObject("Scripting.Dictionary")
For rowNum = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row
    If Not ws.Rows(rowNum).Hidden Then
        visibleRowsDict(rowNum) = True
    End If
Next rowNum

' 恢复时的检查逻辑替换：
isVisible = visibleRowsDict.Exists(rowNum)

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