在Excel 2016中覆盖表数据时清除其他行

Question

我每天都有覆盖表中数据的任务。行的数量每天都在波动，因此我必须滚动到表格的底部，以检查行数是否少于被覆盖的数据。如果有的话，我必须突出显示“旧”数据的其他行并删除它们。我正在尝试使该过程自动化，以便a）在覆盖表数据时自动删除旧行，或者b）创建某种“警报”信号，指示需要删除旧行。预先谢谢你。

Answer 1

对于感兴趣的人，我创建了一个宏和按钮以删除6个表中的所有行。这是从一个表中删除所有行的代码示例。我将6个表中的每个表的with / end with语句复制并粘贴到一个宏中。

With Sheet1.ListObjects("Table3")
    If Not .DataBodyRange Is Nothing Then
        .DataBodyRange.ClearContents
        .DataBodyRange.Delete
    End If
End With