如何避免AutoFilter无匹配行时的VBA报错？代码问题排查

当筛选后无匹配结果时，SpecialCells(xlCellTypeVisible)无法在你指定的D2:Dxxx或P2:Pxxx范围内找到可见单元格，直接调用会触发"未找到单元格"的运行时错误。

• GetTheLastRow函数定义了sheetName参数，但实际硬编码使用"Absent"，参数完全无效
• 循环For Each cek In Range("A1:A" & lastRowSourceSheet)内部直接执行Exit For，循环仅运行一次，完全失去存在意义
• 混用Sheet2和sourceSheet（即"Absent"），工作表引用逻辑混乱
• If cek.Value = 0 Then...Else的判断无实际作用，无论cek的值是什么都会执行复制操作
• 调用Sheet2.ShowAllData时，若当前无筛选状态，会触发额外错误

1. 捕获SpecialCells错误：通过On Error Resume Next和On Error GoTo 0捕获无可见单元格的情况，先获取可见区域再判断是否存在
2. 统一工作表引用：使用变量管理所有工作表对象，避免混用Sheet编号和工作表名称
3. 修复GetTheLastRow函数：让函数真正使用传入的sheetName参数
4. 移除无效循环：删除无实际作用的循环结构
5. 安全清除筛选：清除筛选前先判断工作表是否处于筛选状态
6. 优化复制逻辑：直接通过对象引用复制，避免不必要的剪贴板操作

Function GetTheLastRow(sheetName As String) As Long
    ' 获取指定工作表的最后一行（基于A列）
    Dim sheetTarget As Worksheet
    Dim lastRow As Long
    
    Dim wb As Workbook: Set wb = ThisWorkbook
    Set sheetTarget = wb.Sheets(sheetName)
    lastRow = sheetTarget.Cells(sheetTarget.Rows.Count, 1).End(xlUp).Row
    GetTheLastRow = lastRow
End Function

Sub filterdata()
    Dim wb As Workbook
    Dim sourceWs As Worksheet
    Dim marieWs As Worksheet, vonnyWs As Worksheet
    Dim lastRowSource As Long
    Dim visibleRange As Range
    Dim criteriaDate As Variant
    
    ' 初始化对象引用
    Set wb = ThisWorkbook
    Set sourceWs = wb.Sheets("Absent")
    Set marieWs = wb.Sheets("Marie")
    Set vonnyWs = wb.Sheets("Vonny")
    lastRowSource = GetTheLastRow("Absent")
    criteriaDate = Sheet1.Range("B1").Value
    
    ' --------------------------
    ' 处理Marie的筛选与数据复制
    ' --------------------------
    ' 清除现有筛选（如果存在）
    If sourceWs.AutoFilterMode Then sourceWs.AutoFilterMode = False
    ' 应用筛选条件：K列=Marie，M列=指定日期
    sourceWs.Cells.AutoFilter Field:=11, Criteria1:="Marie"
    sourceWs.Cells.AutoFilter Field:=13, Criteria1:=criteriaDate
    
    ' 尝试获取D列可见单元格（跳过表头）
    On Error Resume Next
    Set visibleRange = sourceWs.Range("D2:D" & lastRowSource).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 存在可见单元格时执行复制
    If Not visibleRange Is Nothing Then
        ' 复制D列到Marie工作表的B列
        visibleRange.Copy marieWs.Range("B" & marieWs.Rows.Count).End(xlUp).Offset(1, 0)
        ' 复制P列到Marie工作表的C列
        Set visibleRange = sourceWs.Range("P2:P" & lastRowSource).SpecialCells(xlCellTypeVisible)
        visibleRange.Copy marieWs.Range("C" & marieWs.Rows.Count).End(xlUp).Offset(1, 0)
    End If
    
    ' 清除筛选
    If sourceWs.AutoFilterMode Then sourceWs.AutoFilterMode = False
    
    ' --------------------------
    ' 处理Vonny的筛选与数据复制
    ' --------------------------
    ' 应用筛选条件：K列=VONNY，M列=指定日期
    sourceWs.Cells.AutoFilter Field:=11, Criteria1:="VONNY"
    sourceWs.Cells.AutoFilter Field:=13, Criteria1:=criteriaDate
    
    ' 尝试获取D列可见单元格（跳过表头）
    On Error Resume Next
    Set visibleRange = sourceWs.Range("D2:D" & lastRowSource).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 存在可见单元格时执行复制
    If Not visibleRange Is Nothing Then
        ' 复制D列到Vonny工作表的B列
        visibleRange.Copy vonnyWs.Range("B" & vonnyWs.Rows.Count).End(xlUp).Offset(1, 0)
        ' 复制P列到Vonny工作表的C列
        Set visibleRange = sourceWs.Range("P2:P" & lastRowSource).SpecialCells(xlCellTypeVisible)
        visibleRange.Copy vonnyWs.Range("C" & vonnyWs.Rows.Count).End(xlUp).Offset(1, 0)
    End If
    
    ' 最终清除筛选
    If sourceWs.AutoFilterMode Then sourceWs.AutoFilterMode = False
End Sub

• 用On Error Resume Next临时屏蔽错误，获取visibleRange后立即恢复错误处理（On Error GoTo 0），避免掩盖其他潜在错误
• 通过If Not visibleRange Is Nothing判断是否存在可复制的可见单元格，从根源避免报错
• 所有工作表均通过变量引用，逻辑清晰且避免因Sheet编号变化导致的错误
• 清除筛选前先检查AutoFilterMode状态，防止无筛选时触发错误

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