怎样去除内存数组的重复值

SZHPBSEH

怎样去除内存数组的重复值，比如数组{1；2；3；1；5；3；6；8；6}变成{1；2；3；5；6；8}

swl4561255

说清楚这个内存数组是怎么来的？从源头上处理也许会更方便。

sscylh

从源头上解决吧,单纯这样做会挺困难的

Kelidai

swl4561255 发表于 2012-5-20 15:38
说清楚这个内存数组是怎么来的？从源头上处理也许会更方便。

是啊，有时用字典就可以直接达到效果。

azxxuexi

Sub sy()
Dim i, j As Integer
Dim arr
Dim brr As New Collection
    arr = Array(1, 2, 1, 5, 3, 6, 8, 6)
    On Error Resume Next
    For i = 1 To UBound(arr)
        brr.Add arr(i), Str(arr(i))
    Next
    For i = 1 To brr.Count
       MsgBox brr(i)
    Next
End Sub
看是不是楼主想要的效果，运行代码即可，若是大批量，则根据需要加循环

SZHPBSEH

你好，能不能用函数解决。