VB 如何删除重复元素重建数组,没分数愿意回答不?

a = Array(12,33,kjgf,567,12,kjgf,09kdf)
我想删除上面数组中重复的元素,得到a = Array(12,33,kjgf,567,09kdf)
并且再次调用数组A时就是删除后的数组a = Array(12,33,kjgf,567,09kdf)
,网上删除重复元素的代码很多,但再次调用的时候都是没有删除时的数组,可能是我不会调用吧,哪位大哥能帮一下不,不能能用Dictionary?
抱歉没分数,不愿意回答的可以理解

Private Sub Command1_Click()
Dim a, i%, d
a = Split("12,33,kjgf,567,12,kjgf,09kdf", ",")
Set d = CreateObject("scripting.dictionary")
For i = 0 To UBound(a)
If Not d.Exists(a(i)) Then d.Add a(i), ""
Next i
a = d.keys
Print Join(a, ", ")
End Sub
温馨提示:答案为网友推荐,仅供参考
相似回答
大家正在搜