Filter是包含比对，有没有完全比对的函数？

mavin

我的目的是，在一个数组中，排除掉1个值，形成一个新的数组。
Sub x()
    Dim arr, arr2
    arr = Array("1", "2", "3", "35")
    arr2 = Filter(arr, "3", False)
    MsgBox Join(arr2, ",")
End Sub
这段是测试代码，Filter是包含查询，把35也排除出去了。
感觉Filter应该再多一个参数，是完整比对的。
或者是还有一个别的函数，求高手指点！

我是来讨说法的

自己写个不要太简单

魂断蓝桥

没有别的函数了。可以用字典实现你的要求。

Sub x()
    Dim arr, d, i%
    Set d = CreateObject("Scripting.Dictionary")
    arr = Array("1", "2", "3", "35")
    For i = 0 To 3
        If arr(i) <> 3 Then d(arr(i)) = ""
    Next
    MsgBox Join(d.keys, ",")
    Set d = Nothing
End Sub

mavin

好的，知道没有其他的函数，我也就死心了。
用Filter感觉代码非常简洁，95%也能满足我的要求了。
这段代码主要是拆分数据用的，下属的各个事业部也不存在一个单位的名字包含在另一个单位中。
有空再改一段循环来代替吧。