VBA自动筛选无匹配数据时禁止复制内容（含表头）的实现方法

问题根源 #

自动筛选生效后，如果没有符合条件的业务数据行，原代码选定的F2:G末尾行、H2:I末尾行范围不存在可见业务数据，此时VBA执行复制会默认抓取表头行内容粘贴到目标表，不符合需求。另外原代码取Sheet4最后空行时未指定工作表归属，活动表不是Sheet4时会出现粘贴位置错误。

核心修复逻辑 #

每次执行完筛选操作后，先判断排除表头外的数据区域是否存在可见单元格：

• 存在可见有效数据：执行复制、粘贴值操作
• 无可见有效数据：直接跳过当前复制步骤，不执行任何粘贴动作

修正后可直接运行的代码 #

Sub FilterAndCopyData()
    Dim lastRow As Long
    Dim visibleRng As Range
    
    With Worksheets("Sheet3")
        ' 先清除原有筛选状态，避免条件叠加
        If .AutoFilterMode Then .AutoFilterMode = False
        
        ' 第一部分：筛选F列指定范围数据
        lastRow = .Cells(.Rows.Count, "F").End(xlUp).Row
        .Range("A:K").AutoFilter Field:=6, Criteria1:=">=10000000", Operator:=xlAnd, Criteria2:="<=99999999"
        
        ' 检测是否存在除表头外的可见数据
        On Error Resume Next
        Set visibleRng = .Range("F2:G" & lastRow).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        
        ' 仅当有有效数据时执行复制粘贴
        If Not visibleRng Is Nothing Then
            visibleRng.Copy
            Worksheets("Sheet4").Cells(Worksheets("Sheet4").Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            Set visibleRng = Nothing
        End If
        
        ' 第二部分：筛选H列指定范围数据
        .AutoFilterMode = False
        lastRow = .Cells(.Rows.Count, "H").End(xlUp).Row
        .Range("A:K").AutoFilter Field:=8, Criteria1:=">=10000000", Operator:=xlAnd, Criteria2:="<=99999999"
        
        ' 检测是否存在除表头外的可见数据
        On Error Resume Next
        Set visibleRng = .Range("H2:I" & lastRow).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        
        If Not visibleRng Is Nothing Then
            visibleRng.Copy
            Worksheets("Sheet4").Cells(Worksheets("Sheet4").Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            Set visibleRng = Nothing
        End If
        
        ' 操作结束关闭筛选，可按需删除该行保留筛选状态
        .AutoFilterMode = False
    End With
    
    ' 清空剪贴板，取消复制区域虚线选中状态
    Application.CutCopyMode = False
End Sub

关键逻辑说明 #

• SpecialCells(xlCellTypeVisible)是VBA读取筛选后可见区域的标准方法，当区域内无符合条件的可见单元格时该方法会抛出错误，因此搭配临时错误捕获，通过判断对象是否赋值成功即可确认是否存在有效数据
• 两次筛选判断前主动清空visibleRng对象，避免上一次的检测结果干扰后续逻辑
• 所有涉及行计数的代码都明确绑定所属工作表，彻底避免跨表操作时的位置计算错误

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