如何编写精简Excel宏清除工作簿中普通表格的数据？

精简后的宏代码 #

Sub ClearAllTableData()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim dataRows As Range
    Dim totalRow As Range
    
    ' 关闭屏幕更新，加速宏运行
    Application.ScreenUpdating = False
    
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历工作表中所有表格
        For Each tbl In ws.ListObjects
            ' 排除查询表和透视表，只处理普通表格
            If tbl.SourceType = xlSrcRange And Not tbl.QueryTable Is Nothing = False And Not tbl.IsPivotTable Then
                ' 定义表格的数据行（表头之后，汇总行之前）
                Set dataRows = tbl.DataBodyRange
                If Not dataRows Is Nothing Then
                    ' 清除数据内容
                    dataRows.ClearContents
                    ' 清除单元格填充色
                    dataRows.Interior.Pattern = xlNone
                    ' 删除所有数据行（保留表头和汇总行）
                    dataRows.Delete
                End If
                
                ' 设置汇总行的SUBTOTAL公式（假设汇总行是表格最后一行，对应C到E列）
                Set totalRow = tbl.ListRows(tbl.ListRows.Count).Range
                With totalRow.Columns("C:E")
                    .FormulaR1C1 = "=SUBTOTAL(109,R[-" & tbl.ListRows.Count - 1 & "]C:R[-1]C)"
                End With
            End If
        Next tbl
    Next ws
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "所有普通表格数据已清除完成！"
End Sub

代码说明 #

• 去除冗余操作：删掉录制宏里所有无用的Select、滚动操作，这些都是手动操作的冗余记录，宏运行完全不需要。
• 自动遍历处理：通过循环自动遍历工作簿内所有工作表，以及每个工作表中的所有普通表格，不用手动指定工作表或表格名称，新增工作表后无需修改代码。
• 精准过滤表格：通过判断SourceType、QueryTable和IsPivotTable属性，自动排除查询表（Query Table）和透视表（Pivot Table），只处理普通表格。
• 批量数据处理：一次性清除表格数据内容、重置单元格填充色，删除多余数据行，同时自动维护汇总行的SUBTOTAL公式，确保引用范围正确。
• 提升运行效率：加入Application.ScreenUpdating = False关闭屏幕刷新，大幅提升宏的运行速度，执行完成后恢复屏幕更新并弹出提示。

内容的提问来源于stack exchange，提问作者O. David Ugochukwu