将数组A中唯一值至数组B中，即如SELECT DISTINCT功能

Question

精典代码推荐：
除去数组中所有重复项：生成无重复项新数组：Function ClearRepeatItem(OrgArray as variant, ByVal StrSplit as string) As  Variant
Dim i as long, StrChange as String
  
  For i= 0 to Ubound(OrgArray)    
    If len(StrChange)=len(Replace(StrChange,OrgArray(i),"")) then
        StrChange=IIf(Len(StrChange)=0,OrgArray(i), StrSplit & OrgArray(i) )
    End if
  next i
  ClearRepeatItem=Split(StrChange,StrSplit)
  
End Function 这是用于字串数组的。

Answer 1

to Bardo(巴顿)
这个程序是不是有局限性，数组中不能包含strsplit这个字符

Answer 2

这个定字串好指定呀
如ASCII <34的