[原创]Filter高效处理不重复数组

兰州人

关键语句

        Temp = Filter(Arr, xm(i)) '搜索数组
        If UBound(Temp) = -1 Then '如果未找到

Sub ll()

    Dim xm, Arr(), Temp() As String '声明变量
    Dim s%, r% '声明单值变量
    On Error Resume Next '启动一个错误处理程序
    xm = Array(2, 3, 1, 9, 9, 2, 3, 1, 2, 2, 2, 1, 9, 9, 9, 3)
    r = 0 '初值
    s = UBound(xm) '最大下标
    For i = 0 To s '循环
        Temp = Filter(Arr, xm(i)) '搜索数组
        If UBound(Temp) = -1 Then '如果未找到
            r = r + 1 '序号，自增1
            ReDim Preserve Arr(1 To r) '定义动态数组大小
            Arr(r) = xm(i) '把姓名复制到数组Arr()中。
            Debug.Print Arr(r)
        End If
    Next
    Debug.Print
End Sub

style6301

有何用处？能否指明？

刚开始学习VBA，以前没有学过VB，只学过True Basic和Pascal