Excel宏来捕获选定的过滤条件

Question

请帮助您获取用户在excel中过滤数据的条件，然后在宏中使用它来追加额外的过滤条件。

到目前为止，我已经完成了以下工作。如何建立动态标准，我喜欢如果有多个条件，我们是否有任何函数来捕获标准然后追加？

    With Rng.Parent.AutoFilter

    If Intersect(Rng, .Range) Is Nothing Then GoTo Finish

    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then GoTo Finish
        Filter = .Criteria1
        Filter = Filter & " OR " & Cells(4, 10)
        Select Case .Operator
            Case xlAnd
                Filter = Filter & " AND " & .Criteria2
            Case xlOr
                Filter = Filter & " OR " & .Criteria2
        End Select
    End With