如何复制数据透视表值而不复制它？

Question

我有一张带有数据透视表的工作表，我想将整个PT作为值复制到另一个工作表。如果不使用.Copy和.PasteSpecial方法，我该怎么做？

我想知道类似的事情：

wsTarget.Cells = wsPivot.Cells.Value

但它给了我一个 Out of memory 错误。

Answer 1

因此，在没有实际复制的情况下复制（/ tranfsfer）数据透视表的方法之一是：

wsTarget.Range(wsp.Range("A1").CurrentRegion.Address).Value = _ 
  wsPivot.Range("A1").CurrentRegion.Value