excel - 删除 Excel 表格中的所有数据行(第一行除外)

Question

最近我一直在尝试删除表中的所有数据行，除了第一个数据行(只需清除)

一些正在执行的表可能已经没有行，因此我在没有行的表(只有页眉和/或页脚)上使用 .DataBodyRange.Rows.Count 时遇到问题)导致错误。

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

Answer 1

这就是我清除数据的方法:

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