VBA 如何删除表行

Question

我有一个表，其范围（仅行）取决于输入（行）的数量。

我编写了一个代码来将数据从表传输到我的数据库。 这工作正常。

但是，在这个脚本的最后，我想删除表格行，期望第一行和第二行，分别是我的标题和我的公式所在的位置。

请记住，总行数可能会有所不同，如何删除除第一个 2 行之外的所有表行？

供参考

表格范围（标题和第一行）是 A18:D19

    Dim Cl As Range
For Each Cl In Sheets("Data Entry").Range("A19:A1000")
    If Cl.Value = "" Then Exit For 'Exits on first empty cell
    Sheets("Source Ingredients").Range(Cl.Value).Value = Cl.Offset(, 2).Value

提前感谢格雷格

Answer 1

这有效，其中 Table1 是表的名称。 如果您不确定如何找到它，请单击表格，然后单击顶部横幅中的 select 表格设计，表格名称位于左上方的属性下。

Application.Range("Table1").ListObject.DataBodyRange.Offset(1, 0).Resize(Application.Range("Table1").ListObject.DataBodyRange.Rows.Count - 1, _
    Application.Range("Table1").ListObject.DataBodyRange.Columns.Count).Rows.Delete

使用 With 语句缩写的地址：

With Application.Range("Table1").ListObject.DataBodyRange
    .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
End With