使用多列复制pivottable结果

Question

我有一个具有数据连接的工作簿，我设置了一个数据透视表，如下所示：

可转座结果基于：

我正在尝试按列（日）然后（好数量）复制，转移任何结果，并将它们移动到另一张表，如下所示：

我一直在尝试不同的事情几个小时没有结果。我已经尝试过记录宏，.Copy Destination，选择然后复制，Getpivotdata并且没有任何工作。我唯一能做的就是从1行选择1个“Good Qty”。

我最接近的工作是以下代码：

Sheets("Pivot_Table").PivotTables("Metric_Display").PivotSelect("Good Qty")

这会按天选择每一列和所有“Good Qty”，但我无法复制，因为我收到错误，说我无法复制多个部分。

此工作簿每天更新并添加一个新的Day列，接下来我尝试的只是找到最后一列使用并复制并粘贴它们自己的单元而不是使用数据透视表，但我认为必须是一种使用表格的方法。 非常感谢任何建议，谢谢。

Answer 1

经过一周的搜索，我找到了一个解决方案。

Set PvtTbl = Workbooks("AX_Cube_Report").Sheets("Good_Qty_Data").PivotTables("Good_Qty_PT")
PvtTbl.TableRange2.Offset(4, 0).Copy
Workbooks("AX_Cube_Report").Sheets("Good_Qty").Cells(2, 1).PasteSpecial xlPasteValues

密钥是.TableRange2命令

然后我计算行和列以删除不需要的行。