删除 Excel 表格中的所有数据行（第一行除外）

就在最近，我一直在尝试删除表中的所有数据行，除了第一个数据行（需要清除）

一些正在执行的表可能已经没有行，所以我运行它时遇到问题，因为使用.DataBodyRange.Rows.Count在没有行（只有页眉和/或页脚）的表上会导致错误。

我到处寻找解决方案，但找不到完整的解决方案，所以我希望我对这个问题的回答将来对其他人有用。

这是我清除数据的方法：

Sub Macro3()
    With Sheet1.ListObjects("Table1")
        If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.Delete
        End If
    End With
End Sub