VBA宏过滤后仅存表头仍复制表头，如何跳过该循环迭代？

核心问题出在全局使用On Error Resume Next，它会掩盖SpecialCells(xlCellTypeVisible)找不到可见单元格时的运行时错误，导致firstVisibleCellinscope不会被设为Nothing，你的判断条件自然失效。另外循环中未重置对象，可能残留上一次循环的有效值，也会引发误判。

修正方案： #

• 移除全局的On Error Resume Next，改用局部错误处理捕获无可见单元格的情况
• 每次循环显式重置对象变量，避免残留值干扰判断
• 取消Activate调用，直接通过工作表对象操作，提升代码稳定性和效率

修正后的代码： #

For I = lastRowTeams To 2 Step -1
    Dim Team As String, emailaddress As String
    Dim firstVisibleCellinscope As Range, DatatoCopy As Range
    
    Team = wsTeamdata.Cells(I, 1).Value
    emailaddress = wsTeamdata.Cells(I, 2).Value
    
    ' 应用筛选，直接操作工作表对象无需激活
    With wsInscope.Range("A1")
        .AutoFilter Field:=18, Criteria1:=Team
    End With
    
    ' 局部错误处理：捕获无可见单元格的情况
    Set firstVisibleCellinscope = Nothing
    On Error Resume Next
    Set firstVisibleCellinscope = wsInscope.Range("A2:A" & lastRowInscope).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 判断是否存在有效数据，无数据则跳过当前迭代
    If firstVisibleCellinscope Is Nothing Then GoTo NextIteration
    
    ' 复制包含表头的数据
    Set DatatoCopy = wsInscope.Range("A:K")
    DatatoCopy.Copy
    
NextIteration:
    ' 清除当前筛选，避免影响下一次循环
    wsInscope.AutoFilterMode = False
Next I

关键说明： #

1. 局部错误处理：仅在执行SpecialCells时临时启用错误忽略，操作完成后立即恢复默认错误处理，避免掩盖其他潜在问题
2. 对象重置：每次循环开始前将firstVisibleCellinscope设为Nothing，确保判断的是当前筛选的结果
3. 取消激活：直接通过wsInscope对象操作工作表，避免因激活其他工作表导致的错误
4. 清除筛选：在迭代结束后关闭自动筛选，保证下一次筛选的准确性

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