ピボットテーブルをコピーし、ピボットテーブルの書式設定なしで貼り付け

Question

ピボットテーブルをあるタブから別のタブにコピーする単純なマクロがあります。ピボットテーブルをどのように変更すればよいのでしょうか？標準テーブルとして貼り付けられますか？感謝:)あなたはこのようなものを使用してPasteSpecialコマンドとしてそれを行う場合は、それが動作するはず

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

：

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

EDIT：

あなたは、通常のテーブルにそれを変えたい場合（上記はシート上の値を示しています）、これを行うことができます：

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