我猜你是卡在遍历删除的环节了——直接在循环里删工作表很容易因为集合动态变化报错，而且你的代码没写完，我给你整理了一套稳定的实现方案，还考虑了Power Pivot关联透视表的情况：

修正后的完整代码 #

Sub DeleteAllPivotTables()
    ' PURPOSE: 删除所有包含透视表的工作表（可按需调整排除规则）
    Dim sht As Worksheet
    Dim pvt As PivotTable
    Dim wsNamesToDelete As Collection
    Dim wsName As Variant
    
    ' 关闭屏幕刷新和警告，提升运行速度并避免弹窗
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 先收集要删除的工作表名称，避免遍历过程中集合变动导致报错
    Set wsNamesToDelete = New Collection
    
    ' 遍历所有工作表，标记目标表
    For Each sht In ThisWorkbook.Worksheets
        ' 这里可以添加排除规则，比如保留数据源表：If sht.Name <> "PowerPivot数据源" Then
        If sht.PivotTables.Count > 0 Then
            ' 若只需删除透视表保留工作表，可保留下面的循环；若直接删表，这步可省略
            For Each pvt In sht.PivotTables
                pvt.TableRange2.Clear
            Next pvt
            wsNamesToDelete.Add sht.Name
        End If
    Next sht
    
    ' 批量删除标记的工作表
    For Each wsName In wsNamesToDelete
        ThisWorkbook.Worksheets(wsName).Delete
    Next wsName
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

关键注意事项 #

• 避免遍历删除的坑：直接在For Each sht循环里删除工作表，会导致工作表集合的索引动态变化，很容易触发“对象不存在”的错误。先把要删的表名存到集合里，再批量删除就稳了。
• 按需调整排除规则：如果你的工作簿里有需要保留的核心表（比如Power Pivot的数据源表），一定要在判断里加上排除条件，比如If sht.Name <> "核心数据源" And sht.PivotTables.Count > 0 Then。
• Power Pivot透视表兼容：Power Pivot生成的透视表和普通透视表的操作逻辑一致，这套代码完全能处理，不需要额外特殊处理。
• 恢复默认设置：最后一定要打开ScreenUpdating和DisplayAlerts，不然Excel会一直处于静默状态，影响后续操作。

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