excel - 如何复制数据透视表的第一列和最后一列的值？

Question

我目前有代码可以从数据透视表中复制值并将它们粘贴到工作表上：

摘要代码是：

Sub Pivotcopy()

    Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables("pivottable2")
    .
    .
    .
    pt.TableRange2.Copy    
    Sheets("newsheet").Range("A20").PasteSpecial xlPasteValues

但是，这会复制所有值。我想要的是只复制数据透视表的第一列和最后一列，即行标签列和总计列。之后，我想将其粘贴到“newsheet”表中。

Answer 1

尝试这个。你打破了它的背面，只需要适当地引用这两列。

Sub Pivotcopy()

Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables("pivottable2")

With pt.TableRange2
    Union(.Columns(1), .Columns(.Columns.Count)).Copy
End With

With Sheets("newsheet").Range("A20")
   .PasteSpecial xlPasteValues
   .Resize(3).EntireRow.Delete shift:=xlUp
End With

End Sub