0

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

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

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

请记住，总行数可能会有所不同，如何删除除第一个 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

提前感谢格雷格

4

1 回答 1

0

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

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
于 2020-07-15T08:58:38.217 回答