VBA 如何删除表格行答案

【问题标题】：VBA How to Delete Table RowsVBA 如何删除表格行
【发布时间】：2020-11-04 11:08:08
【问题描述】：

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

我编写了一个代码来将数据从表传输到我的数据库。效果很好。

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

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

仅供参考

表格范围（headres 和第一行）是 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

提前致谢格雷格

【问题讨论】：

Sheets("Data Entry").Range("A20:D10000").Clear?或者也许找到最后一行然后清除而不是硬编码？

标签： excel vba rowdeleting

【解决方案1】：

这可行，其中 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

【讨论】：