检查表Databodyrange是否有值

Question

我希望在代码的这一部分中获得帮助，如果表已经有数据，我希望它显示消息框，但我无法设置它。使用我当前的代码，无论表中是否有数据，它都会显示消息。

If Not ActiveSheet.ListObjects(1).DataBodyRange Is Nothing Then
    MsgBox "Table has data", vbInformation
    Exit Sub
End If

Answer 1

用于WorksheetFunction.CountA计算表体中的非空单元格：

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