VBA/VB6移除数组中重复的数据
需要引用 'Microsoft Scripting Runtime'
Function ArrDelAsMe(ByVal arr As Variant) As Variant...''数组去重复项包括重复项自身
' 这个函数是移除数组中重复的数据,包括自身...1,2,2,3,4,5,5,5,6) 将变成 Array(1,3,4,6)
' 需要引用...dic.Remove (val) '删除字典中重复的数据
End If...'结束如果
Next '迭代
EF