如何从Excel Table对象批量删除1至n指定范围的多行？

问题背景 #

• 已掌握普通单元格区域多行删除的VBA代码：

  Sub Delete()
      Rows("1:3").EntireRow.Delete
  End Sub
  

• 已掌握Table对象单行删除的VBA代码：

  Sub Delete()
      ActiveSheet.ListObjects("Table1").ListRows(1).Delete
  End Sub
  

• 需求：批量删除Table1中第1行到用户指定的第n行内容，当前用循环删除的方式在n较大时速度极慢，需要优化方案。

优化方案 #

循环删除效率低的核心原因是每删一行都会触发Excel的界面刷新、公式重算等操作，批量操作可将这些触发合并为一次，大幅提升效率。以下是两种直接的批量实现方式，还可搭配速度优化设置进一步提升性能。

方法1：通过ListRows的Range批量删除 #

直接定位Table中要删除的行范围，一次性执行删除：

Sub BatchDeleteTableRows()
    Dim tbl As ListObject
    Dim n As Long
    
    ' 替换为用户指定的行数，可改为InputBox获取输入
    n = 5
    Set tbl = ActiveSheet.ListObjects("Table1")
    
    ' 校验输入行数的有效性
    If n < 1 Or n > tbl.ListRows.Count Then
        MsgBox "输入的行数超出有效范围"
        Exit Sub
    End If
    
    ' 批量删除前n行
    tbl.ListRows.Range("1:" & n).EntireRow.Delete
End Sub

方法2：通过Table的DataBodyRange直接操作 #

利用Table的DataBodyRange属性定位数据区域，直接删除指定行：

Sub BatchDeleteTableRows_Alt()
    Dim tbl As ListObject
    Dim n As Long
    
    n = 5 ' 替换为用户指定的行数
    Set tbl = ActiveSheet.ListObjects("Table1")
    
    If n < 1 Or n > tbl.ListRows.Count Then
        MsgBox "输入的行数无效"
        Exit Sub
    End If
    
    tbl.DataBodyRange.Rows("1:" & n).Delete
End Sub

搭配速度优化设置（可选） #

如果n数值极大，可在代码开头关闭Excel的非必要功能，结尾恢复，进一步压缩耗时：

Sub BatchDeleteTableRows_WithSpeedUp()
    Dim tbl As ListObject
    Dim n As Long
    
    ' 关闭耗时功能
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    n = 5 ' 替换为用户指定的行数
    Set tbl = ActiveSheet.ListObjects("Table1")
    
    ' 错误处理，确保设置能正常恢复
    On Error GoTo Cleanup
    
    If n < 1 Or n > tbl.ListRows.Count Then
        MsgBox "输入的行数超出有效范围"
        GoTo Cleanup
    End If
    
    tbl.DataBodyRange.Rows("1:" & n).Delete
    
Cleanup:
    ' 恢复原有系统设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

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