关于VBA中autofilter criteria 筛选多个不包含情况的问题

[嗜睡12]

数据中有个字段，有多个条件需要不包含情况。可criteria1和criteria2只能选择两个不包含情况。 我也试过用array(<>*)进行处理，可是没有效果。 (制作宏的过程没办法模拟出这种情况) 请问这种情况该如何编写代码？ 谢谢指教

[milaoshu1020]

可以试试用AdvancedFilter,这里有一篇文章供参考:
http://www.360doc.com/content/17/0503/12/30583536_650589796.shtml

[milaoshu1020]

使用示范:

代码部分:

Option Explicit

'如果strVal字符串内包含arrKeywords字符串数组中的任意一项,返回False,否则返回True.
Public Function IsKeywordsExcluded(ByVal strVal As String, ParamArray arrKeywords()) As Boolean
    Dim i As Integer
    For i = LBound(arrKeywords) To UBound(arrKeywords)
        If InStr(arrKeywords(i), strVal) > 0 Then
            IsKeywordsExcluded = False
            Exit Function
        End If
    Next
    IsKeywordsExcluded = True
End Function

Sub Macro3()
'
' Macro3 Macro
'

'
    Range("A1:A27").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "C1:C2"), CopyToRange:=Range("I1"), Unique:=False
End Sub

示例下载:
链接：https://pan.baidu.com/s/1Wh06qxkiRoalYXZ69ontSA
提取码：n93e

[嗜睡12]

谢谢，我研究看看。这是属于数组循环吗？

[milaoshu1020]

不客气,是数组循环的.

[嗜睡12]

引用 4 楼 milaoshu1020的回复:

不客气,是数组循环的.

请问，这个分数怎么给啊？我还在研究，估计时间会长些，分数先给你吧

[嗜睡12]

引用 4 楼 milaoshu1020的回复:

不客气,是数组循环的.

我这里打出来的代码，公式条件下面是#name?,不是#value！，这是为什么？

[milaoshu1020]

没关系的,这里显示什么不重要,重要的是得到正确的结果.

[嗜睡12]

IsKeywordsExculded(姓名,"张三","七七","时时") 我这样测试不出这个效果啊。。 奇怪？？ 高级筛选应该是基本懂了，可这个公式测不出来呀，烦请请教，谢谢。

[嗜睡12]

引用 4 楼 milaoshu1020 的回复:

不客气,是数组循环的.

我这里IsKeywordsculded 这个函数未定义 难道excel就不能多设置几个包含和不包含吗？哭啊 ，烦请指导，谢谢。

[milaoshu1020]

函数要定义在模块里的,在工程窗口点击右键,选择添加模块,然后把这个IsKeywordsculded函数添加进去.

[嗜睡12]

引用 10 楼 milaoshu1020的回复:

函数要定义在模块里的,在工程窗口点击右键,选择添加模块,然后把这个IsKeywordsculded函数添加进去.

好的，谢谢。

[laoxgogo]

条件=IF(IFERROR(FIND("a",test),0)+IFERROR(FIND("b",test),0)+IFERROR(FIND("c",test),0)>0,FALSE,TRUE)，然后用高级筛选