复制数据透视表格式

我无法将数据透视表格式复制到新工作表。 基本上我想要做的是这样的：

someRange.Copy someOtherRange.pasteSpecial xlPasteValues someOtherRange.pasteSpecial xlPasteFormats 

基本上，我想在一张新表中的数据透视表上的当前视图的确切副本，但我只想要的值和格式（不连接到数据透视表不再）。 手动执行此过程会产生正确的结果，但出于某种原因，格式不会在通过vba使用相同方法时复制…想法？

更新：请求的确切代码：

 Application.CutCopyMode = False pivotSheet.Range(pivotSheet.usedRange.Cells(1, 2), pivotSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.Columns.Count)).Copy updatesSheet.Range(updatesSheet.Cells(1, 1), updatesSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.usedRange.Columns.Count)).PasteSpecial xlPasteValues updatesSheet.Range(updatesSheet.Cells(1, 1), updatesSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.usedRange.Columns.Count)).PasteSpecial xlPasteFormats Application.CutCopyMode = False 

Answer 1

尝试和testing

 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 

快照

Answer 2

在手动复制和粘贴之前，开始录制一个macros。 完成后，停止录制并检查录制的代码。 你会得到一堆额外的东西，你可以删除，但你也将得到正确的语法来做你想做的事情。