'====================================================================
'利用字典去重，输入的参数为一个 一维数组，返回为一个起始下标为0的数组
Function aGetOnlyList(aList) ’aList为一维数组 列表
  Dim Dic, i% 
  Set Dic = CreateObject("scripting.dictionary") '创建字典对象
  For i = LBound(aList) To UBound(aList) '遍历数组
    Dic(aList(i)) = vbNull
  Next i
  aGetOnlyList = Dic.keys '将字典 Keys 作为返回值
  Set Dic = Nothing
End Function

以下为关联文章

• VBA 字典方法及属性介绍
• VBA 利用字典去重