VBAで配列から重複している要素を削除する

VBAで配列から重複している要素を削除するには
Dictionaryオブジェクトを使用します。

Dictionaryオブジェクトを使用するためには
Microsoft Scripting Runtimeに参照設定を行う必要があります。
参照設定の方法についてはこちらをご覧ください。

VBAに標準で含まれていない機能があるときは外部のライブラリを参照して、外部ライブラリ内の機能を利用します。この外部ライブラリの機能を利用する設定を、参照設定と言います。

配列から重複を削除するコードは以下になります。

Option Explicit
Function deleteDuplicateItem(ary() As Variant) As Variant()
'###################################################################################
'配列から重複している要素を削除する
'Dictionaryを使用するので、Microsoft Scripting Runtimeの参照設定が必要
'-----------------------------------------------------------------------------------
'引数  :ary  重複を削除したい配列
'###################################################################################

  Dim dic As Dictionary
  Set dic = New Dictionary
  
  Dim i As Long
  
  For i = 0 To UBound(ary)
    If dic.Exists(ary(i)) = False Then
      dic.Add ary(i), ary(i)
    End If
  Next i
    
  Dim tmpAry() As Variant
  ReDim tmpAry(dic.Count - 1)
  
  For i = 0 To UBound(tmpAry)
    tmpAry(i) = dic.Items(i)
  Next i
  
  deleteDuplicateItem = tmpAry
  
  Set dic = Nothing
  
End Function

Option Explicit

Function deleteDuplicateItem(ary() As Variant) As Variant()

'###################################################################################

'配列から重複している要素を削除する

'Dictionaryを使用するので、Microsoft Scripting Runtimeの参照設定が必要

'-----------------------------------------------------------------------------------

'引数 :ary 重複を削除したい配列

'###################################################################################

Dim dic As Dictionary

Set dic = New Dictionary

Dim i As Long

For i = 0 To UBound(ary)

If dic.Exists(ary(i)) = False Then

dic.Add ary(i), ary(i)

End If

Next i

Dim tmpAry() As Variant

ReDim tmpAry(dic.Count - 1)

For i = 0 To UBound(tmpAry)

tmpAry(i) = dic.Items(i)

Next i

deleteDuplicateItem = tmpAry

Set dic = Nothing

End Function

  For i = 0 To UBound(ary)
    If dic.Exists(ary(i)) = False Then
      dic.Add ary(i), ary(i)
    End If
  Next i

For i = 0 To UBound(ary)

If dic.Exists(ary(i)) = False Then

dic.Add ary(i), ary(i)

End If

Next i

配列の要素をDictionaryオブジェクトに格納します。
Existsメソッドを使用し、格納されてない配列要素だけを
Dictionaryに格納します。

  Dim tmpAry() As Variant
  ReDim tmpAry(dic.Count - 1)

Dim tmpAry() As Variant

ReDim tmpAry(dic.Count - 1)

tmpAryをDictionaryのデータサイズ分、要素数を確保します。

  For i = 0 To UBound(tmpAry)
    tmpAry(i) = dic.Items(i)
  Next i

For i = 0 To UBound(tmpAry)

tmpAry(i) = dic.Items(i)

Next i

Dictionaryの内容をtmpAryに格納します。

deleteDuplicateItem = tmpAry

28	deleteDuplicateItem = tmpAry

tmpAryを戻り値として返します。

test_deleteDuplicateItemでdeleteDuplicateItem Functionのテストをしてみます。
配列aryの”テスト1″という項目が重複しています。

Option Explicit
Sub test_deleteDuplicateItem()

  Dim ary(3) As Variant
  ary(0) = "テスト1"
  ary(1) = "テスト2"
  ary(2) = "テスト1"
  ary(3) = "テスト3"
  
  Dim ary2() As Variant
  ary2 = deleteDuplicateItem(ary)
  
  Dim i As Long
  Dim s As String
  s = ""
  For i = 0 To UBound(ary2)
    s = s & ary2(i) & vbNewLine
  Next i
  MsgBox s
  
End Sub