如何清除Excel动态调整后Table2、Table3下方的残留内容？

可以通过在表格调整尺寸后，定位并清除表格所在列中超出表格范围的单元格内容来解决这个问题。以下是修改后的VBA代码：

Dim Tbl_2 As ListObject
Dim Tbl_1 As ListObject
Dim Tbl_3 As ListObject
Dim clearRange As Range

Set Tbl_1 = Sheet1.ListObjects("TableQuery")
Set Tbl_2 = Sheet1.ListObjects("Table2")
Set Tbl_3 = Sheet1.ListObjects("Table3")

' 调整Table3尺寸并清除下方残留内容
If Tbl_3.Range.Rows.Count <> Tbl_1.Range.Rows.Count Then
    Tbl_3.Resize Tbl_3.Range.Resize(Tbl_1.Range.Rows.Count)
    ' 定位Table3所在列中，表格最后一行下方的区域
    Set clearRange = Sheet1.Range(Tbl_3.Range.Cells(Tbl_3.Range.Rows.Count + 1, 1), _
                      Sheet1.Cells(Sheet1.Rows.Count, Tbl_3.Range.Columns.Count + Tbl_3.Range.Column - 1))
    ' 清除区域内容（包括公式和格式，若只需清除内容可改用clearRange.ClearContents）
    clearRange.Clear
End If

' 调整Table2尺寸并清除下方残留内容
If Tbl_2.Range.Rows.Count <> Tbl_1.Range.Rows.Count Then
    Tbl_2.Resize Tbl_2.Range.Resize(Tbl_1.Range.Rows.Count)
    ' 定位Table2所在列中，表格最后一行下方的区域
    Set clearRange = Sheet1.Range(Tbl_2.Range.Cells(Tbl_2.Range.Rows.Count + 1, 1), _
                      Sheet1.Cells(Sheet1.Rows.Count, Tbl_2.Range.Columns.Count + Tbl_2.Range.Column - 1))
    clearRange.Clear
End If

代码说明： #

• 新增clearRange变量定位需要清除的区域：从表格最后一行的下一行开始，覆盖表格所有列，直到工作表的最后一行。
• 使用Clear方法清除区域的所有内容（包括公式、格式等），如果只需要清除内容保留格式，可替换为ClearContents方法。
• 仅当表格尺寸发生变化时才执行清除操作，避免不必要的重复执行。

内容的提问来源于stack exchange，提问作者Garth Mars