能否移除Excel指定工作表数据透视表与图表的源数据并保留格式？

完全可以实现，下面提供两种可行方案：

手动操作步骤（适合少量工作表） #

• 选中「Combined」到「PPA HQ」的所有工作表：按住Shift键点击首尾工作表，即可选中连续区间内的所有表
• 右键选中的工作表，选择「移动或复制」，勾选「建立副本」，目标工作簿选择「新工作簿」，点击确定
• 在新工作簿中，逐个处理透视表：选中透视表区域，按Ctrl+C复制，右键选择「粘贴选项」→「值和格式」，将透视表转为静态内容
• 处理图表：若图表基于透视表，转成静态值后图表会自动关联新的静态区域；若图表直接关联源数据，可右键图表选择「复制」，然后右键粘贴为图片，再删除原图表
• 将处理好的工作表移回原工作簿，删除原工作簿中存放源数据的工作表

VBA批量处理脚本（适合大量工作表） #

按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码，修改源数据工作表名称（若需自动删除）后运行宏：

Sub KeepPivotChartFormatRemoveSource()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim cht As ChartObject
    Dim rng As Range
    
    ' 遍历目标区间内的工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name >= "Combined" And ws.Name <= "PPA HQ" Then
            ' 将透视表转为静态值和格式
            For Each pt In ws.PivotTables
                Set rng = pt.TableRange1
                rng.Copy
                rng.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                rng.PasteSpecial Paste:=xlPasteFormats
                Application.CutCopyMode = False
                pt.TableRange1.Clear
                rng.Value = rng.Value
            Next pt
            
            ' 将图表转为静态图片（可选，彻底避免数据源依赖）
            For Each cht In ws.ChartObjects
                cht.CopyPicture Appearance:=xlScreen, Format:=xlPicture
                ws.Paste
                cht.Delete
            Next cht
        End If
    Next ws
    
    ' 自动删除源数据工作表（请替换为实际源数据表名称）
    ' On Error Resume Next
    ' ThisWorkbook.Worksheets("源数据").Delete
    ' On Error GoTo 0
    
    MsgBox "处理完成"
End Sub

注意事项 #

• 操作前务必备份原工作簿，防止数据丢失
• 透视表转为静态值后，将失去筛选、刷新等交互功能
• 若需保留图表的编辑功能，不要转成图片，确保其数据源已转为静态值区域

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