excel - excel vba - 如何将数据透视表中的所有字段复制到同一张表中的其他单元格

Question

我在 excel 中有一个带有组合框的用户表单，当我在组合框中选择某些内容时，它会自动更新某个工作表中的数据透视表。现在我想获取数据透视表中的所有字段并将它们复制到另一个库。我需要用 vb 编写它，但由于某种原因它不会复制单元格。那是我的代码：

Set x = ActiveSheet.PivotTables("PivotTable4.1").DataBodyRange.Cells
x.Copy
Application.Goto Reference:="pivot_paste"
x.Paste

出于某种原因，除了最后一行之外，一切都很好，请帮忙

Answer 1

x.Paste意味着将其复制到范围 x，这显然不是您想要的。像这样的东西应该工作：

Set x = ActiveSheet.PivotTables("PivotTable4.1").DataBodyRange.Cells
x.Copy Destination:=ActiveSheet.Range("pivot_paste")