VBA如何向指定表格底部插入行并下移工作表单元格避免表格重叠？

核心修改逻辑 #

原代码仅调整了目标表格自身的尺寸，没有主动为新增内容腾位置，所以会和下方的内容重叠。只需要在重设表格尺寸前，在表格结束位置的下方插入对应数量的整行即可，Excel会自动把插入位置下方的所有内容整体下移。

修改后的完整代码 #

Private Sub InsertRowsInTable(ByVal targetTableName As String)
    
    ' 询问用户需要插入的行数
    Dim rowsToAdd As Variant
    rowsToAdd = InputBox("请输入需要插入的行数", "插入行", 1)
    
    ' 若用户未输入则默认插入1行
    If rowsToAdd = vbNullString Then rowsToAdd = 1
    
    Dim targetTable As ListObject
    Set targetTable = Range(targetTableName).ListObject
    
    ' === 新增功能代码开始 ===
    Dim tableLastRow As Long
    ' 获取目标表格的最后一行行号
    tableLastRow = targetTable.Range.Row + targetTable.Range.Rows.Count - 1
    ' 在表格最后一行的下一行插入指定数量的整行，下方所有内容会自动整体下移
    Rows(tableLastRow + 1 & ":" & tableLastRow + rowsToAdd).Insert Shift:=xlDown
    ' === 新增功能代码结束 ===
    
    ' 重设表格尺寸纳入新增行
    targetTable.Resize targetTable.Range.Resize(targetTable.Range.Rows.Count + rowsToAdd)
        
End Sub

代码说明 #

• 新增代码先定位了目标表格的最后一行位置，直接在该位置下方插入对应数量的整行，插入操作会自动将该位置以下的所有内容（包括其他表格、单元格数值、控件等）整体下移，不会出现重叠问题
• 插入行后再执行原有的表格尺寸重设操作，新增的空行就会自动纳入当前表格的范围

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