如何判断Excel表格OpenComplaints为空时跳过宏执行？

问题拆解 #

你当前的宏遇到的核心痛点是：当OpenComplaints结构化表格为空（或筛选后无可见行）时，直接调用DataBodyRange.Copy或.ClearContents会触发错误；而CountA因为会统计隐藏行的数据，没法准确判断筛选后是否有可操作的可见行。另外你还希望用结构化引用规避列增减带来的引用失效问题，同时实现空表时自动跳过宏执行。

优化后的解决方案 #

我帮你重构了宏代码，重点解决了空表判断、可见行识别的问题，全程使用结构化引用，还去掉了冗余的Select操作提升稳定性：

完整优化代码 #

Sub DeleteClosedQns()
    ' DeleteClosedQns Macro
    Dim openComplaintsTbl As ListObject
    Dim closedHistoryTbl As ListObject
    Dim visibleFilteredRows As Range
    Dim targetRow As Long
    
    ' 检查前置步骤完成标记
    If ThisWorkbook.Sheets("Instructions").Range("D9").Value = "" Then
        Dim response As VbMsgBoxResult
        response = MsgBox("Previous step is not marked as complete. Proceed?", vbYesNo)
        If response = vbNo Then Exit Sub
    End If
    
    ' 绑定结构化表格对象（用结构化引用彻底规避列增减风险）
    Set openComplaintsTbl = ThisWorkbook.Sheets("BP -Tracker - Open Complaints").ListObjects("OpenComplaints")
    Set closedHistoryTbl = ThisWorkbook.Sheets("YTD History Closed").ListObjects("ClosedQns")
    
    ' 第一步：判断OpenComplaints表是否有数据行
    If openComplaintsTbl.DataBodyRange Is Nothing Then
        MsgBox "OpenComplaints table has no data, skipping macro execution.", vbInformation
        Exit Sub
    End If
    
    ' 应用筛选：定位CCMS Notification列的#N/A数据（用列名获取索引，不怕列位置变化）
    openComplaintsTbl.Range.AutoFilter _
        Field:=openComplaintsTbl.ListColumns("CCMS Notification").Index, _
        Criteria1:="#N/A"
    
    ' 第二步：获取筛选后的可见数据行（排除表头）
    On Error Resume Next ' 无可见行时会触发错误，先暂时忽略
    Set visibleFilteredRows = openComplaintsTbl.DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0 ' 恢复错误捕获
    
    ' 如果没有符合条件的可见行，取消筛选后退出
    If visibleFilteredRows Is Nothing Then
        openComplaintsTbl.Range.AutoFilter
        MsgBox "No closed complaints found to move to history.", vbInformation
        Exit Sub
    End If
    
    ' 复制筛选数据到历史表
    With closedHistoryTbl
        If .DataBodyRange Is Nothing Then
            ' 历史表为空，直接粘贴到表头下第一行
            visibleFilteredRows.Copy
            .ListRows.Add.Range.PasteSpecial Paste:=xlPasteValues
        Else
            ' 找到历史表数据区域的最后一行下一行
            targetRow = .DataBodyRange.Rows(.DataBodyRange.Rows.Count).Row + 1
            visibleFilteredRows.Copy
            ThisWorkbook.Sheets("YTD History Closed").Range("A" & targetRow).PasteSpecial Paste:=xlPasteValues
        End If
    End With
    
    ' 删除原表中已迁移的行（用Delete直接移除整行，避免留下空行）
    visibleFilteredRows.Delete
    
    ' 取消筛选状态
    openComplaintsTbl.Range.AutoFilter
    
    ' 标记当前步骤完成
    ThisWorkbook.Sheets("Instructions").Range("D10").Value = "X"
    
    ' 清除剪贴板，避免残留复制状态
    Application.CutCopyMode = False
End Sub

核心改进点说明 #

• 可靠的空表判断：用If openComplaintsTbl.DataBodyRange Is Nothing直接判断表格是否有数据行，比CountA精准得多
• 结构化引用防列变化：通过ListColumns("CCMS Notification").Index获取列的索引，不管表格新增或删除列，都能准确找到目标列
• 可见行精准识别：用SpecialCells(xlCellTypeVisible)获取筛选后的可见行，配合错误捕获处理无符合条件数据的情况
• 删除逻辑优化：把ClearContents改成Delete，直接移除整行，避免留下空行影响后续表格操作
• 移除冗余Select：直接操作表格和单元格对象，既提升宏的运行速度，又减少因选中错误工作表导致的bug

为什么CountA没用？ #

CountA会统计所有单元格（包括被筛选隐藏的行），所以哪怕筛选后没有可见数据，它也会返回隐藏行的计数，自然没法用来判断是否有可操作的可见行。而SpecialCells(xlCellTypeVisible)是专门针对筛选后可见单元格的方法，能精准识别有效数据行。

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