Autofilter无匹配数据报错，多空白列时错误处理失效求助

我仔细看了你的代码，发现几个关键问题导致了筛选无匹配时报错，以及连续空白列处理失效的情况。下面给你分析问题所在，再附上修复后的代码和详细说明：

原代码的核心问题 #

• 错误状态未重置：On Error GoTo放在循环里，但触发一次错误后，错误状态会一直保留，后面的循环哪怕没错误也会直接跳转到错误标签，这就是连续空白列时失效的核心原因。
• 未清理自动筛选残留：每次筛选后没关闭AutoFilter，残留的筛选状态会干扰下一次的筛选结果。
• 空白列未提前过滤：当表头为空时，还硬着头皮执行筛选操作，白白触发不必要的错误。
• 循环逻辑略有偏差：先递增fCol再判断单元格是否为空，容易导致多处理一次无效列。

修复后的代码 #

Sub Siglum_Sorter()
    Dim ws As Worksheet
    Dim rRng1 As Range
    Dim rRng2 As Range
    Dim fCol As Long
    Dim rCrit As Variant
    Dim visibleCells As Range
    
    ' 摒弃Select，直接绑定工作表更稳定高效
    Set ws = ThisWorkbook.Sheets("Operator Database")
    fCol = 13 ' 初始为M列，下一轮循环自动定位到N列
    Set rRng1 = ws.Range("E:E")
    Set rRng2 = ws.Range("G2:G100")
    
    ' 先清除残留的自动筛选，确保每次筛选都是干净状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    Do
        fCol = fCol + 1
        rCrit = ws.Cells(1, fCol).Value
        
        ' 每次循环重置错误状态，避免上次错误干扰当前流程
        Err.Clear
        On Error GoTo 0
        
        ' 如果表头为空，直接退出循环（若需跳过空白列继续处理，可改为ContinueLoop标签）
        If IsEmpty(rCrit) Then
            Exit Do
        End If
        
        On Error GoTo ErrorHandler
        ' 执行自动筛选
        rRng1.AutoFilter Field:=1, Criteria1:=rCrit
        
        ' 先检查是否存在可见单元格，再执行复制操作，避免无匹配时报错
        Set visibleCells = rRng2.SpecialCells(xlCellTypeVisible)
        If Not visibleCells Is Nothing Then
            visibleCells.Copy
            ws.Cells(2, fCol).PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
        End If
        
ErrorHandler:
        ' 无论筛选成功与否，都关闭自动筛选
        If ws.AutoFilterMode Then ws.AutoFilterMode = False
        ' 再次清空错误状态，为下一轮循环做准备
        Err.Clear
    Loop Until IsEmpty(ws.Cells(1, fCol))
End Sub

关键改动说明 #

1. 摒弃Select，直接引用工作表：Select不仅运行效率低，还容易因用户操作导致错位，直接用ws对象引用单元格更稳定可靠。
2. 提前清理AutoFilter：循环开始前先关闭可能存在的筛选状态，保证每次筛选都是从零开始。
3. 每次循环重置错误状态：用Err.Clear和On Error GoTo 0清空上次的错误状态，避免错误残留干扰后续循环逻辑。
4. 空白列提前判断：碰到空表头直接退出循环（若需跳过空白列继续处理后续非空白列，可改为自定义标签跳过当前循环），从根源减少错误触发。
5. 先检查可见单元格再复制：调用SpecialCells后先判断是否存在可见单元格，避免因无匹配结果而触发报错。
6. 错误处理后必关AutoFilter：不管筛选成功还是失败，都关闭自动筛选，确保下一次筛选不受残留状态影响。

如果你的需求是跳过空白列继续处理后面的非空白列，而不是遇到空白列就停止循环，可以把循环条件改为Loop Until fCol > ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column，这样会自动处理到最后一个有内容的表头列，中间的空白列会被跳过。

内容的提问来源于stack exchange，提问作者r.vincent