Excel 循环浏览筛选列中所有可能的选项

Excel 循环浏览筛选列中所有可能的选项,excel,vba,Excel,Vba,我正在寻找有关宏的帮助,该宏将使用列的过滤器来遍历过滤器上的每个可能选择。然后,它将复制并粘贴过滤后的选择,清除过滤器,然后重新应用到过滤器范围上的下一个可能选项。关于这个有什么想法吗?提前感谢。这只是一个示例…………您必须使其适应您的数据和模式。假设我们有一个数据选项卡,如: 我们希望在类型上运行所有选项(即alpha、beta、gamma),并分别捕获它们。此宏: Sub macroxx() Dim sh1 As Worksheet, sh2 As Worksheet Se

我正在寻找有关宏的帮助,该宏将使用列的过滤器来遍历过滤器上的每个可能选择。然后,它将复制并粘贴过滤后的选择,清除过滤器,然后重新应用到过滤器范围上的下一个可能选项。关于这个有什么想法吗?提前感谢。

这只是一个示例…………您必须使其适应您的数据和模式。假设我们有一个数据选项卡,如:

我们希望在类型上运行所有选项(即alpha、beta、gamma),并分别捕获它们。此宏:

Sub macroxx()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("data")
    Set sh2 = Sheets("results")
    Dim ary(1 To 3) As String, tablee As Range
    Dim i As Long, j As Long

    j = 1
    ary(1) = "alpha"
    ary(2) = "beta"
    ary(3) = "gamma"
    Set tablee = sh1.Range("A1:C28")

    For i = 1 To 3
        tablee.AutoFilter Field:=3, Criteria1:=ary(i)
        tablee.Copy sh2.Cells(1, j)
        j = j + 4
    Next i
End Sub
我们运行选项并将结果放在“结果”选项卡中:


您需要先提供自己的尝试。这不是一个代码编写服务。