如何利用数组的FILTER函数将是否包含某字符作为判断条件

autumnalRain

如下面代码中红色字体部分：
想设置这样的条件，如果数组ARR中不包括字符“D"则执行语句，应该怎么设置？因为FILTER返回值为数组，而非逻辑值，所以请老师们指导红色部分应该怎么改?
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub TEST()
ARR = Array("A", "V", "C")
If VBA.FLITER(ARR, "D", FALSE) Then
  MSGBOX "NO EXISTS"
End If
End Sub

zax010

Sub TEST()
    ARR = Array("A", "V", "C")
    s = Filter(ARR, "D")
    If UBound(s) < 0 Then
        MsgBox "NO EXISTS"
    End If
End Sub

autumnalRain

zax010 发表于 2015-10-22 14:04
Sub TEST()
    ARR = Array("A", "V", "C")
    s = Filter(ARR, "D")

十分感谢！{:soso_e163:}{:soso_e163:}

autumnalRain

数据1	数据2	差异1（正向比较）	差异2（反向查找）
4 有货#8 有货#2 有货#6 有货#10 有货	4 有货#8 有货#0 有货#2 有货#6 有货#10 有货	有货#0
你 一 个 兵 中	你 是 一 个 兵	是	中
B3 中 冇 的	A3 中 没 的	A3 没	B3 冇

如图所示数据，要求找出数据2与数据1对比，找出独有项目；要求2，反向对比


自定义函数

1. Function GETDIFFERENT(源数据 As Range, 比较区域 As Range)
   
2. Application.Volatile
   
3. ARR = Split(源数据, " ")
   
4. BRR = Split(比较区域, " ")
   
5. For I = 0 To UBound(BRR)
   
6.    S = VBA.Filter(ARR, BRR(I))
   
7.    If UBound(S) < 0 Then
   
8.        SR = SR & " " & BRR(I)
   
9.       Else
   
10.        GoTo LINE
    
11.     End If
    
12. LINE: Next
    
13. GETDIFFERENT = SR
    
14. End Function

复制代码

autumnalRain

字典方法

1. Function GetDiff(源数据 As Range, 比较区域 As Range) '说明: 可以反向查找
   
2. Application.Volatile
   
3. ARR = Split(源数据, " ")
   
4. BRR = Split(比较区域, " ")
   
5. Set D = CreateObject("scriptinG.dictionary")
   
6. For I = 0 To UBound(ARR)
   
7.     D.Add ARR(I), ""
   
8. Next
   
9. For J = 0 To UBound(BRR)
   
10.   If D.Exists(BRR(J)) Then
    
11.     GoTo LINE
    
12.    Else
    
13.     SR = SR & " " & BRR(J)
    
14.   End If
    
15. LINE: Next
    
16. GetDiff = SR
    
17. End Function

复制代码

autumnalRain

1. Sub test()
   
2. On Error Resume Next ‘此句不可省略，否则会运行到第5行时报错“下标越界”
   
3. Dim arr()
   
4. S = Split(“SB，DT，t，t，y，ABx，t，a，bFR，c ，d，SB，f，g，h，I，x，y，t，c”, "，")
   
5. For i = 0 To UBound(S)
   
6.    If UBound(Filter(arr, S(i))) < 0 Then
   
7.      N = N + 1
   
8.      ReDim Preserve arr(1 To N)
   
9.      arr(N) = S(i)
   
10.      End If
    
11. Next
    
12. [B1].Resize(UBound(arr), 1) = Application.Transpose(arr)
    
13. End Sub

复制代码

yf_home

zax010 发表于 2015-10-22 14:04
Sub TEST()
    ARR = Array("A", "V", "C")
    s = Filter(ARR, "D")

不错，学习了，留个记号。