1

我进行了广泛的搜索，发现了大量关于排列的信息，但我想不出一个好的方法来适应它们。它令人沮丧，因为我认为答案并不难，但我似乎无法靠自己到达那里。

我正在尝试将包含选择标准的单元格范围转换为高级过滤器可以读取的范围。选择标准的范围如下所示：

原始选择标准

问题是，高级过滤器将每一行作为一个单独的过滤器集进行评估。逻辑看起来像这样：

[awake AND bob AND cat AND earth AND yes] OR [sleeping AND sally AND dog AND earth AND yes] OR ... OR [martha].

这是高级过滤器应该工作的方式，但我需要它像自动过滤器一样工作，我将遍历每个字段并检查每个过滤器标准。逻辑应该如下所示：

[awake OR sleeping] AND [bob OR sally OR george OR martha] AND [cat OR dog OR bird] AND [earth] AND [alive]

在阅读了文档和多个论坛之后，我能找到的唯一方法是在单独的行上生成可能的选择标准的每个组合。新的选择标准范围应如下所示：

工作选择标准

我已经通过手动设置选择标准范围对此进行了测试，它可以正常工作，但我无法弄清楚自动化它的代码。这是我到目前为止所做的 - 开始还可以，但很快就会开始重复并丢失某些排列：

   If UBound(numRows) > 1 Then

    With Worksheets("fltr")
        .Range(.Cells(4, 1), .Cells(4, UBound(numRows))).Copy Destination:=Worksheets("afltr").Range("A1")
    End With

    'Determine number of rows needed for Advanced filter
    numPermute = numRows(1)
    For dstCol = 2 To UBound(numRows)
        numPermute = numPermute * numRows(dstCol)
    Next dstCol

    'Copy all permutations to advanced filter
    For dstCol = 1 To UBound(numRows)
        If thisRow > numRows(dstCol) Then
        thisRow = 2
        For thisGrp = 1 To numRows(dstCol)
            andSpltPos = 1
            For numRepeat = 1 To numPermute / numRows(dstCol)
                sbstFltrItms = Worksheets("fltr").Cells(4 + thisGrp, dstCol).Value 'MOD Problem?
                Worksheets("afltr").Cells(thisRow, dstCol).Value = sbstFltrItms
                thisRow = thisRow + 1
            Next numRepeat
        Next thisGrp
    Next dstCol

End If

非常感谢一些帮助，无论是生成正确的排列还是使高级过滤器以其他方式工作。

4

1 回答 1

1

这对我有用。我将工作表置于“显示公式”模式（Ctrl+~），这样您就可以看到公式...要过滤的列表在 A7:B14 中，标准范围是 A3:B4。

在此处输入图像描述

应用过滤器后，我只得到一行（“B”，“val2”）。

于 2012-08-18T01:03:20.470 回答