我对你的代码做了一些调整，因为我不确定是否允许我同时修改两个表，或者你是否可以在两个表之间放置某些东西，所以我做了一个额外的sub来缩短它。这将确保它只影响它在调整大小之前的单元格（因为你只调整行的大小，列保持不变）

Sub clearRowsAfterResizing()
    Dim Tbl_2 As ListObject
    Dim Tbl_1 As ListObject
    Dim Tbl_3 As ListObject
    Dim ws As Worksheet
    
    Set ws = ActiveWorkbook.Worksheets("Test2")
    Set Tbl_1 = ws.ListObjects("TableQuery")
    Set Tbl_2 = ws.ListObjects("Table2")
    Set Tbl_3 = ws.ListObjects("Table3")
    
    changeSize Tbl_2, Tbl_1, ws
    changeSize Tbl_3, Tbl_1, ws

 End Sub
 
 Sub changeSize(tblAdjust As ListObject, tblChanged As ListObject, ws As Worksheet)
    Dim lRow As Long, dif As Long, sCol As Long, lCol As Long
    lRow = tblAdjust.Range.Rows(tblAdjust.Range.Rows.Count).Row
    dif = tblAdjust.Range.Rows.Count - tblChanged.Range.Rows.Count
    If tblAdjust.Range.Rows.Count <> tblChanged.Range.Rows.Count Then
        tblAdjust.Resize tblAdjust.Range.Resize(tblChanged.Range.Rows.Count)
        If dif > 0 Then
            sCol = tblAdjust.Range.Columns(1).Column
            lCol = tblAdjust.Range.Columns(tblAdjust.Range.Columns.Count).Column
            With ws
                .Range(.Cells(lRow - dif + 1, sCol), .Cells(lRow, lCol)).Clear
            End With
        End If
    End If
 End Sub

希望这对你有帮助，如果你有任何问题随时问：）

调整“从属”表的大小

Option Explicit

Sub ResizeSlaveTables()

    ' Define constants.
    Const MASTER_NAME As String = "TableQuery"
    Const SLAVE_NAMES As String = "Table2,Table3"
    
    ' Reference the worksheet (by code name). Great!
    Dim ws As Worksheet: Set ws = Sheet1
    
    ' Split the slave table names into an array.
    Dim Slaves() As String: Slaves = Split(SLAVE_NAMES, ",")

    ' Reference the master table.
    Dim mlo As ListObject: Set mlo = ws.ListObjects(MASTER_NAME)
    ' Calculate its number of rows.
    Dim mrCount As Long: mrCount = mlo.Range.Rows.Count
    
    Dim Slave, srCount As Long, WasResized As Boolean
    
    ' Loop through the slave table names.
    For Each Slave In Slaves
        ' Reference the range of the slave table.
        With ws.ListObjects(Slave).Range
            ' Calculate its number of rows.
            srCount = .Rows.Count
            ' Act per requirement.
            If mrCount <> srCount Then ' the sizes are different
                .ListObject.Resize .Resize(mrCount) ' resize the slave
                If mrCount < srCount Then ' slave size was greater
                    ' Clear 'remains' below the new size of the slave.
                    .Resize(srCount - mrCount).Offset(mrCount).Clear
                'Else ' master size was greater; do nothing
                End If
                WasResized = True ' for the message box
            'Else ' the sizes are the same; do nothing
            End If
        End With
    Next Slave
    
    If WasResized Then ' at least one was resized
        MsgBox "Slave tables resized.", vbInformation
    Else ' none were resized
        MsgBox "The slave tables were of the correct size.", vbExclamation
    End If
    
End Sub