复制数据透视表和粘贴没有数据透视表格式

我有一个简单的macros将一个数据透视表从一个选项卡复制到另一个。 任何想法如何修改，以便数据透视表粘贴为标准表？ 谢谢 ：）

Sub Five_Felicia_For_MFG() Sheets("5Felicia").Range("A1:M1000").Copy Destination:=Sheets("5Felicia for MFG").Range("A1") Sheets("5Felicia for MFG").Columns("A:M").AutoFit End Sub 

Answer 1

如果你使用类似这样的PasteSpecial命令，它应该可以工作：

 Sub copy_pivot_table() Sheets("5Felicia").Range("A1:M1000").Copy Sheets("5Felicia for MFG").Range("A1:M1000").PasteSpecial xlPasteValues End Sub 

编辑：

如果你想把它变成一个普通的表格（上面只是给你在表格上的值），你可以这样做：

 Sub copy_pivot_table() Dim objTable As ListObject Dim srcRng As Range, dstRng As Range Set srcRng = Sheets("5Felicia").Range("A1:M1000") Set dstRng = Sheets("5Felicia for MFG").Range("A1:M1000") srcRng.Copy dstRng.PasteSpecial xlPasteValues Set objTable = Sheets("5Felicia for MFG").ListObjects.Add(xlSrcRange, dstRng, , xlYes) objTable.TableStyle = "TableStyleMedium2" End Sub