Question

我有一个简单的宏，可以将数据透视表从一个选项卡复制到另一个选项卡。知道如何修改，以便将数据透视表粘贴为标准表吗？谢谢:)）

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

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

1 个答案: