excel - Excel VBA切片器选择每个项目

Question

我想自动选择切片器中的每个项目，选择第一个项目，复制数据并粘贴到另一个工作表，然后选择切片器中的下一个项目并将数据复制并粘贴到另一个工作表，依此类推，直到最后一个项目在切片机中。

我用于复制和粘贴的 vba 代码如下：

Private Sub CommandButton1_Click()

Sheets("Sheet1").Select
Range("e3:f3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial 
Paste:=xlPasteValues

End Sub

标签： excelvbacopypivotpaste