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