如何使用VBA快速删除Excel表格除表头外的所有数据行

你的原代码速度慢核心有三个原因：逐行循环删除行、使用Select/Selection这类低效操作、没有关闭Excel的屏幕更新等冗余功能。你之前直接删工作表单元格的方案报错，是因为Excel结构化表（ListObject）不允许直接删除表范围内的普通单元格导致表结构移位，必须通过表对象本身的方法操作。

最快的实现方式是直接调用结构化表的DataBodyRange.Delete方法一次性删除所有数据行，无需循环，4000行数据删除耗时不会超过1秒：

Sub ClearTableData()
    Dim ws As Worksheet
    Dim tName As ListObject
    ' 保存Excel原有设置
    Dim origScreenUpdating As Boolean
    Dim origCalculation As XlCalculation
    
    origScreenUpdating = Application.ScreenUpdating
    origCalculation = Application.Calculation
    ' 禁用冗余功能提升速度
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    On Error GoTo RestoreSettings ' 出错时也要恢复Excel设置
    Set ws = Sheets("Sheet1")
    Set tName = ws.ListObjects("Table3") ' 注意你原代码这里拼写错误，是ListObjects不是ListObject
    
    ' 判断是否存在数据行，避免空表删除报错
    If Not tName.DataBodyRange Is Nothing Then
        tName.DataBodyRange.Delete
    End If
    
RestoreSettings:
    ' 恢复Excel原有设置
    Application.ScreenUpdating = origScreenUpdating
    Application.Calculation = origCalculation
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "操作出错：" & Err.Description, vbCritical
    End If
End Sub

补充说明 #

• 如果你需要仅删除可见行、保留隐藏行，只需要把上面的删除逻辑替换为：

  If Not tName.DataBodyRange Is Nothing Then
      tName.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
  End If
  

• 原代码的ListObject拼写错误，正确的集合名是ListObjects，也是潜在bug点

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