VBA如何添加数组元素？
使用集合collection的key唯一性除去重复的值
suba()
dima(1to100)
dimbasnewcollection
dimiasinteger
a(1)=1
a(2)=3
a(3)=5
a(4)=7
a(5)=3
a(6)=5
a(7)=2
onerrorresumenext
fori=1to100
b.adda(i),str(a(i))
nexti
fori=1tob.count
a(i)=b(i)
endsub
