excel - 复制数据透视表值和格式

Question

我似乎无法获取要复制的数据透视表格式，我只能获取要传输的值。我使用这篇文章作为参考：复制数据透视表格式

这是我的代码：

Sub copyPaste(ByVal sht As Variant, ByVal cell As String)
Dim r As range
    pt.TableRange2.Offset(1, 0).Copy
    With wbReport.Sheets(sht).range(cell)
            .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

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

            '.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
    End With

End Sub

我错过了什么吗？

Answer 1

显然问题是.Offset(1, 0). 当您像我一样偏移该范围时，出于某种原因，不会复制着色格式。我现在的解决方法是删除该花絮，然后复制TableRange2然后删除表的相应顶行。请注意，我使用的是 mac excel 2011。