请问如何去除一个数组中的重复项？谢谢

[kwxx]

比如定义一个数组
Dim a(10) as Long
For i = 1 to 5
a (i) = 1
Next i
For i = 6 to 10
a (i) = 2
Next i
于是数组a的元素有五个1五个2，现在希望只保留两个元素，一个1一个2，请问如何实现？

[crycoming]

Function Distinct(a() As String) As String()
Dim i As Long
Dim ii As Long
Dim b() As String
Dim bExist As Boolean

ReDim b(0) As String

For i = LBound(a) To UBound(a)
bExist = False
For ii = LBound(a) To UBound(a)
If b(ii) = a(i) Then bExist = True: Exit For
Next
If bExist = False Then
ReDim Preserve b(UBound(b) + 1) As String
b(UBound(b)) = a(i)
End If
Next
Distinct = b
End Function

[crycoming]

把string 该成Long 看错了

[crycoming]

返回值中的数组(0)是无效的
Function Distinct(a() As Long) As Long()
Dim i As Long
Dim ii As Long
Dim b() As Long
Dim bExist As Boolean

ReDim b(0) As Long

For i = LBound(a) To UBound(a)
bExist = False
For ii = LBound(b) To UBound(b)
If b(ii) = a(i) Then bExist = True: Exit For
Next
If bExist = False Then
ReDim Preserve b(UBound(b) + 1) As Long
b(UBound(b)) = a(i)
End If
Next
Distinct = b
End Function

[sdrcxzy]

for i =1 to k
for j =i+1 to k-1
if a(i)=a(j) then
for m=j+1 to k
a(m-1)=a(m)
next m
k=k-1
endif
next j
next i
a(1)……a（k）
没调试过，自己改改。不是很懂vb

[DooDu]

再开辟一个数组，记录存在的项，如果重复，不记录

[3q2008Com]

DooDu(杜霖:I want,I can.(MmMVP马甲)(准备闭关……)) ( ) 信誉：100

方法好

[TechnoFantasy]

创建一个collection，然后把数组中的数作为key往里面加，因为key不能重复。所以如果有重复的加入会出错，你用一个on error resume next继续，最后出来的collection里面就是不重复的全部数字了。