复制数据透视表值和格式

Question

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

这是我的代码：

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。