VBA 如何删除 Table 行

Question

我有一个 table，它的范围（仅行）可以根据输入（行）的数量而变化。

我已经编写了一个代码来将数据从 table 传输到我的数据库。没问题。

但是，在这个脚本的最后，我想删除 table 行，期望第一行和第二行，分别是我的 headers 和我的公式.

请记住，总行数可能会有所不同，如何删除除第 2 行以外的所有 table 行？

仅供参考

table 范围（标题和第一行）是 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 是 table 的名称。如果您不确定如何找到它，请单击 table，然后在顶部的横幅中单击 select Table 设计，table 名称位于属性下的左上角。

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

VBA 如何删除 Table 行

VBA How to Delete Table Rows

excel

vba

rowdeleting