Excel VBA：如何判断筛选表格的可见单元格区域是否存在？

当筛选后没有可见单元格时，SpecialCells(xlCellTypeVisible)会直接抛出Run-time error '1004': No cells were found错误——这也是你之前用Count或判断Is Nothing失效的核心原因：还没执行到判断步骤，调用SpecialCells时就已经触发错误了。

正确的处理方式是通过错误捕获跳过获取可见区域时的错误，再判断是否成功获取到目标区域：

基础解决方案 #

Dim visibleCells As Range
On Error Resume Next ' 临时抑制错误
Set visibleCells = ws.ListObjects(1).ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0 ' 恢复默认错误处理机制

If Not visibleCells Is Nothing Then
    ' 存在可见单元格，执行遍历逻辑
    For Each c In visibleCells
        ' 你的业务代码
        Debug.Print c.Value ' 示例：打印单元格值
    Next c
Else
    ' 无可见单元格时的处理逻辑
    MsgBox "当前列没有可见单元格"
End If

更严谨的版本（兼容空表格） #

如果表格本身没有数据行（DataBodyRange为Nothing），也会触发错误，建议先判断表格是否存在数据：

Dim targetTable As ListObject
Dim targetColumnRange As Range
Dim visibleCells As Range

Set targetTable = ws.ListObjects(1)
Set targetColumnRange = targetTable.ListColumns(1).DataBodyRange

' 先判断表格是否存在数据行
If Not targetColumnRange Is Nothing Then
    On Error Resume Next
    Set visibleCells = targetColumnRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not visibleCells Is Nothing Then
        For Each c In visibleCells
            ' 处理逻辑
        Next c
    End If
Else
    MsgBox "表格没有数据行"
End If

原理说明 #

SpecialCells在找不到符合条件的单元格时，不会返回空Range对象，而是直接抛出错误。通过On Error Resume Next临时跳过错误，我们可以完成visibleCells的赋值（无可见单元格时，visibleCells会保持Nothing），之后恢复错误处理，再通过Not visibleCells Is Nothing判断是否存在可见单元格。

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