求助：VBA代码判断表格DataBodyRange是否有值时逻辑异常

原代码的问题在于仅判断DataBodyRange是否存在并不够——如果表格存在空白数据行（比如手动添加了空行但未填入内容），DataBodyRange会不为空，但实际没有有效数据。以下是两种针对性的优化方案：

方案1：检查是否存在非空白数据单元格 #

通过定位非空单元格来确认表格是否有实际数据：

Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects(1)

If Not tbl.DataBodyRange Is Nothing Then
    ' 捕获无空单元格时的错误
    On Error Resume Next
    Dim nonEmptyCells As Range
    Set nonEmptyCells = tbl.DataBodyRange.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    
    ' 存在非空单元格则提示并退出
    If Not nonEmptyCells Is Nothing Then
        MsgBox "Table has data", vbInformation
        Exit Sub
    End If
End If

方案2：统计非空单元格数量（更简洁） #

利用CountA函数直接统计数据区域的非空单元格总数：

Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects(1)

If Not tbl.DataBodyRange Is Nothing Then
    If WorksheetFunction.CountA(tbl.DataBodyRange) > 0 Then
        MsgBox "Table has data", vbInformation
        Exit Sub
    End If
End If

额外说明 #

• 将表格对象赋值给变量，避免多次调用ActiveSheet.ListObjects(1)，提升代码效率与可维护性。
• 方案1适合需要精准区分“空白行”和“有数据行”的场景；方案2更简洁，适用于只需判断是否存在任何数据的场景。

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