Excel VBA：将透视复制到新工作表时保留粗体透视小计标签

我试图将透视表复制到一个新的工作表中，该工作表包含透视值加上粗体小计。这是我在另一篇文章中使用的（）

然而，当我使用这段代码时，我得到的只是pivot中没有格式的值。我需要保留小计的粗体格式，以便在新工作表中以不同的方式处理这些小计

我还尝试使用文本输出确定小计（显然，非小计显示一个空格，但当您查看公式栏中的实际文本值时，没有空格）

---

有什么想法吗？或者，有没有更好的解决方案来尝试在我复制出透视后确定哪些行是小计

是否有一种方法可以在透视表上使用条件格式？我可以，但问题是，当我从透视复制到另一个工作表时，没有任何格式被保留。我需要的格式（粗体小计标签）已在透视中。请尝试使用“xlPasteAllUsingSourceTheme”。我不确定这是否会超过数据透视表，但只要整个数据透视表不在所选内容中，它就不能。如果我手动操作，它似乎会保留格式，但当合并到宏中时，我得到的只是未格式化的文本。是否有一种方法可以在数据透视表上使用条件格式？我可以，但问题是，当我从轴复制到另一个工作表时，没有任何格式被保留。我需要的格式（粗体小计标签）已在透视中。请尝试使用“xlPasteAllUsingSourceTheme”。我不确定这是否会超过数据透视表，但只要整个数据透视表不在所选内容中，它就不能。如果我手动操作，它似乎会保留格式，但当合并到宏中时，我得到的只是未格式化的文本。

Option Explicit

Sub Sample()
    With Sheets("Sheet1")
        .Range("H1:I6").Copy

        With .Range("M7")
            .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

            .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        End With
    End With
End Sub