可変長配列(Dictionary等)を使った重複除外リスト（単列）
連想配列などと呼ばれる可変長配列について、下記のようなシリーズで説明しています。
・可変長配列の機能整理
・可変長配列を使った重複除外リスト（単列） ←今回
・可変長配列を使った重複除外リスト（複数列）
今回は「重複しないリスト」を、「Collection」「Dictionary」「ArrayList」「SortedList」オブジェクトを使って実現させます。また比較のために「For～Next」を使って「同じ値は除外」する方法も併せて載せます。
なお、データ追加時・出力時に様々なアルゴリズムを使って並び変えを行う事は可能ですが、今回は省略しています。但しオブジェクト内に、並べ替えのメソッドを持っている場合には使用する事とします。
また、今回扱うリストは「単列（一次元配列）」とし、複数列（二次元配列）の場合については別項「可変長配列を使った重複除外リスト（複数列）」で説明します。但し「添付Excelファイル」は、比較の為に単列・複数列を１つにまとめました。コードは別々（単列はModule1＋UserForm1、複数列はModule2＋UserForm2）に記述していますが、元データはSheet1で共通です。
１．概要
今回は「ある一次元配列のデータ」をCollectionなどの可変長配列を使って「重複データを除外」し、その結果を確認することで、「各可変長配列の特徴」を把握することを目的としています。そのため図１のように、ワークシート上に置いた元データを一次元配列にし、フォーム上のボタンにより各可変長配列での処理を行い、その結果をリストボックスに表示することとしました。
図１
処理コードは以降で１つずつ紹介していきますが、処理の結果は図２のようになりました。
図２
まず「ArrayList」は、備わっているSortメソッドを使って並べ替えを行ったので、リストボックスのデータが昇順で並んでいます。また「SortedList」は自動的に並べ替えが行われています。
重複処理の結果は「重複除外処理のまとめ」で整理しますが、「そのまま」は除き、全部で３種類の重複判断があるようです。
２．マクロ
２－１．ワークシート（Sheet1）
元データは図３のように、Sheet1のA1セルから縦方向に並んでいるものとします。そのデータをフォーム起動時に吸い上げて一次元配列を作成します。
フォームの起動は、シート上のボタン（今回説明するのは「１次元配列」のボタンの方です）から行います。
図３
２－２．標準モジュール（Module1）
単列（一次元配列）のコードは、Module1に記述しています。
まず、元データの一次元配列を「OrgArray1」としてPublic宣言します（図４）。
- '========== ⇩(1) 共通変数の宣言 ============
- Public OrgArray1 As Variant '←ワークシート上の元データを一次元配列にしたもの
図４
シート上の「１次元配列」という名前のボタンから呼び出されるのが図５です。
１２行目「Call DataIn1」では、図６を呼び出して「シート上のデータを一次元配列に変換」しています。
１３行目「UserForm1.Show 0」では、UserForm1を起動します。ここではモードレス（フォーム起動時にシートの操作が可能）で起動していますが、これはUserForm1とUserForm2を同時起動させて、「一次元配列の処理」と「二次元配列の処理」の比較をできるようにするためです。
- '========== ⇩(2) フォームの起動 ============
- Public Sub start1()
- Call DataIn1
- UserForm1.Show 0
- End Sub
図５
図５の１２行目から呼び出されるのが図６です。
- '========== ⇩(3) 元データの配列化 ============
- Private Sub DataIn1()
- Dim r As Range '←元データの先頭セル範囲
-
- Set r = Sheets("Sheet1").Range("A1")
- If r.Value = "" Then
- OrgArray1 = Empty '←データが無い時はEmpty
- Exit Sub
- End If
-
- OrgArray1 = WorksheetFunction.Transpose(r.CurrentRegion)
- If IsArray(OrgArray1) = False Then
- ReDim OrgArray1(1 To 1)
- OrgArray1(1) = r.Value
- End If
- End Sub
図６
２４行目「Set r = Sheets("Sheet1").Range("A1")」では、Sheet1のA1セルを「データ先頭セル」として設定します。
２５行目「If r.Value = "" Then」では、先頭セルが空白セルか否かを調べ、空白セルだった場合には「元データは無し」とするため、２６行目「OrgArray1 = Empty」で変数OrgArray1にEmptyを設定した上で、２７行目「Exit Sub」でプロシージャを抜け出します。
「わざわざEmptyを設定しなくても、OrgArray1はVariant型だから、初期値のEmptyになるのでは」と思われると思います。確かにA1セルにデータが無い時の初回はEmptyになるのですが、違和感が出る場合があります。それは、A1セル以降にデータが並んでいる状態でフォームを開いた後、一旦フォームを閉じてからA1セルのデータを削除する場合です。
この場合、次にフォームを開いた時に「A1セルにデータが無いので、そのままプロシージャを抜け出してしまう」と、変数OrgArray1はEmptyにはならず、１つ前の「A1セル以降にデータがある」状態のままとなってしまうのです。
そのため、２６行目で「プロシージャを抜け出す前に、変数OrgArray1にEmptyを設定」しています。
先頭セル（r）に値が入っている場合は、３０行目以降で配列変数「OrgArray1」に元データを格納していきます。
３０行目「OrgArray1 = WorksheetFunction.Transpose(r.CurrentRegion)」は、元データ領域を「先頭セルからつながっている範囲」とするためにCurrentRegionプロパティを使用し、縦に並んでいるデータを取得します。しかし「縦に並んでいる」ために、そのままでは「縦に長い二次元配列」となってしまいますので、Transpose関数で行列を逆転させ、（横に長い）一次元配列としています。
しかしTranspose関数で行列逆転させた場合、データが複数行存在するのであれば「一次元配列」となるのですが、１行しかデータが無い場合（＝データは１つのみ）には、配列にならずに「単なる変数」になってしまいます。
今回はデータが１つ以上であれば「一次元配列」としたいので、１行しかデータが無い場合には３１～３４行目で「１要素の一次元配列」を作成します。
３１行目「If IsArray(OrgArray1) = False Then」では、３０行目で作成したものが「配列か否か」を調べています。データ領域が１行であれば配列では無くなるのでFalseとなり、３２～３３行目を実行します。
３２行目「ReDim OrgArray1(1 To 1)」では変数OrgArray1を１要素の配列に変更します。元々代入されていたA1セルの値が入った変数OrgArray1はクリアされてしまう形になります。
３３行目「OrgArray1(1) = r.Value」では、改めて先頭セル（A1セル）の値を配列OrgArray1の要素に代入します。
以上により、データがゼロであればEmpty値の変数OrgArray1、データが１つ以上であれば「一次元配列OrgArray1」が作成されます。
２－３．ユーザーフォーム（UserForm1）
単列（一次元配列）のコードは、UserForm1に記述しています。
２－３－１．フォームレイアウト
フォーム上のコントロール類のレイアウトは、図７のようにしました。処理を実行するためのボタンを６つと、処理後のデータを表示するためのリストボックスを適当に配置しています。ボタン表面のCaptionは配置時にプロパティ変更しています。
図７
２－３－２．フォームモジュール
２－３－２－１．ボタンクリックによる分岐
フォーム上のコマンドボタンをクリックした時に呼び出されるのが、図８の各プロシージャです。各プロシージャから呼び出すのはリストボックスのリスト作成をするmakeListプロシージャ（図９）です。
makeListプロシージャには、引数として「リスト表示させるための一次元配列」を渡しますが、その一次元配列は「各可変長配列で重複データを除外した配列」となります。
- '========== ⇩(4) ボタンクリックによる分岐 ============
- Private Sub CommandButton1_Click() '←「そのまま」ボタン
- Call makeList(OrgArray1)
- End Sub
-
- Private Sub CommandButton2_Click() '←「For～Nex」ボタン
- Call makeList(ForNext(OrgArray1))
- End Sub
-
- Private Sub CommandButton3_Click() '←「Collection」ボタン
- Call makeList(Collect(OrgArray1))
- End Sub
-
- Private Sub CommandButton4_Click() '←「Dictionary」ボタン
- Call makeList(Dict(OrgArray1))
- End Sub
-
- Private Sub CommandButton5_Click() '←「ArrayList」ボタン
- Call makeList(ArrayL(OrgArray1))
- End Sub
-
- Private Sub CommandButton6_Click() '←「SortedList」ボタン
- Call makeList(SortL(OrgArray1))
- End Sub
図８
「そのまま」ボタンをクリックした場合には、図６で作成したオリジナルの「元データ」の配列（OrgArray1）をmakeListに渡してリストを作成します。
「For～Nex」ボタン時には、元データを図１０のForNextプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「Collection」ボタン時には、元データを図１１のCollectプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「Dictionary」ボタン時には、元データを図１２のDictプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「ArrayList」ボタン時には、元データを図１５のArrayLプロシージャに渡し、重複データを除外＋並べ替えをした後の一次元配列をmakeListに渡してリストを作成します。
「SortedList」ボタン時には、元データを図１６のSortLプロシージャに渡し、重複データを除外＋並べ替えをした後の一次元配列をmakeListに渡してリストを作成します。
２－３－２－２．リストボックス作成
図８の各プロシージャから呼び出され、リストボックスのリストを作成するのが図９です。引数として「リスト化するための一次元配列」を受け取ります。
- '========== ⇩(5) リストボックス作成 ============
- Private Sub makeList(ListArray As Variant)
-
- Me.ListBox1.Clear
- If IsEmpty(ListArray) = True Then Exit Sub
- Me.ListBox1.List = ListArray
- End Sub
図９
７３行目「Me.ListBox1.Clear」では、リストを一旦クリアしています。
７４行目「If IsEmpty(ListArray) = True Then Exit Sub」では、受け取った引数がEmpty（＝１つもデータが無い）だった時には、リスト作成を行わずに終了します。
７５行目「Me.ListBox1.List = ListArray」では、配列そのものをリストに直接入れて、一発でリストを作成しています。なお、引数で受け取った一次元配列の要素数分だけ繰り返しながら、「Me.ListBox1.AddItem ListArray(i)」等で１つ１つリスト行を作成する方法でもOKです。
２－３－２－３．For～Next処理
図８の４６行目から呼び出されるのが図１０です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(6) For～Next処理 ============
- Private Function ForNext(ListArray As Variant) As Variant
- Dim buf() As Variant '←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
- Dim j As Integer '←新しい配列の要素数（順次増える）
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- ReDim buf(1 To 1)
- buf(1) = ListArray(1)
-
- For i = 2 To UBound(ListArray, 1)
- For j = 1 To UBound(buf, 1)
- If buf(j) = ListArray(i) Then Exit For
- Next j
-
- If j > UBound(buf, 1) Then
- ReDim Preserve buf(1 To UBound(buf, 1) + 1)
- buf(UBound(buf, 1)) = ListArray(i)
- End If
-
- Next i
-
- ForNext = buf
- End Function
図１０
８６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に、図１０を抜け出します。Functionのデータ型Variantの初期値である「Empty」が呼び出し元に戻る事になります。
データが１つ以上存在する場合は、呼び出し元に戻るデータも「必ず１つ以上存在」しますので、８８行目「ReDim buf(1 To 1)」で「１要素の配列」を作成します。
作られた配列bufの要素には、８９行目「buf(1) = ListArray(1)」で、引数として受け取った一次元配列の「先頭の要素」を格納します。
１つ目の要素の格納が完了したら、２つ目以降は９１～１０１行目で「重複していないデータが来たら、配列を拡大してから格納」していきます。
９１行目「For i = 2 To UBound(ListArray, 1)」では、引数として受け取った一次元配列の２つ目の要素から最終要素までを回しています。もし引数で受け取った配列が１要素だった場合は「For i = 2 To 1」の様に、初回と最終回が逆転してしまうためFor～Next内は実行されない事になります。
９２～９４行目のFor～Nextでは「新しく作っている配列（buf）内に、これから格納しようとしている値が存在するか否か」を調べています。
９２行目「For j = 1 To UBound(buf, 1)」で、新しい配列（buf）の要素数分だけカウンタ変数ｊを回します。
９３行目「If buf(j) = ListArray(i) Then Exit For」では、格納しようとしている値が既に存在（＝重複）したら、９２～９４行目のFor～Nextを抜け出します。
９３行目のIf文が成立して、For～Nextを抜け出す（Exit For）時には、その時点でのカウンタ変数ｊ値がメモリ上に残ります。またIf文が一回も成立せずにFor～Nextが回り切ってしまった場合には、カウンタ変数ｊ値は「UBound(buf, 1) + 1」になります。これはFor～Nextを回すたびにｊ値が増え、最後に９２行目のFor文で「最終値（UBound(buf, 1)）を超えているからFor～Nextは終了」という判断をするためです。
このｊ値を使って、重複の有無を９６行目「If j > UBound(buf, 1) Then」で行い、For～Nextが回り切った（＝重複は無かった）時に９７～９８行目を実行します。
９７行目「ReDim Preserve buf(1 To UBound(buf, 1) + 1)」で、格納する配列（buf）のサイズを現在よりも１つ大きなサイズに変更します。既に格納済みのデータを消さないようにPreserveキーワードを付けます。
９８行目「buf(UBound(buf, 1)) = ListArray(i)」で、サイズを大きくした配列bufの一番最後の要素に新しい値を追加します。
９１～１０１行目のFor～Nextを回し、引数で得た元データ配列を重複を除外しながら新たな配列（buf）に格納し直したら、１０３行目「ForNext = buf」で、関数プロシージャForNextの戻り値として配列bufを設定し、終了します。
２－３－２－４．Collection処理
図８の５０行目から呼び出されるのが図１１です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(7) Collection処理 ============
- Private Function Collect(ListArray As Variant) As Variant
- Dim C As Collection '←Collectionオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set C = New Collection
-
- For i = 1 To UBound(ListArray, 1)
- On Error Resume Next
- C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))
- On Error GoTo 0
- Next i
-
- ReDim buf(1 To C.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = C.Item(i)
- Next i
-
- Collect = buf
- Set C = Nothing
- End Function
図１１
１１６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１１を抜け出し、Variant型の初期値であるEmptyを戻します。
１１８行目「Set C = New Collection」では、Collectionオブジェクトを生成します。
１２０～１２４行目では、Collectionオブジェクトに元データを１つずつ追加していきます。CollectionのKeyはString型で指定する必要があり、またKeyの重複は出来ません。と言って、他可変長配列のように「Keyの存在をチェックするメソッド」がありませんので、ここでは「無理やり追加してみて、エラーが出たら重複していると判断」することにします。
１２０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
１２２行目「C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))」では、Keyには「文字列型にした値」を設定し、Itemには「そのままの値」を設定します。Keyに重複が無ければそのまま格納されますが、重複していれば「エラーが発生し、格納はされない」ことになります。エラーが発生するとプログラムが止まってしまいますので、１２１行目「On Error Resume Next」でエラーはスルーさせます。
Collectionオブジェクトへの格納が終了したら、１２６～１２９行目で値を取り出し、別な配列（buf）に格納し直します。
まず１２６行目「ReDim buf(1 To C.Count)」で、配列bufのサイズを指定します。Collectionに格納した要素数はC.Countで得られますので、その数と同じサイズの配列にします。
１２７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝Collectionの要素数）分だけ回します。
１２８行目「buf(i) = C.Item(i)」で、配列bufの要素へCollectionの値（Item値）を１つずつ代入していきます。
配列bufへの代入が完了したら、１３１行目「Collect = buf」で関数プロシージャCollectの戻り値に配列bufを設定します。最後に１３２行目「Set C = Nothing」でオブジェクトを解放し終了します。
２－３－２－５．Dictionary処理
図８の５４行目から呼び出されるのが図１２です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(8) Dictionary処理 ============
- Private Function Dict(ListArray As Variant) As Variant
- Dim D As Object '←Dictionaryオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set D = CreateObject("Scripting.Dictionary")
-
- For i = 1 To UBound(ListArray, 1)
- If D.Exists(ListArray(i)) = False Then
- D.Add Item:="", Key:=ListArray(i)
- End If
- Next i
-
- Dict = D.Keys
-
-
- Set D = Nothing
- End Function
図１２
１４５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１２を抜け出し、Variant型の初期値であるEmptyを戻します。
１４７行目「Set D = CreateObject("Scripting.Dictionary")」では、Dictionaryオブジェクトを生成します。
１４９～１５３行目では、Dictionaryオブジェクトに元データを１つずつ追加していきます。
１４９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
Dictionaryオブジェクトには「Keyの存在を調べるExistsメソッド」がありますので、１５０行目「If D.Exists(ListArray(i)) = False Then」でKeyの重複調査をします。
そのKeyの調査結果がFalse（＝重複が無い）の時に、１５１行目「D.Add Item:="", Key:=ListArray(i)」でDictionaryオブジェクトにデータを追加します。DictionaryにはKeyとItem（値）の両方をセットで追加する必要がありますが、今回はKeyだけで良いので「Key:=ListArray(i)」とし、Itemにはダミーで「""（長さゼロの文字列）」を設定しています。
なおDictionaryオブジェクトにデータを追加する手段として「Dictionary.Item(Key) = Item」という方法もあります。これは「データの修正」にも使用できるため、Existsメソッドを使用せずに「重複が有ったら上書き」していくという事にも使えます。この方法を使用すると、図１２の１４９～１５３行目を図１３のように置き換える事ができます。
- For i = 1 To UBound(ListArray, 1)
' If D.Exists(ListArray(i)) = False Then
- D.Item(ListArray(i)) = ""
' End If
- Next i
図１３
Dictionaryオブジェクトへのデータ追加が完了したら、１５５行目「Dict = D.Keys」で全てのKey値を取り出して戻り値であるDictに代入します。Keysメソッドは全てのKey値を「配列」の形で戻しますので、代入される変数Dictも配列となります。
なお戻される配列のインデックスは「ゼロ始まり」です。今回システムでは不具合は生じませんが、もし１始まりで無いとエラーが発生してしまう時には、図１４のように「Transpose関数」を２回実行することで「インデックスは１始まり」に変換されます。
- Dict = D.Keys
- Dict = WorksheetFunction.Transpose(Dict)
- Dict = WorksheetFunction.Transpose(Dict)
図１４
関数プロシージャDictの戻り値を設定後は、Dictionaryオブジェクト変数Dを１５８行目「Set D = Nothing」で解放します。
なお、１５１行目を「D.Add Item:=ListArray(i), Key:=ListArray(i)」と「値をDictionaryオブジェクトのItem側に追加」し、１５５行目を「Dict = D.Items」として「全ての値を戻す」手法でもOKです。
２－３－２－６．ArrayList処理
図８の５８行目から呼び出されるのが図１５です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(9) ArrayList処理 ============
- Private Function ArrayL(ListArray As Variant) As Variant
- Dim A As Object '←ArrayListオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set A = CreateObject("System.Collections.ArrayList")
-
- For i = 1 To UBound(ListArray, 1)
- If A.Contains(CStr(ListArray(i))) = False Then
- A.Add Value:=CStr(ListArray(i))
- End If
- Next i
-
- A.Sort
- ArrayL = A.toArray
-
- Set A = Nothing
- End Function
図１５
１７５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１５を抜け出し、Variant型の初期値であるEmptyを戻します。
１７７行目「Set A = CreateObject("System.Collections.ArrayList")」では、ArrayListオブジェクトを生成します。
１７９～１８３行目では、ArrayListオブジェクトに元データを１つずつ追加していきます。
１７９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
ArrayListオブジェクトには「値の存在を調べるContainsメソッド」がありますので、１８０行目「If A.Contains(CStr(ListArray(i))) = False Then」で値の重複調査をします。
その値の調査結果がFalse（＝重複が無い）の時に、１８１行目「A.Add Value:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおArrayListオブジェクトの値は、本来「データ型の混在はOK」なのですが、今回はSortメソッドを使って並べ替えを行うために「データ型を揃える」必要があります。ですので全て文字列型にするためにCstr関数を使って、データ型変換をした上で重複チェック（１８０行目）・データ追加（１８１行目）を行っています。
データ追加が完了した後、１８５行目「A.Sort」で「値の並べ替え」を行い、１８６行目「ArrayL = A.toArray」でArrayListオブジェクトの全データを配列の形で変数ArrayL（関数プロシージャArrayLの戻り値）に設定します。
なおtoArrayで戻される配列は、Dictionaryオブジェクトと同様に「インデックスはゼロ始まり」です。インデックスを１からにしたい場合は、図１４と同じく「Transpose関数」を２回実行して下さい。
２－３－２－７．SortedList処理
図８の６２行目から呼び出されるのが図１６です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(10) SortedList処理 ============
- Private Function SortL(ListArray As Variant) As Variant
- Dim S As Object '←SortedListオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set S = CreateObject("System.Collections.SortedList")
-
- For i = 1 To UBound(ListArray, 1)
- If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))
- End If
- Next i
-
- ReDim buf(1 To S.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = S.GetByIndex(i - 1)
- Next i
-
- SortL = buf
- Set S = Nothing
- End Function
図１６
２０６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１６を抜け出し、Variant型の初期値であるEmptyを戻します。
２０８行目「Set S = CreateObject("System.Collections.SortedList")」では、SortedListオブジェクトを生成します。
２１０～２１４行目では、SortedListオブジェクトに元データを１つずつ追加していきます。
２１０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
SortedListオブジェクトには「Keyの存在を調べるContainsKeyメソッド」がありますので、２１１行目「If S.ContainsKey(CStr(ListArray(i))) = False Then」でKeyの重複調査をします。
その調査結果がFalse（＝Keyの重複が無い）の時に、２１２行目「S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおSortedListオブジェクトのKeyは「データ型の混在はNG」ですので、全て文字列型に揃えるためにCstr関数を使いデータ型変換をした上で重複チェック（２１１行目）・データ追加（２１２行目）を行っています。なお、値（Value）はデータ型混在OKなので、そのまま（ListArray(i)）格納しています。
なおDictionaryオブジェクトと同様に、SortedListではデータ追加・データ修正の手段に「SortedList.Item(Key) = Value」が使えます。ですので２１０～２１４行目は図１７のように書き換える事が可能です。
- For i = 1 To UBound(ListArray, 1)
' If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Item(CStr(ListArray(i))) = ListArray(i)
' End If
- Next i
図１７
SortedListオブジェクトへのデータ追加が完了したら、２１６～２１９行目で値を取り出し、別な配列（buf）に格納し直します。
まず２１６行目「ReDim buf(1 To S.Count)」で、格納する配列bufのサイズを指定します。
２１７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝SortedListの要素数）分だけ回します。
２１８行目「buf(i) = S.GetByIndex(i - 1)」で、配列bufの各要素へSortedListの値を１つずつ代入していきます。SortedListのインデックスはゼロ始まりですので「i - 1」としています。
配列bufへの代入が完了したら、２２１行目「SortL = buf」で関数プロシージャSortLの戻り値に配列bufを設定します。
なお、今回システムでは「リストボックスに値を入れる」ことが目的となっています。リストボックス内では「値は全て文字列扱い」ですので、渡される側としては「文字列のみの配列」で充分です。逆に渡す側（図１６）からすれば「元データのデータ型を保った値（Value）」で無くても、並べ替えの為に「文字列型に変換したKey値」でOKということになります。ですので図１８のような事もOKとなります。
- S.Add Value:="", Key:=CStr(ListArray(i))
- buf(i) = S.GetKey(i - 1)
図１８
図１８では、２１２行目「S.Add Value:="", Key:=CStr(ListArray(i))」で、Key値には文字列型で格納し、値（Value）には適当な値（ここでは、長さゼロの文字列）を入れています。
そして２１８行目で取り出す時も「文字列型」であるKey値をGetKeyメソッドを使って取り出します。関数プロシージャSortLとして戻す配列内のデータ型は異なりますが、リストボックスに表示される時には全く同じとなります。
３．重複除外処理のまとめ
上記の「For～Next」と４種の可変長配列の処理の結果について整理すると、図１９のようになります。処理前の値の形を基準とし、各方法で同一と判断する範囲を緑線で囲っています。
図１９
まず「Collectionオブジェクト」では「大文字小文字・全角半角・ひらがなカタカナ」は同じとして処理しています。
Collection以外の方法では、Keyや値に格納する時に、並べ替えに必要な「データ型の統一」のための文字列変換を行った時には、当然ながら配列内の「数値」と「文字列にした数字」は同一扱いになります。なお、数値のみをKey値にする場合は数値比較が出来ますので、数値→文字列に直してしまうと逆におかしな結果になります（例："100" < "99"）。
Collectionオブジェクトは、参照設定やCreateObjectなどが不要のため良く使われるようですが、この重複判断には注意した方が良いと思います。
アプリ実例
「CSVファイルでデータを読み書きする月間予定表」
「サンプリング周期が異なるデータの補間法」
「複数行1データの並び替え」
「データの重みを考慮したComboBox入力補助」
「先入先出の入出庫管理システム」
「DVD等の内容・保管場所等管理システム」
可変長配列(Dictionary等)を使った重複除外リスト（its-020-021.xlsm）
フォームの起動は、シート上のボタン（今回説明するのは「１次元配列」のボタンの方です）から行います。
図３
２－２．標準モジュール（Module1）
単列（一次元配列）のコードは、Module1に記述しています。
まず、元データの一次元配列を「OrgArray1」としてPublic宣言します（図４）。
- '========== ⇩(1) 共通変数の宣言 ============
- Public OrgArray1 As Variant '←ワークシート上の元データを一次元配列にしたもの
図４
シート上の「１次元配列」という名前のボタンから呼び出されるのが図５です。
１２行目「Call DataIn1」では、図６を呼び出して「シート上のデータを一次元配列に変換」しています。
１３行目「UserForm1.Show 0」では、UserForm1を起動します。ここではモードレス（フォーム起動時にシートの操作が可能）で起動していますが、これはUserForm1とUserForm2を同時起動させて、「一次元配列の処理」と「二次元配列の処理」の比較をできるようにするためです。
- '========== ⇩(2) フォームの起動 ============
- Public Sub start1()
- Call DataIn1
- UserForm1.Show 0
- End Sub
図５
図５の１２行目から呼び出されるのが図６です。
- '========== ⇩(3) 元データの配列化 ============
- Private Sub DataIn1()
- Dim r As Range '←元データの先頭セル範囲
-
- Set r = Sheets("Sheet1").Range("A1")
- If r.Value = "" Then
- OrgArray1 = Empty '←データが無い時はEmpty
- Exit Sub
- End If
-
- OrgArray1 = WorksheetFunction.Transpose(r.CurrentRegion)
- If IsArray(OrgArray1) = False Then
- ReDim OrgArray1(1 To 1)
- OrgArray1(1) = r.Value
- End If
- End Sub
図６
２４行目「Set r = Sheets("Sheet1").Range("A1")」では、Sheet1のA1セルを「データ先頭セル」として設定します。
２５行目「If r.Value = "" Then」では、先頭セルが空白セルか否かを調べ、空白セルだった場合には「元データは無し」とするため、２６行目「OrgArray1 = Empty」で変数OrgArray1にEmptyを設定した上で、２７行目「Exit Sub」でプロシージャを抜け出します。
「わざわざEmptyを設定しなくても、OrgArray1はVariant型だから、初期値のEmptyになるのでは」と思われると思います。確かにA1セルにデータが無い時の初回はEmptyになるのですが、違和感が出る場合があります。それは、A1セル以降にデータが並んでいる状態でフォームを開いた後、一旦フォームを閉じてからA1セルのデータを削除する場合です。
この場合、次にフォームを開いた時に「A1セルにデータが無いので、そのままプロシージャを抜け出してしまう」と、変数OrgArray1はEmptyにはならず、１つ前の「A1セル以降にデータがある」状態のままとなってしまうのです。
そのため、２６行目で「プロシージャを抜け出す前に、変数OrgArray1にEmptyを設定」しています。
先頭セル（r）に値が入っている場合は、３０行目以降で配列変数「OrgArray1」に元データを格納していきます。
３０行目「OrgArray1 = WorksheetFunction.Transpose(r.CurrentRegion)」は、元データ領域を「先頭セルからつながっている範囲」とするためにCurrentRegionプロパティを使用し、縦に並んでいるデータを取得します。しかし「縦に並んでいる」ために、そのままでは「縦に長い二次元配列」となってしまいますので、Transpose関数で行列を逆転させ、（横に長い）一次元配列としています。
しかしTranspose関数で行列逆転させた場合、データが複数行存在するのであれば「一次元配列」となるのですが、１行しかデータが無い場合（＝データは１つのみ）には、配列にならずに「単なる変数」になってしまいます。
今回はデータが１つ以上であれば「一次元配列」としたいので、１行しかデータが無い場合には３１～３４行目で「１要素の一次元配列」を作成します。
３１行目「If IsArray(OrgArray1) = False Then」では、３０行目で作成したものが「配列か否か」を調べています。データ領域が１行であれば配列では無くなるのでFalseとなり、３２～３３行目を実行します。
３２行目「ReDim OrgArray1(1 To 1)」では変数OrgArray1を１要素の配列に変更します。元々代入されていたA1セルの値が入った変数OrgArray1はクリアされてしまう形になります。
３３行目「OrgArray1(1) = r.Value」では、改めて先頭セル（A1セル）の値を配列OrgArray1の要素に代入します。
以上により、データがゼロであればEmpty値の変数OrgArray1、データが１つ以上であれば「一次元配列OrgArray1」が作成されます。
２－３．ユーザーフォーム（UserForm1）
単列（一次元配列）のコードは、UserForm1に記述しています。
２－３－１．フォームレイアウト
フォーム上のコントロール類のレイアウトは、図７のようにしました。処理を実行するためのボタンを６つと、処理後のデータを表示するためのリストボックスを適当に配置しています。ボタン表面のCaptionは配置時にプロパティ変更しています。
図７
２－３－２．フォームモジュール
２－３－２－１．ボタンクリックによる分岐
フォーム上のコマンドボタンをクリックした時に呼び出されるのが、図８の各プロシージャです。各プロシージャから呼び出すのはリストボックスのリスト作成をするmakeListプロシージャ（図９）です。
makeListプロシージャには、引数として「リスト表示させるための一次元配列」を渡しますが、その一次元配列は「各可変長配列で重複データを除外した配列」となります。
- '========== ⇩(4) ボタンクリックによる分岐 ============
- Private Sub CommandButton1_Click() '←「そのまま」ボタン
- Call makeList(OrgArray1)
- End Sub
-
- Private Sub CommandButton2_Click() '←「For～Nex」ボタン
- Call makeList(ForNext(OrgArray1))
- End Sub
-
- Private Sub CommandButton3_Click() '←「Collection」ボタン
- Call makeList(Collect(OrgArray1))
- End Sub
-
- Private Sub CommandButton4_Click() '←「Dictionary」ボタン
- Call makeList(Dict(OrgArray1))
- End Sub
-
- Private Sub CommandButton5_Click() '←「ArrayList」ボタン
- Call makeList(ArrayL(OrgArray1))
- End Sub
-
- Private Sub CommandButton6_Click() '←「SortedList」ボタン
- Call makeList(SortL(OrgArray1))
- End Sub
図８
「そのまま」ボタンをクリックした場合には、図６で作成したオリジナルの「元データ」の配列（OrgArray1）をmakeListに渡してリストを作成します。
「For～Nex」ボタン時には、元データを図１０のForNextプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「Collection」ボタン時には、元データを図１１のCollectプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「Dictionary」ボタン時には、元データを図１２のDictプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「ArrayList」ボタン時には、元データを図１５のArrayLプロシージャに渡し、重複データを除外＋並べ替えをした後の一次元配列をmakeListに渡してリストを作成します。
「SortedList」ボタン時には、元データを図１６のSortLプロシージャに渡し、重複データを除外＋並べ替えをした後の一次元配列をmakeListに渡してリストを作成します。
２－３－２－２．リストボックス作成
図８の各プロシージャから呼び出され、リストボックスのリストを作成するのが図９です。引数として「リスト化するための一次元配列」を受け取ります。
- '========== ⇩(5) リストボックス作成 ============
- Private Sub makeList(ListArray As Variant)
-
- Me.ListBox1.Clear
- If IsEmpty(ListArray) = True Then Exit Sub
- Me.ListBox1.List = ListArray
- End Sub
図９
７３行目「Me.ListBox1.Clear」では、リストを一旦クリアしています。
７４行目「If IsEmpty(ListArray) = True Then Exit Sub」では、受け取った引数がEmpty（＝１つもデータが無い）だった時には、リスト作成を行わずに終了します。
７５行目「Me.ListBox1.List = ListArray」では、配列そのものをリストに直接入れて、一発でリストを作成しています。なお、引数で受け取った一次元配列の要素数分だけ繰り返しながら、「Me.ListBox1.AddItem ListArray(i)」等で１つ１つリスト行を作成する方法でもOKです。
２－３－２－３．For～Next処理
図８の４６行目から呼び出されるのが図１０です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(6) For～Next処理 ============
- Private Function ForNext(ListArray As Variant) As Variant
- Dim buf() As Variant '←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
- Dim j As Integer '←新しい配列の要素数（順次増える）
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- ReDim buf(1 To 1)
- buf(1) = ListArray(1)
-
- For i = 2 To UBound(ListArray, 1)
- For j = 1 To UBound(buf, 1)
- If buf(j) = ListArray(i) Then Exit For
- Next j
-
- If j > UBound(buf, 1) Then
- ReDim Preserve buf(1 To UBound(buf, 1) + 1)
- buf(UBound(buf, 1)) = ListArray(i)
- End If
-
- Next i
-
- ForNext = buf
- End Function
図１０
８６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に、図１０を抜け出します。Functionのデータ型Variantの初期値である「Empty」が呼び出し元に戻る事になります。
データが１つ以上存在する場合は、呼び出し元に戻るデータも「必ず１つ以上存在」しますので、８８行目「ReDim buf(1 To 1)」で「１要素の配列」を作成します。
作られた配列bufの要素には、８９行目「buf(1) = ListArray(1)」で、引数として受け取った一次元配列の「先頭の要素」を格納します。
１つ目の要素の格納が完了したら、２つ目以降は９１～１０１行目で「重複していないデータが来たら、配列を拡大してから格納」していきます。
９１行目「For i = 2 To UBound(ListArray, 1)」では、引数として受け取った一次元配列の２つ目の要素から最終要素までを回しています。もし引数で受け取った配列が１要素だった場合は「For i = 2 To 1」の様に、初回と最終回が逆転してしまうためFor～Next内は実行されない事になります。
９２～９４行目のFor～Nextでは「新しく作っている配列（buf）内に、これから格納しようとしている値が存在するか否か」を調べています。
９２行目「For j = 1 To UBound(buf, 1)」で、新しい配列（buf）の要素数分だけカウンタ変数ｊを回します。
９３行目「If buf(j) = ListArray(i) Then Exit For」では、格納しようとしている値が既に存在（＝重複）したら、９２～９４行目のFor～Nextを抜け出します。
９３行目のIf文が成立して、For～Nextを抜け出す（Exit For）時には、その時点でのカウンタ変数ｊ値がメモリ上に残ります。またIf文が一回も成立せずにFor～Nextが回り切ってしまった場合には、カウンタ変数ｊ値は「UBound(buf, 1) + 1」になります。これはFor～Nextを回すたびにｊ値が増え、最後に９２行目のFor文で「最終値（UBound(buf, 1)）を超えているからFor～Nextは終了」という判断をするためです。
このｊ値を使って、重複の有無を９６行目「If j > UBound(buf, 1) Then」で行い、For～Nextが回り切った（＝重複は無かった）時に９７～９８行目を実行します。
９７行目「ReDim Preserve buf(1 To UBound(buf, 1) + 1)」で、格納する配列（buf）のサイズを現在よりも１つ大きなサイズに変更します。既に格納済みのデータを消さないようにPreserveキーワードを付けます。
９８行目「buf(UBound(buf, 1)) = ListArray(i)」で、サイズを大きくした配列bufの一番最後の要素に新しい値を追加します。
９１～１０１行目のFor～Nextを回し、引数で得た元データ配列を重複を除外しながら新たな配列（buf）に格納し直したら、１０３行目「ForNext = buf」で、関数プロシージャForNextの戻り値として配列bufを設定し、終了します。
２－３－２－４．Collection処理
図８の５０行目から呼び出されるのが図１１です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(7) Collection処理 ============
- Private Function Collect(ListArray As Variant) As Variant
- Dim C As Collection '←Collectionオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set C = New Collection
-
- For i = 1 To UBound(ListArray, 1)
- On Error Resume Next
- C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))
- On Error GoTo 0
- Next i
-
- ReDim buf(1 To C.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = C.Item(i)
- Next i
-
- Collect = buf
- Set C = Nothing
- End Function
図１１
１１６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１１を抜け出し、Variant型の初期値であるEmptyを戻します。
１１８行目「Set C = New Collection」では、Collectionオブジェクトを生成します。
１２０～１２４行目では、Collectionオブジェクトに元データを１つずつ追加していきます。CollectionのKeyはString型で指定する必要があり、またKeyの重複は出来ません。と言って、他可変長配列のように「Keyの存在をチェックするメソッド」がありませんので、ここでは「無理やり追加してみて、エラーが出たら重複していると判断」することにします。
１２０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
１２２行目「C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))」では、Keyには「文字列型にした値」を設定し、Itemには「そのままの値」を設定します。Keyに重複が無ければそのまま格納されますが、重複していれば「エラーが発生し、格納はされない」ことになります。エラーが発生するとプログラムが止まってしまいますので、１２１行目「On Error Resume Next」でエラーはスルーさせます。
Collectionオブジェクトへの格納が終了したら、１２６～１２９行目で値を取り出し、別な配列（buf）に格納し直します。
まず１２６行目「ReDim buf(1 To C.Count)」で、配列bufのサイズを指定します。Collectionに格納した要素数はC.Countで得られますので、その数と同じサイズの配列にします。
１２７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝Collectionの要素数）分だけ回します。
１２８行目「buf(i) = C.Item(i)」で、配列bufの要素へCollectionの値（Item値）を１つずつ代入していきます。
配列bufへの代入が完了したら、１３１行目「Collect = buf」で関数プロシージャCollectの戻り値に配列bufを設定します。最後に１３２行目「Set C = Nothing」でオブジェクトを解放し終了します。
２－３－２－５．Dictionary処理
図８の５４行目から呼び出されるのが図１２です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(8) Dictionary処理 ============
- Private Function Dict(ListArray As Variant) As Variant
- Dim D As Object '←Dictionaryオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set D = CreateObject("Scripting.Dictionary")
-
- For i = 1 To UBound(ListArray, 1)
- If D.Exists(ListArray(i)) = False Then
- D.Add Item:="", Key:=ListArray(i)
- End If
- Next i
-
- Dict = D.Keys
-
-
- Set D = Nothing
- End Function
図１２
１４５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１２を抜け出し、Variant型の初期値であるEmptyを戻します。
１４７行目「Set D = CreateObject("Scripting.Dictionary")」では、Dictionaryオブジェクトを生成します。
１４９～１５３行目では、Dictionaryオブジェクトに元データを１つずつ追加していきます。
１４９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
Dictionaryオブジェクトには「Keyの存在を調べるExistsメソッド」がありますので、１５０行目「If D.Exists(ListArray(i)) = False Then」でKeyの重複調査をします。
そのKeyの調査結果がFalse（＝重複が無い）の時に、１５１行目「D.Add Item:="", Key:=ListArray(i)」でDictionaryオブジェクトにデータを追加します。DictionaryにはKeyとItem（値）の両方をセットで追加する必要がありますが、今回はKeyだけで良いので「Key:=ListArray(i)」とし、Itemにはダミーで「""（長さゼロの文字列）」を設定しています。
なおDictionaryオブジェクトにデータを追加する手段として「Dictionary.Item(Key) = Item」という方法もあります。これは「データの修正」にも使用できるため、Existsメソッドを使用せずに「重複が有ったら上書き」していくという事にも使えます。この方法を使用すると、図１２の１４９～１５３行目を図１３のように置き換える事ができます。
- For i = 1 To UBound(ListArray, 1)
' If D.Exists(ListArray(i)) = False Then
- D.Item(ListArray(i)) = ""
' End If
- Next i
図１３
Dictionaryオブジェクトへのデータ追加が完了したら、１５５行目「Dict = D.Keys」で全てのKey値を取り出して戻り値であるDictに代入します。Keysメソッドは全てのKey値を「配列」の形で戻しますので、代入される変数Dictも配列となります。
なお戻される配列のインデックスは「ゼロ始まり」です。今回システムでは不具合は生じませんが、もし１始まりで無いとエラーが発生してしまう時には、図１４のように「Transpose関数」を２回実行することで「インデックスは１始まり」に変換されます。
- Dict = D.Keys
- Dict = WorksheetFunction.Transpose(Dict)
- Dict = WorksheetFunction.Transpose(Dict)
図１４
関数プロシージャDictの戻り値を設定後は、Dictionaryオブジェクト変数Dを１５８行目「Set D = Nothing」で解放します。
なお、１５１行目を「D.Add Item:=ListArray(i), Key:=ListArray(i)」と「値をDictionaryオブジェクトのItem側に追加」し、１５５行目を「Dict = D.Items」として「全ての値を戻す」手法でもOKです。
２－３－２－６．ArrayList処理
図８の５８行目から呼び出されるのが図１５です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(9) ArrayList処理 ============
- Private Function ArrayL(ListArray As Variant) As Variant
- Dim A As Object '←ArrayListオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set A = CreateObject("System.Collections.ArrayList")
-
- For i = 1 To UBound(ListArray, 1)
- If A.Contains(CStr(ListArray(i))) = False Then
- A.Add Value:=CStr(ListArray(i))
- End If
- Next i
-
- A.Sort
- ArrayL = A.toArray
-
- Set A = Nothing
- End Function
図１５
１７５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１５を抜け出し、Variant型の初期値であるEmptyを戻します。
１７７行目「Set A = CreateObject("System.Collections.ArrayList")」では、ArrayListオブジェクトを生成します。
１７９～１８３行目では、ArrayListオブジェクトに元データを１つずつ追加していきます。
１７９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
ArrayListオブジェクトには「値の存在を調べるContainsメソッド」がありますので、１８０行目「If A.Contains(CStr(ListArray(i))) = False Then」で値の重複調査をします。
その値の調査結果がFalse（＝重複が無い）の時に、１８１行目「A.Add Value:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおArrayListオブジェクトの値は、本来「データ型の混在はOK」なのですが、今回はSortメソッドを使って並べ替えを行うために「データ型を揃える」必要があります。ですので全て文字列型にするためにCstr関数を使って、データ型変換をした上で重複チェック（１８０行目）・データ追加（１８１行目）を行っています。
データ追加が完了した後、１８５行目「A.Sort」で「値の並べ替え」を行い、１８６行目「ArrayL = A.toArray」でArrayListオブジェクトの全データを配列の形で変数ArrayL（関数プロシージャArrayLの戻り値）に設定します。
なおtoArrayで戻される配列は、Dictionaryオブジェクトと同様に「インデックスはゼロ始まり」です。インデックスを１からにしたい場合は、図１４と同じく「Transpose関数」を２回実行して下さい。
２－３－２－７．SortedList処理
図８の６２行目から呼び出されるのが図１６です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(10) SortedList処理 ============
- Private Function SortL(ListArray As Variant) As Variant
- Dim S As Object '←SortedListオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set S = CreateObject("System.Collections.SortedList")
-
- For i = 1 To UBound(ListArray, 1)
- If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))
- End If
- Next i
-
- ReDim buf(1 To S.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = S.GetByIndex(i - 1)
- Next i
-
- SortL = buf
- Set S = Nothing
- End Function
図１６
２０６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１６を抜け出し、Variant型の初期値であるEmptyを戻します。
２０８行目「Set S = CreateObject("System.Collections.SortedList")」では、SortedListオブジェクトを生成します。
２１０～２１４行目では、SortedListオブジェクトに元データを１つずつ追加していきます。
２１０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
SortedListオブジェクトには「Keyの存在を調べるContainsKeyメソッド」がありますので、２１１行目「If S.ContainsKey(CStr(ListArray(i))) = False Then」でKeyの重複調査をします。
その調査結果がFalse（＝Keyの重複が無い）の時に、２１２行目「S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおSortedListオブジェクトのKeyは「データ型の混在はNG」ですので、全て文字列型に揃えるためにCstr関数を使いデータ型変換をした上で重複チェック（２１１行目）・データ追加（２１２行目）を行っています。なお、値（Value）はデータ型混在OKなので、そのまま（ListArray(i)）格納しています。
なおDictionaryオブジェクトと同様に、SortedListではデータ追加・データ修正の手段に「SortedList.Item(Key) = Value」が使えます。ですので２１０～２１４行目は図１７のように書き換える事が可能です。
- For i = 1 To UBound(ListArray, 1)
' If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Item(CStr(ListArray(i))) = ListArray(i)
' End If
- Next i
図１７
SortedListオブジェクトへのデータ追加が完了したら、２１６～２１９行目で値を取り出し、別な配列（buf）に格納し直します。
まず２１６行目「ReDim buf(1 To S.Count)」で、格納する配列bufのサイズを指定します。
２１７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝SortedListの要素数）分だけ回します。
２１８行目「buf(i) = S.GetByIndex(i - 1)」で、配列bufの各要素へSortedListの値を１つずつ代入していきます。SortedListのインデックスはゼロ始まりですので「i - 1」としています。
配列bufへの代入が完了したら、２２１行目「SortL = buf」で関数プロシージャSortLの戻り値に配列bufを設定します。
なお、今回システムでは「リストボックスに値を入れる」ことが目的となっています。リストボックス内では「値は全て文字列扱い」ですので、渡される側としては「文字列のみの配列」で充分です。逆に渡す側（図１６）からすれば「元データのデータ型を保った値（Value）」で無くても、並べ替えの為に「文字列型に変換したKey値」でOKということになります。ですので図１８のような事もOKとなります。
- S.Add Value:="", Key:=CStr(ListArray(i))
- buf(i) = S.GetKey(i - 1)
図１８
図１８では、２１２行目「S.Add Value:="", Key:=CStr(ListArray(i))」で、Key値には文字列型で格納し、値（Value）には適当な値（ここでは、長さゼロの文字列）を入れています。
そして２１８行目で取り出す時も「文字列型」であるKey値をGetKeyメソッドを使って取り出します。関数プロシージャSortLとして戻す配列内のデータ型は異なりますが、リストボックスに表示される時には全く同じとなります。
３．重複除外処理のまとめ
上記の「For～Next」と４種の可変長配列の処理の結果について整理すると、図１９のようになります。処理前の値の形を基準とし、各方法で同一と判断する範囲を緑線で囲っています。
図１９
まず「Collectionオブジェクト」では「大文字小文字・全角半角・ひらがなカタカナ」は同じとして処理しています。
Collection以外の方法では、Keyや値に格納する時に、並べ替えに必要な「データ型の統一」のための文字列変換を行った時には、当然ながら配列内の「数値」と「文字列にした数字」は同一扱いになります。なお、数値のみをKey値にする場合は数値比較が出来ますので、数値→文字列に直してしまうと逆におかしな結果になります（例："100" < "99"）。
Collectionオブジェクトは、参照設定やCreateObjectなどが不要のため良く使われるようですが、この重複判断には注意した方が良いと思います。
アプリ実例
「CSVファイルでデータを読み書きする月間予定表」
「サンプリング周期が異なるデータの補間法」
「複数行1データの並び替え」
「データの重みを考慮したComboBox入力補助」
「先入先出の入出庫管理システム」
「DVD等の内容・保管場所等管理システム」
可変長配列(Dictionary等)を使った重複除外リスト（its-020-021.xlsm）
２－３－１．フォームレイアウト
フォーム上のコントロール類のレイアウトは、図７のようにしました。処理を実行するためのボタンを６つと、処理後のデータを表示するためのリストボックスを適当に配置しています。ボタン表面のCaptionは配置時にプロパティ変更しています。図７
２－３－２．フォームモジュール
２－３－２－１．ボタンクリックによる分岐
フォーム上のコマンドボタンをクリックした時に呼び出されるのが、図８の各プロシージャです。各プロシージャから呼び出すのはリストボックスのリスト作成をするmakeListプロシージャ（図９）です。
makeListプロシージャには、引数として「リスト表示させるための一次元配列」を渡しますが、その一次元配列は「各可変長配列で重複データを除外した配列」となります。
- '========== ⇩(4) ボタンクリックによる分岐 ============
- Private Sub CommandButton1_Click() '←「そのまま」ボタン
- Call makeList(OrgArray1)
- End Sub
-
- Private Sub CommandButton2_Click() '←「For～Nex」ボタン
- Call makeList(ForNext(OrgArray1))
- End Sub
-
- Private Sub CommandButton3_Click() '←「Collection」ボタン
- Call makeList(Collect(OrgArray1))
- End Sub
-
- Private Sub CommandButton4_Click() '←「Dictionary」ボタン
- Call makeList(Dict(OrgArray1))
- End Sub
-
- Private Sub CommandButton5_Click() '←「ArrayList」ボタン
- Call makeList(ArrayL(OrgArray1))
- End Sub
-
- Private Sub CommandButton6_Click() '←「SortedList」ボタン
- Call makeList(SortL(OrgArray1))
- End Sub
図８
「そのまま」ボタンをクリックした場合には、図６で作成したオリジナルの「元データ」の配列（OrgArray1）をmakeListに渡してリストを作成します。
「For～Nex」ボタン時には、元データを図１０のForNextプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「Collection」ボタン時には、元データを図１１のCollectプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「Dictionary」ボタン時には、元データを図１２のDictプロシージャに渡し、重複データを除外した後の一次元配列をmakeListに渡してリストを作成します。
「ArrayList」ボタン時には、元データを図１５のArrayLプロシージャに渡し、重複データを除外＋並べ替えをした後の一次元配列をmakeListに渡してリストを作成します。
「SortedList」ボタン時には、元データを図１６のSortLプロシージャに渡し、重複データを除外＋並べ替えをした後の一次元配列をmakeListに渡してリストを作成します。
２－３－２－２．リストボックス作成
図８の各プロシージャから呼び出され、リストボックスのリストを作成するのが図９です。引数として「リスト化するための一次元配列」を受け取ります。
- '========== ⇩(5) リストボックス作成 ============
- Private Sub makeList(ListArray As Variant)
-
- Me.ListBox1.Clear
- If IsEmpty(ListArray) = True Then Exit Sub
- Me.ListBox1.List = ListArray
- End Sub
図９
７３行目「Me.ListBox1.Clear」では、リストを一旦クリアしています。
７４行目「If IsEmpty(ListArray) = True Then Exit Sub」では、受け取った引数がEmpty（＝１つもデータが無い）だった時には、リスト作成を行わずに終了します。
７５行目「Me.ListBox1.List = ListArray」では、配列そのものをリストに直接入れて、一発でリストを作成しています。なお、引数で受け取った一次元配列の要素数分だけ繰り返しながら、「Me.ListBox1.AddItem ListArray(i)」等で１つ１つリスト行を作成する方法でもOKです。
２－３－２－３．For～Next処理
図８の４６行目から呼び出されるのが図１０です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(6) For～Next処理 ============
- Private Function ForNext(ListArray As Variant) As Variant
- Dim buf() As Variant '←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
- Dim j As Integer '←新しい配列の要素数（順次増える）
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- ReDim buf(1 To 1)
- buf(1) = ListArray(1)
-
- For i = 2 To UBound(ListArray, 1)
- For j = 1 To UBound(buf, 1)
- If buf(j) = ListArray(i) Then Exit For
- Next j
-
- If j > UBound(buf, 1) Then
- ReDim Preserve buf(1 To UBound(buf, 1) + 1)
- buf(UBound(buf, 1)) = ListArray(i)
- End If
-
- Next i
-
- ForNext = buf
- End Function
図１０
８６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に、図１０を抜け出します。Functionのデータ型Variantの初期値である「Empty」が呼び出し元に戻る事になります。
データが１つ以上存在する場合は、呼び出し元に戻るデータも「必ず１つ以上存在」しますので、８８行目「ReDim buf(1 To 1)」で「１要素の配列」を作成します。
作られた配列bufの要素には、８９行目「buf(1) = ListArray(1)」で、引数として受け取った一次元配列の「先頭の要素」を格納します。
１つ目の要素の格納が完了したら、２つ目以降は９１～１０１行目で「重複していないデータが来たら、配列を拡大してから格納」していきます。
９１行目「For i = 2 To UBound(ListArray, 1)」では、引数として受け取った一次元配列の２つ目の要素から最終要素までを回しています。もし引数で受け取った配列が１要素だった場合は「For i = 2 To 1」の様に、初回と最終回が逆転してしまうためFor～Next内は実行されない事になります。
９２～９４行目のFor～Nextでは「新しく作っている配列（buf）内に、これから格納しようとしている値が存在するか否か」を調べています。
９２行目「For j = 1 To UBound(buf, 1)」で、新しい配列（buf）の要素数分だけカウンタ変数ｊを回します。
９３行目「If buf(j) = ListArray(i) Then Exit For」では、格納しようとしている値が既に存在（＝重複）したら、９２～９４行目のFor～Nextを抜け出します。
９３行目のIf文が成立して、For～Nextを抜け出す（Exit For）時には、その時点でのカウンタ変数ｊ値がメモリ上に残ります。またIf文が一回も成立せずにFor～Nextが回り切ってしまった場合には、カウンタ変数ｊ値は「UBound(buf, 1) + 1」になります。これはFor～Nextを回すたびにｊ値が増え、最後に９２行目のFor文で「最終値（UBound(buf, 1)）を超えているからFor～Nextは終了」という判断をするためです。
このｊ値を使って、重複の有無を９６行目「If j > UBound(buf, 1) Then」で行い、For～Nextが回り切った（＝重複は無かった）時に９７～９８行目を実行します。
９７行目「ReDim Preserve buf(1 To UBound(buf, 1) + 1)」で、格納する配列（buf）のサイズを現在よりも１つ大きなサイズに変更します。既に格納済みのデータを消さないようにPreserveキーワードを付けます。
９８行目「buf(UBound(buf, 1)) = ListArray(i)」で、サイズを大きくした配列bufの一番最後の要素に新しい値を追加します。
９１～１０１行目のFor～Nextを回し、引数で得た元データ配列を重複を除外しながら新たな配列（buf）に格納し直したら、１０３行目「ForNext = buf」で、関数プロシージャForNextの戻り値として配列bufを設定し、終了します。
２－３－２－４．Collection処理
図８の５０行目から呼び出されるのが図１１です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(7) Collection処理 ============
- Private Function Collect(ListArray As Variant) As Variant
- Dim C As Collection '←Collectionオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set C = New Collection
-
- For i = 1 To UBound(ListArray, 1)
- On Error Resume Next
- C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))
- On Error GoTo 0
- Next i
-
- ReDim buf(1 To C.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = C.Item(i)
- Next i
-
- Collect = buf
- Set C = Nothing
- End Function
図１１
１１６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１１を抜け出し、Variant型の初期値であるEmptyを戻します。
１１８行目「Set C = New Collection」では、Collectionオブジェクトを生成します。
１２０～１２４行目では、Collectionオブジェクトに元データを１つずつ追加していきます。CollectionのKeyはString型で指定する必要があり、またKeyの重複は出来ません。と言って、他可変長配列のように「Keyの存在をチェックするメソッド」がありませんので、ここでは「無理やり追加してみて、エラーが出たら重複していると判断」することにします。
１２０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
１２２行目「C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))」では、Keyには「文字列型にした値」を設定し、Itemには「そのままの値」を設定します。Keyに重複が無ければそのまま格納されますが、重複していれば「エラーが発生し、格納はされない」ことになります。エラーが発生するとプログラムが止まってしまいますので、１２１行目「On Error Resume Next」でエラーはスルーさせます。
Collectionオブジェクトへの格納が終了したら、１２６～１２９行目で値を取り出し、別な配列（buf）に格納し直します。
まず１２６行目「ReDim buf(1 To C.Count)」で、配列bufのサイズを指定します。Collectionに格納した要素数はC.Countで得られますので、その数と同じサイズの配列にします。
１２７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝Collectionの要素数）分だけ回します。
１２８行目「buf(i) = C.Item(i)」で、配列bufの要素へCollectionの値（Item値）を１つずつ代入していきます。
配列bufへの代入が完了したら、１３１行目「Collect = buf」で関数プロシージャCollectの戻り値に配列bufを設定します。最後に１３２行目「Set C = Nothing」でオブジェクトを解放し終了します。
２－３－２－５．Dictionary処理
図８の５４行目から呼び出されるのが図１２です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(8) Dictionary処理 ============
- Private Function Dict(ListArray As Variant) As Variant
- Dim D As Object '←Dictionaryオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set D = CreateObject("Scripting.Dictionary")
-
- For i = 1 To UBound(ListArray, 1)
- If D.Exists(ListArray(i)) = False Then
- D.Add Item:="", Key:=ListArray(i)
- End If
- Next i
-
- Dict = D.Keys
-
-
- Set D = Nothing
- End Function
図１２
１４５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１２を抜け出し、Variant型の初期値であるEmptyを戻します。
１４７行目「Set D = CreateObject("Scripting.Dictionary")」では、Dictionaryオブジェクトを生成します。
１４９～１５３行目では、Dictionaryオブジェクトに元データを１つずつ追加していきます。
１４９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
Dictionaryオブジェクトには「Keyの存在を調べるExistsメソッド」がありますので、１５０行目「If D.Exists(ListArray(i)) = False Then」でKeyの重複調査をします。
そのKeyの調査結果がFalse（＝重複が無い）の時に、１５１行目「D.Add Item:="", Key:=ListArray(i)」でDictionaryオブジェクトにデータを追加します。DictionaryにはKeyとItem（値）の両方をセットで追加する必要がありますが、今回はKeyだけで良いので「Key:=ListArray(i)」とし、Itemにはダミーで「""（長さゼロの文字列）」を設定しています。
なおDictionaryオブジェクトにデータを追加する手段として「Dictionary.Item(Key) = Item」という方法もあります。これは「データの修正」にも使用できるため、Existsメソッドを使用せずに「重複が有ったら上書き」していくという事にも使えます。この方法を使用すると、図１２の１４９～１５３行目を図１３のように置き換える事ができます。
- For i = 1 To UBound(ListArray, 1)
' If D.Exists(ListArray(i)) = False Then
- D.Item(ListArray(i)) = ""
' End If
- Next i
図１３
Dictionaryオブジェクトへのデータ追加が完了したら、１５５行目「Dict = D.Keys」で全てのKey値を取り出して戻り値であるDictに代入します。Keysメソッドは全てのKey値を「配列」の形で戻しますので、代入される変数Dictも配列となります。
なお戻される配列のインデックスは「ゼロ始まり」です。今回システムでは不具合は生じませんが、もし１始まりで無いとエラーが発生してしまう時には、図１４のように「Transpose関数」を２回実行することで「インデックスは１始まり」に変換されます。
- Dict = D.Keys
- Dict = WorksheetFunction.Transpose(Dict)
- Dict = WorksheetFunction.Transpose(Dict)
図１４
関数プロシージャDictの戻り値を設定後は、Dictionaryオブジェクト変数Dを１５８行目「Set D = Nothing」で解放します。
なお、１５１行目を「D.Add Item:=ListArray(i), Key:=ListArray(i)」と「値をDictionaryオブジェクトのItem側に追加」し、１５５行目を「Dict = D.Items」として「全ての値を戻す」手法でもOKです。
２－３－２－６．ArrayList処理
図８の５８行目から呼び出されるのが図１５です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(9) ArrayList処理 ============
- Private Function ArrayL(ListArray As Variant) As Variant
- Dim A As Object '←ArrayListオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set A = CreateObject("System.Collections.ArrayList")
-
- For i = 1 To UBound(ListArray, 1)
- If A.Contains(CStr(ListArray(i))) = False Then
- A.Add Value:=CStr(ListArray(i))
- End If
- Next i
-
- A.Sort
- ArrayL = A.toArray
-
- Set A = Nothing
- End Function
図１５
１７５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１５を抜け出し、Variant型の初期値であるEmptyを戻します。
１７７行目「Set A = CreateObject("System.Collections.ArrayList")」では、ArrayListオブジェクトを生成します。
１７９～１８３行目では、ArrayListオブジェクトに元データを１つずつ追加していきます。
１７９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
ArrayListオブジェクトには「値の存在を調べるContainsメソッド」がありますので、１８０行目「If A.Contains(CStr(ListArray(i))) = False Then」で値の重複調査をします。
その値の調査結果がFalse（＝重複が無い）の時に、１８１行目「A.Add Value:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおArrayListオブジェクトの値は、本来「データ型の混在はOK」なのですが、今回はSortメソッドを使って並べ替えを行うために「データ型を揃える」必要があります。ですので全て文字列型にするためにCstr関数を使って、データ型変換をした上で重複チェック（１８０行目）・データ追加（１８１行目）を行っています。
データ追加が完了した後、１８５行目「A.Sort」で「値の並べ替え」を行い、１８６行目「ArrayL = A.toArray」でArrayListオブジェクトの全データを配列の形で変数ArrayL（関数プロシージャArrayLの戻り値）に設定します。
なおtoArrayで戻される配列は、Dictionaryオブジェクトと同様に「インデックスはゼロ始まり」です。インデックスを１からにしたい場合は、図１４と同じく「Transpose関数」を２回実行して下さい。
２－３－２－７．SortedList処理
図８の６２行目から呼び出されるのが図１６です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(10) SortedList処理 ============
- Private Function SortL(ListArray As Variant) As Variant
- Dim S As Object '←SortedListオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set S = CreateObject("System.Collections.SortedList")
-
- For i = 1 To UBound(ListArray, 1)
- If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))
- End If
- Next i
-
- ReDim buf(1 To S.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = S.GetByIndex(i - 1)
- Next i
-
- SortL = buf
- Set S = Nothing
- End Function
図１６
２０６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１６を抜け出し、Variant型の初期値であるEmptyを戻します。
２０８行目「Set S = CreateObject("System.Collections.SortedList")」では、SortedListオブジェクトを生成します。
２１０～２１４行目では、SortedListオブジェクトに元データを１つずつ追加していきます。
２１０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
SortedListオブジェクトには「Keyの存在を調べるContainsKeyメソッド」がありますので、２１１行目「If S.ContainsKey(CStr(ListArray(i))) = False Then」でKeyの重複調査をします。
その調査結果がFalse（＝Keyの重複が無い）の時に、２１２行目「S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおSortedListオブジェクトのKeyは「データ型の混在はNG」ですので、全て文字列型に揃えるためにCstr関数を使いデータ型変換をした上で重複チェック（２１１行目）・データ追加（２１２行目）を行っています。なお、値（Value）はデータ型混在OKなので、そのまま（ListArray(i)）格納しています。
なおDictionaryオブジェクトと同様に、SortedListではデータ追加・データ修正の手段に「SortedList.Item(Key) = Value」が使えます。ですので２１０～２１４行目は図１７のように書き換える事が可能です。
- For i = 1 To UBound(ListArray, 1)
' If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Item(CStr(ListArray(i))) = ListArray(i)
' End If
- Next i
図１７
SortedListオブジェクトへのデータ追加が完了したら、２１６～２１９行目で値を取り出し、別な配列（buf）に格納し直します。
まず２１６行目「ReDim buf(1 To S.Count)」で、格納する配列bufのサイズを指定します。
２１７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝SortedListの要素数）分だけ回します。
２１８行目「buf(i) = S.GetByIndex(i - 1)」で、配列bufの各要素へSortedListの値を１つずつ代入していきます。SortedListのインデックスはゼロ始まりですので「i - 1」としています。
配列bufへの代入が完了したら、２２１行目「SortL = buf」で関数プロシージャSortLの戻り値に配列bufを設定します。
なお、今回システムでは「リストボックスに値を入れる」ことが目的となっています。リストボックス内では「値は全て文字列扱い」ですので、渡される側としては「文字列のみの配列」で充分です。逆に渡す側（図１６）からすれば「元データのデータ型を保った値（Value）」で無くても、並べ替えの為に「文字列型に変換したKey値」でOKということになります。ですので図１８のような事もOKとなります。
- S.Add Value:="", Key:=CStr(ListArray(i))
- buf(i) = S.GetKey(i - 1)
図１８
図１８では、２１２行目「S.Add Value:="", Key:=CStr(ListArray(i))」で、Key値には文字列型で格納し、値（Value）には適当な値（ここでは、長さゼロの文字列）を入れています。
そして２１８行目で取り出す時も「文字列型」であるKey値をGetKeyメソッドを使って取り出します。関数プロシージャSortLとして戻す配列内のデータ型は異なりますが、リストボックスに表示される時には全く同じとなります。
３．重複除外処理のまとめ
- '========== ⇩(5) リストボックス作成 ============
- Private Sub makeList(ListArray As Variant)
- Me.ListBox1.Clear
- If IsEmpty(ListArray) = True Then Exit Sub
- Me.ListBox1.List = ListArray
- End Sub
７３行目「Me.ListBox1.Clear」では、リストを一旦クリアしています。
７４行目「If IsEmpty(ListArray) = True Then Exit Sub」では、受け取った引数がEmpty（＝１つもデータが無い）だった時には、リスト作成を行わずに終了します。
７５行目「Me.ListBox1.List = ListArray」では、配列そのものをリストに直接入れて、一発でリストを作成しています。なお、引数で受け取った一次元配列の要素数分だけ繰り返しながら、「Me.ListBox1.AddItem ListArray(i)」等で１つ１つリスト行を作成する方法でもOKです。
２－３－２－３．For～Next処理
図８の４６行目から呼び出されるのが図１０です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(6) For～Next処理 ============
- Private Function ForNext(ListArray As Variant) As Variant
- Dim buf() As Variant '←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
- Dim j As Integer '←新しい配列の要素数（順次増える）
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- ReDim buf(1 To 1)
- buf(1) = ListArray(1)
-
- For i = 2 To UBound(ListArray, 1)
- For j = 1 To UBound(buf, 1)
- If buf(j) = ListArray(i) Then Exit For
- Next j
-
- If j > UBound(buf, 1) Then
- ReDim Preserve buf(1 To UBound(buf, 1) + 1)
- buf(UBound(buf, 1)) = ListArray(i)
- End If
-
- Next i
-
- ForNext = buf
- End Function
図１０
８６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に、図１０を抜け出します。Functionのデータ型Variantの初期値である「Empty」が呼び出し元に戻る事になります。
データが１つ以上存在する場合は、呼び出し元に戻るデータも「必ず１つ以上存在」しますので、８８行目「ReDim buf(1 To 1)」で「１要素の配列」を作成します。
作られた配列bufの要素には、８９行目「buf(1) = ListArray(1)」で、引数として受け取った一次元配列の「先頭の要素」を格納します。
１つ目の要素の格納が完了したら、２つ目以降は９１～１０１行目で「重複していないデータが来たら、配列を拡大してから格納」していきます。
９１行目「For i = 2 To UBound(ListArray, 1)」では、引数として受け取った一次元配列の２つ目の要素から最終要素までを回しています。もし引数で受け取った配列が１要素だった場合は「For i = 2 To 1」の様に、初回と最終回が逆転してしまうためFor～Next内は実行されない事になります。
９２～９４行目のFor～Nextでは「新しく作っている配列（buf）内に、これから格納しようとしている値が存在するか否か」を調べています。
９２行目「For j = 1 To UBound(buf, 1)」で、新しい配列（buf）の要素数分だけカウンタ変数ｊを回します。
９３行目「If buf(j) = ListArray(i) Then Exit For」では、格納しようとしている値が既に存在（＝重複）したら、９２～９４行目のFor～Nextを抜け出します。
９３行目のIf文が成立して、For～Nextを抜け出す（Exit For）時には、その時点でのカウンタ変数ｊ値がメモリ上に残ります。またIf文が一回も成立せずにFor～Nextが回り切ってしまった場合には、カウンタ変数ｊ値は「UBound(buf, 1) + 1」になります。これはFor～Nextを回すたびにｊ値が増え、最後に９２行目のFor文で「最終値（UBound(buf, 1)）を超えているからFor～Nextは終了」という判断をするためです。
このｊ値を使って、重複の有無を９６行目「If j > UBound(buf, 1) Then」で行い、For～Nextが回り切った（＝重複は無かった）時に９７～９８行目を実行します。
９７行目「ReDim Preserve buf(1 To UBound(buf, 1) + 1)」で、格納する配列（buf）のサイズを現在よりも１つ大きなサイズに変更します。既に格納済みのデータを消さないようにPreserveキーワードを付けます。
９８行目「buf(UBound(buf, 1)) = ListArray(i)」で、サイズを大きくした配列bufの一番最後の要素に新しい値を追加します。
９１～１０１行目のFor～Nextを回し、引数で得た元データ配列を重複を除外しながら新たな配列（buf）に格納し直したら、１０３行目「ForNext = buf」で、関数プロシージャForNextの戻り値として配列bufを設定し、終了します。
２－３－２－４．Collection処理
図８の５０行目から呼び出されるのが図１１です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(7) Collection処理 ============
- Private Function Collect(ListArray As Variant) As Variant
- Dim C As Collection '←Collectionオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set C = New Collection
-
- For i = 1 To UBound(ListArray, 1)
- On Error Resume Next
- C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))
- On Error GoTo 0
- Next i
-
- ReDim buf(1 To C.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = C.Item(i)
- Next i
-
- Collect = buf
- Set C = Nothing
- End Function
図１１
１１６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１１を抜け出し、Variant型の初期値であるEmptyを戻します。
１１８行目「Set C = New Collection」では、Collectionオブジェクトを生成します。
１２０～１２４行目では、Collectionオブジェクトに元データを１つずつ追加していきます。CollectionのKeyはString型で指定する必要があり、またKeyの重複は出来ません。と言って、他可変長配列のように「Keyの存在をチェックするメソッド」がありませんので、ここでは「無理やり追加してみて、エラーが出たら重複していると判断」することにします。
１２０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
１２２行目「C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))」では、Keyには「文字列型にした値」を設定し、Itemには「そのままの値」を設定します。Keyに重複が無ければそのまま格納されますが、重複していれば「エラーが発生し、格納はされない」ことになります。エラーが発生するとプログラムが止まってしまいますので、１２１行目「On Error Resume Next」でエラーはスルーさせます。
Collectionオブジェクトへの格納が終了したら、１２６～１２９行目で値を取り出し、別な配列（buf）に格納し直します。
まず１２６行目「ReDim buf(1 To C.Count)」で、配列bufのサイズを指定します。Collectionに格納した要素数はC.Countで得られますので、その数と同じサイズの配列にします。
１２７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝Collectionの要素数）分だけ回します。
１２８行目「buf(i) = C.Item(i)」で、配列bufの要素へCollectionの値（Item値）を１つずつ代入していきます。
配列bufへの代入が完了したら、１３１行目「Collect = buf」で関数プロシージャCollectの戻り値に配列bufを設定します。最後に１３２行目「Set C = Nothing」でオブジェクトを解放し終了します。
２－３－２－５．Dictionary処理
図８の５４行目から呼び出されるのが図１２です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(8) Dictionary処理 ============
- Private Function Dict(ListArray As Variant) As Variant
- Dim D As Object '←Dictionaryオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set D = CreateObject("Scripting.Dictionary")
-
- For i = 1 To UBound(ListArray, 1)
- If D.Exists(ListArray(i)) = False Then
- D.Add Item:="", Key:=ListArray(i)
- End If
- Next i
-
- Dict = D.Keys
-
-
- Set D = Nothing
- End Function
図１２
１４５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１２を抜け出し、Variant型の初期値であるEmptyを戻します。
１４７行目「Set D = CreateObject("Scripting.Dictionary")」では、Dictionaryオブジェクトを生成します。
１４９～１５３行目では、Dictionaryオブジェクトに元データを１つずつ追加していきます。
１４９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
Dictionaryオブジェクトには「Keyの存在を調べるExistsメソッド」がありますので、１５０行目「If D.Exists(ListArray(i)) = False Then」でKeyの重複調査をします。
そのKeyの調査結果がFalse（＝重複が無い）の時に、１５１行目「D.Add Item:="", Key:=ListArray(i)」でDictionaryオブジェクトにデータを追加します。DictionaryにはKeyとItem（値）の両方をセットで追加する必要がありますが、今回はKeyだけで良いので「Key:=ListArray(i)」とし、Itemにはダミーで「""（長さゼロの文字列）」を設定しています。
なおDictionaryオブジェクトにデータを追加する手段として「Dictionary.Item(Key) = Item」という方法もあります。これは「データの修正」にも使用できるため、Existsメソッドを使用せずに「重複が有ったら上書き」していくという事にも使えます。この方法を使用すると、図１２の１４９～１５３行目を図１３のように置き換える事ができます。
- For i = 1 To UBound(ListArray, 1)
' If D.Exists(ListArray(i)) = False Then
- D.Item(ListArray(i)) = ""
' End If
- Next i
図１３
Dictionaryオブジェクトへのデータ追加が完了したら、１５５行目「Dict = D.Keys」で全てのKey値を取り出して戻り値であるDictに代入します。Keysメソッドは全てのKey値を「配列」の形で戻しますので、代入される変数Dictも配列となります。
なお戻される配列のインデックスは「ゼロ始まり」です。今回システムでは不具合は生じませんが、もし１始まりで無いとエラーが発生してしまう時には、図１４のように「Transpose関数」を２回実行することで「インデックスは１始まり」に変換されます。
- Dict = D.Keys
- Dict = WorksheetFunction.Transpose(Dict)
- Dict = WorksheetFunction.Transpose(Dict)
図１４
関数プロシージャDictの戻り値を設定後は、Dictionaryオブジェクト変数Dを１５８行目「Set D = Nothing」で解放します。
なお、１５１行目を「D.Add Item:=ListArray(i), Key:=ListArray(i)」と「値をDictionaryオブジェクトのItem側に追加」し、１５５行目を「Dict = D.Items」として「全ての値を戻す」手法でもOKです。
２－３－２－６．ArrayList処理
図８の５８行目から呼び出されるのが図１５です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(9) ArrayList処理 ============
- Private Function ArrayL(ListArray As Variant) As Variant
- Dim A As Object '←ArrayListオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set A = CreateObject("System.Collections.ArrayList")
-
- For i = 1 To UBound(ListArray, 1)
- If A.Contains(CStr(ListArray(i))) = False Then
- A.Add Value:=CStr(ListArray(i))
- End If
- Next i
-
- A.Sort
- ArrayL = A.toArray
-
- Set A = Nothing
- End Function
図１５
１７５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１５を抜け出し、Variant型の初期値であるEmptyを戻します。
１７７行目「Set A = CreateObject("System.Collections.ArrayList")」では、ArrayListオブジェクトを生成します。
１７９～１８３行目では、ArrayListオブジェクトに元データを１つずつ追加していきます。
１７９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
ArrayListオブジェクトには「値の存在を調べるContainsメソッド」がありますので、１８０行目「If A.Contains(CStr(ListArray(i))) = False Then」で値の重複調査をします。
その値の調査結果がFalse（＝重複が無い）の時に、１８１行目「A.Add Value:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおArrayListオブジェクトの値は、本来「データ型の混在はOK」なのですが、今回はSortメソッドを使って並べ替えを行うために「データ型を揃える」必要があります。ですので全て文字列型にするためにCstr関数を使って、データ型変換をした上で重複チェック（１８０行目）・データ追加（１８１行目）を行っています。
データ追加が完了した後、１８５行目「A.Sort」で「値の並べ替え」を行い、１８６行目「ArrayL = A.toArray」でArrayListオブジェクトの全データを配列の形で変数ArrayL（関数プロシージャArrayLの戻り値）に設定します。
なおtoArrayで戻される配列は、Dictionaryオブジェクトと同様に「インデックスはゼロ始まり」です。インデックスを１からにしたい場合は、図１４と同じく「Transpose関数」を２回実行して下さい。
２－３－２－７．SortedList処理
図８の６２行目から呼び出されるのが図１６です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(10) SortedList処理 ============
- Private Function SortL(ListArray As Variant) As Variant
- Dim S As Object '←SortedListオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set S = CreateObject("System.Collections.SortedList")
-
- For i = 1 To UBound(ListArray, 1)
- If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))
- End If
- Next i
-
- ReDim buf(1 To S.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = S.GetByIndex(i - 1)
- Next i
-
- SortL = buf
- Set S = Nothing
- End Function
図１６
２０６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１６を抜け出し、Variant型の初期値であるEmptyを戻します。
２０８行目「Set S = CreateObject("System.Collections.SortedList")」では、SortedListオブジェクトを生成します。
２１０～２１４行目では、SortedListオブジェクトに元データを１つずつ追加していきます。
２１０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
SortedListオブジェクトには「Keyの存在を調べるContainsKeyメソッド」がありますので、２１１行目「If S.ContainsKey(CStr(ListArray(i))) = False Then」でKeyの重複調査をします。
その調査結果がFalse（＝Keyの重複が無い）の時に、２１２行目「S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおSortedListオブジェクトのKeyは「データ型の混在はNG」ですので、全て文字列型に揃えるためにCstr関数を使いデータ型変換をした上で重複チェック（２１１行目）・データ追加（２１２行目）を行っています。なお、値（Value）はデータ型混在OKなので、そのまま（ListArray(i)）格納しています。
なおDictionaryオブジェクトと同様に、SortedListではデータ追加・データ修正の手段に「SortedList.Item(Key) = Value」が使えます。ですので２１０～２１４行目は図１７のように書き換える事が可能です。
- For i = 1 To UBound(ListArray, 1)
' If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Item(CStr(ListArray(i))) = ListArray(i)
' End If
- Next i
図１７
SortedListオブジェクトへのデータ追加が完了したら、２１６～２１９行目で値を取り出し、別な配列（buf）に格納し直します。
まず２１６行目「ReDim buf(1 To S.Count)」で、格納する配列bufのサイズを指定します。
２１７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝SortedListの要素数）分だけ回します。
２１８行目「buf(i) = S.GetByIndex(i - 1)」で、配列bufの各要素へSortedListの値を１つずつ代入していきます。SortedListのインデックスはゼロ始まりですので「i - 1」としています。
配列bufへの代入が完了したら、２２１行目「SortL = buf」で関数プロシージャSortLの戻り値に配列bufを設定します。
なお、今回システムでは「リストボックスに値を入れる」ことが目的となっています。リストボックス内では「値は全て文字列扱い」ですので、渡される側としては「文字列のみの配列」で充分です。逆に渡す側（図１６）からすれば「元データのデータ型を保った値（Value）」で無くても、並べ替えの為に「文字列型に変換したKey値」でOKということになります。ですので図１８のような事もOKとなります。
- S.Add Value:="", Key:=CStr(ListArray(i))
- buf(i) = S.GetKey(i - 1)
図１８
図１８では、２１２行目「S.Add Value:="", Key:=CStr(ListArray(i))」で、Key値には文字列型で格納し、値（Value）には適当な値（ここでは、長さゼロの文字列）を入れています。
そして２１８行目で取り出す時も「文字列型」であるKey値をGetKeyメソッドを使って取り出します。関数プロシージャSortLとして戻す配列内のデータ型は異なりますが、リストボックスに表示される時には全く同じとなります。
３．重複除外処理のまとめ
- '========== ⇩(7) Collection処理 ============
- Private Function Collect(ListArray As Variant) As Variant
- Dim C As Collection '←Collectionオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
- If IsEmpty(ListArray) = True Then Exit Function
- Set C = New Collection
- For i = 1 To UBound(ListArray, 1)
- On Error Resume Next
- C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))
- On Error GoTo 0
- Next i
- ReDim buf(1 To C.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = C.Item(i)
- Next i
- Collect = buf
- Set C = Nothing
- End Function
１１６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１１を抜け出し、Variant型の初期値であるEmptyを戻します。
１１８行目「Set C = New Collection」では、Collectionオブジェクトを生成します。
１２０～１２４行目では、Collectionオブジェクトに元データを１つずつ追加していきます。CollectionのKeyはString型で指定する必要があり、またKeyの重複は出来ません。と言って、他可変長配列のように「Keyの存在をチェックするメソッド」がありませんので、ここでは「無理やり追加してみて、エラーが出たら重複していると判断」することにします。
１２０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
１２２行目「C.Add Item:=ListArray(i), Key:=CStr(ListArray(i))」では、Keyには「文字列型にした値」を設定し、Itemには「そのままの値」を設定します。Keyに重複が無ければそのまま格納されますが、重複していれば「エラーが発生し、格納はされない」ことになります。エラーが発生するとプログラムが止まってしまいますので、１２１行目「On Error Resume Next」でエラーはスルーさせます。
Collectionオブジェクトへの格納が終了したら、１２６～１２９行目で値を取り出し、別な配列（buf）に格納し直します。
まず１２６行目「ReDim buf(1 To C.Count)」で、配列bufのサイズを指定します。Collectionに格納した要素数はC.Countで得られますので、その数と同じサイズの配列にします。
１２７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝Collectionの要素数）分だけ回します。
１２８行目「buf(i) = C.Item(i)」で、配列bufの要素へCollectionの値（Item値）を１つずつ代入していきます。
配列bufへの代入が完了したら、１３１行目「Collect = buf」で関数プロシージャCollectの戻り値に配列bufを設定します。最後に１３２行目「Set C = Nothing」でオブジェクトを解放し終了します。
２－３－２－５．Dictionary処理
図８の５４行目から呼び出されるのが図１２です。引数として元データの一次元配列を受け取り、重複を除外した配列を戻します。
- '========== ⇩(8) Dictionary処理 ============
- Private Function Dict(ListArray As Variant) As Variant
- Dim D As Object '←Dictionaryオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set D = CreateObject("Scripting.Dictionary")
-
- For i = 1 To UBound(ListArray, 1)
- If D.Exists(ListArray(i)) = False Then
- D.Add Item:="", Key:=ListArray(i)
- End If
- Next i
-
- Dict = D.Keys
-
-
- Set D = Nothing
- End Function
図１２
１４５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１２を抜け出し、Variant型の初期値であるEmptyを戻します。
１４７行目「Set D = CreateObject("Scripting.Dictionary")」では、Dictionaryオブジェクトを生成します。
１４９～１５３行目では、Dictionaryオブジェクトに元データを１つずつ追加していきます。
１４９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
Dictionaryオブジェクトには「Keyの存在を調べるExistsメソッド」がありますので、１５０行目「If D.Exists(ListArray(i)) = False Then」でKeyの重複調査をします。
そのKeyの調査結果がFalse（＝重複が無い）の時に、１５１行目「D.Add Item:="", Key:=ListArray(i)」でDictionaryオブジェクトにデータを追加します。DictionaryにはKeyとItem（値）の両方をセットで追加する必要がありますが、今回はKeyだけで良いので「Key:=ListArray(i)」とし、Itemにはダミーで「""（長さゼロの文字列）」を設定しています。
なおDictionaryオブジェクトにデータを追加する手段として「Dictionary.Item(Key) = Item」という方法もあります。これは「データの修正」にも使用できるため、Existsメソッドを使用せずに「重複が有ったら上書き」していくという事にも使えます。この方法を使用すると、図１２の１４９～１５３行目を図１３のように置き換える事ができます。
- For i = 1 To UBound(ListArray, 1)
' If D.Exists(ListArray(i)) = False Then
- D.Item(ListArray(i)) = ""
' End If
- Next i
図１３
Dictionaryオブジェクトへのデータ追加が完了したら、１５５行目「Dict = D.Keys」で全てのKey値を取り出して戻り値であるDictに代入します。Keysメソッドは全てのKey値を「配列」の形で戻しますので、代入される変数Dictも配列となります。
なお戻される配列のインデックスは「ゼロ始まり」です。今回システムでは不具合は生じませんが、もし１始まりで無いとエラーが発生してしまう時には、図１４のように「Transpose関数」を２回実行することで「インデックスは１始まり」に変換されます。
- Dict = D.Keys
- Dict = WorksheetFunction.Transpose(Dict)
- Dict = WorksheetFunction.Transpose(Dict)
図１４
関数プロシージャDictの戻り値を設定後は、Dictionaryオブジェクト変数Dを１５８行目「Set D = Nothing」で解放します。
なお、１５１行目を「D.Add Item:=ListArray(i), Key:=ListArray(i)」と「値をDictionaryオブジェクトのItem側に追加」し、１５５行目を「Dict = D.Items」として「全ての値を戻す」手法でもOKです。
２－３－２－６．ArrayList処理
図８の５８行目から呼び出されるのが図１５です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(9) ArrayList処理 ============
- Private Function ArrayL(ListArray As Variant) As Variant
- Dim A As Object '←ArrayListオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set A = CreateObject("System.Collections.ArrayList")
-
- For i = 1 To UBound(ListArray, 1)
- If A.Contains(CStr(ListArray(i))) = False Then
- A.Add Value:=CStr(ListArray(i))
- End If
- Next i
-
- A.Sort
- ArrayL = A.toArray
-
- Set A = Nothing
- End Function
図１５
１７５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１５を抜け出し、Variant型の初期値であるEmptyを戻します。
１７７行目「Set A = CreateObject("System.Collections.ArrayList")」では、ArrayListオブジェクトを生成します。
１７９～１８３行目では、ArrayListオブジェクトに元データを１つずつ追加していきます。
１７９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
ArrayListオブジェクトには「値の存在を調べるContainsメソッド」がありますので、１８０行目「If A.Contains(CStr(ListArray(i))) = False Then」で値の重複調査をします。
その値の調査結果がFalse（＝重複が無い）の時に、１８１行目「A.Add Value:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおArrayListオブジェクトの値は、本来「データ型の混在はOK」なのですが、今回はSortメソッドを使って並べ替えを行うために「データ型を揃える」必要があります。ですので全て文字列型にするためにCstr関数を使って、データ型変換をした上で重複チェック（１８０行目）・データ追加（１８１行目）を行っています。
データ追加が完了した後、１８５行目「A.Sort」で「値の並べ替え」を行い、１８６行目「ArrayL = A.toArray」でArrayListオブジェクトの全データを配列の形で変数ArrayL（関数プロシージャArrayLの戻り値）に設定します。
なおtoArrayで戻される配列は、Dictionaryオブジェクトと同様に「インデックスはゼロ始まり」です。インデックスを１からにしたい場合は、図１４と同じく「Transpose関数」を２回実行して下さい。
２－３－２－７．SortedList処理
図８の６２行目から呼び出されるのが図１６です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(10) SortedList処理 ============
- Private Function SortL(ListArray As Variant) As Variant
- Dim S As Object '←SortedListオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set S = CreateObject("System.Collections.SortedList")
-
- For i = 1 To UBound(ListArray, 1)
- If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))
- End If
- Next i
-
- ReDim buf(1 To S.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = S.GetByIndex(i - 1)
- Next i
-
- SortL = buf
- Set S = Nothing
- End Function
図１６
２０６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１６を抜け出し、Variant型の初期値であるEmptyを戻します。
２０８行目「Set S = CreateObject("System.Collections.SortedList")」では、SortedListオブジェクトを生成します。
２１０～２１４行目では、SortedListオブジェクトに元データを１つずつ追加していきます。
２１０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
SortedListオブジェクトには「Keyの存在を調べるContainsKeyメソッド」がありますので、２１１行目「If S.ContainsKey(CStr(ListArray(i))) = False Then」でKeyの重複調査をします。
その調査結果がFalse（＝Keyの重複が無い）の時に、２１２行目「S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおSortedListオブジェクトのKeyは「データ型の混在はNG」ですので、全て文字列型に揃えるためにCstr関数を使いデータ型変換をした上で重複チェック（２１１行目）・データ追加（２１２行目）を行っています。なお、値（Value）はデータ型混在OKなので、そのまま（ListArray(i)）格納しています。
なおDictionaryオブジェクトと同様に、SortedListではデータ追加・データ修正の手段に「SortedList.Item(Key) = Value」が使えます。ですので２１０～２１４行目は図１７のように書き換える事が可能です。
- For i = 1 To UBound(ListArray, 1)
' If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Item(CStr(ListArray(i))) = ListArray(i)
' End If
- Next i
図１７
SortedListオブジェクトへのデータ追加が完了したら、２１６～２１９行目で値を取り出し、別な配列（buf）に格納し直します。
まず２１６行目「ReDim buf(1 To S.Count)」で、格納する配列bufのサイズを指定します。
２１７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝SortedListの要素数）分だけ回します。
２１８行目「buf(i) = S.GetByIndex(i - 1)」で、配列bufの各要素へSortedListの値を１つずつ代入していきます。SortedListのインデックスはゼロ始まりですので「i - 1」としています。
配列bufへの代入が完了したら、２２１行目「SortL = buf」で関数プロシージャSortLの戻り値に配列bufを設定します。
なお、今回システムでは「リストボックスに値を入れる」ことが目的となっています。リストボックス内では「値は全て文字列扱い」ですので、渡される側としては「文字列のみの配列」で充分です。逆に渡す側（図１６）からすれば「元データのデータ型を保った値（Value）」で無くても、並べ替えの為に「文字列型に変換したKey値」でOKということになります。ですので図１８のような事もOKとなります。
- S.Add Value:="", Key:=CStr(ListArray(i))
- buf(i) = S.GetKey(i - 1)
図１８
図１８では、２１２行目「S.Add Value:="", Key:=CStr(ListArray(i))」で、Key値には文字列型で格納し、値（Value）には適当な値（ここでは、長さゼロの文字列）を入れています。
そして２１８行目で取り出す時も「文字列型」であるKey値をGetKeyメソッドを使って取り出します。関数プロシージャSortLとして戻す配列内のデータ型は異なりますが、リストボックスに表示される時には全く同じとなります。
３．重複除外処理のまとめ
- '========== ⇩(9) ArrayList処理 ============
- Private Function ArrayL(ListArray As Variant) As Variant
- Dim A As Object '←ArrayListオブジェクトの宣言
- Dim i As Integer '←引数で受け取った配列の要素数
- If IsEmpty(ListArray) = True Then Exit Function
- Set A = CreateObject("System.Collections.ArrayList")
- For i = 1 To UBound(ListArray, 1)
- If A.Contains(CStr(ListArray(i))) = False Then
- A.Add Value:=CStr(ListArray(i))
- End If
- Next i
- A.Sort
- ArrayL = A.toArray
- Set A = Nothing
- End Function
１７５行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１５を抜け出し、Variant型の初期値であるEmptyを戻します。
１７７行目「Set A = CreateObject("System.Collections.ArrayList")」では、ArrayListオブジェクトを生成します。
１７９～１８３行目では、ArrayListオブジェクトに元データを１つずつ追加していきます。
１７９行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
ArrayListオブジェクトには「値の存在を調べるContainsメソッド」がありますので、１８０行目「If A.Contains
その値の調査結果がFalse（＝重複が無い）の時に、１８１行目「A.Add Value:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおArrayListオブジェクトの値は、本来「データ型の混在はOK」なのですが、今回はSortメソッドを使って並べ替えを行うために「データ型を揃える」必要があります。ですので全て文字列型にするためにCstr関数を使って、データ型変換をした上で重複チェック（１８０行目）・データ追加（１８１行目）を行っています。
データ追加が完了した後、１８５行目「A.Sort」で「値の並べ替え」を行い、１８６行目「ArrayL = A.toArray」でArrayListオブジェクトの全データを配列の形で変数ArrayL（関数プロシージャArrayLの戻り値）に設定します。
なおtoArrayで戻される配列は、Dictionaryオブジェクトと同様に「インデックスはゼロ始まり」です。インデックスを１からにしたい場合は、図１４と同じく「Transpose関数」を２回実行して下さい。
２－３－２－７．SortedList処理
図８の６２行目から呼び出されるのが図１６です。引数として元データの一次元配列を受け取り、重複を除外＋並べ替えをした配列を戻します。
- '========== ⇩(10) SortedList処理 ============
- Private Function SortL(ListArray As Variant) As Variant
- Dim S As Object '←SortedListオブジェクトの宣言
- Dim buf() As Variant '←←新たな配列（戻り値となる配列）
- Dim i As Integer '←引数で受け取った配列の要素数
-
- If IsEmpty(ListArray) = True Then Exit Function
-
- Set S = CreateObject("System.Collections.SortedList")
-
- For i = 1 To UBound(ListArray, 1)
- If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))
- End If
- Next i
-
- ReDim buf(1 To S.Count)
- For i = 1 To UBound(buf, 1)
- buf(i) = S.GetByIndex(i - 1)
- Next i
-
- SortL = buf
- Set S = Nothing
- End Function
図１６
２０６行目「If IsEmpty(ListArray) = True Then Exit Function」では、引数がEmpty（＝元データが１つも無い）の時に図１６を抜け出し、Variant型の初期値であるEmptyを戻します。
２０８行目「Set S = CreateObject("System.Collections.SortedList")」では、SortedListオブジェクトを生成します。
２１０～２１４行目では、SortedListオブジェクトに元データを１つずつ追加していきます。
２１０行目「For i = 1 To UBound(ListArray, 1)」では、カウンタ変数ｉを元データ配列の要素数分だけ回します。
SortedListオブジェクトには「Keyの存在を調べるContainsKeyメソッド」がありますので、２１１行目「If S.ContainsKey(CStr(ListArray(i))) = False Then」でKeyの重複調査をします。
その調査結果がFalse（＝Keyの重複が無い）の時に、２１２行目「S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおSortedListオブジェクトのKeyは「データ型の混在はNG」ですので、全て文字列型に揃えるためにCstr関数を使いデータ型変換をした上で重複チェック（２１１行目）・データ追加（２１２行目）を行っています。なお、値（Value）はデータ型混在OKなので、そのまま（ListArray(i)）格納しています。
なおDictionaryオブジェクトと同様に、SortedListではデータ追加・データ修正の手段に「SortedList.Item(Key) = Value」が使えます。ですので２１０～２１４行目は図１７のように書き換える事が可能です。
- For i = 1 To UBound(ListArray, 1)
' If S.ContainsKey(CStr(ListArray(i))) = False Then
- S.Item(CStr(ListArray(i))) = ListArray(i)
' End If
- Next i
図１７
SortedListオブジェクトへのデータ追加が完了したら、２１６～２１９行目で値を取り出し、別な配列（buf）に格納し直します。
まず２１６行目「ReDim buf(1 To S.Count)」で、格納する配列bufのサイズを指定します。
２１７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝SortedListの要素数）分だけ回します。
２１８行目「buf(i) = S.GetByIndex(i - 1)」で、配列bufの各要素へSortedListの値を１つずつ代入していきます。SortedListのインデックスはゼロ始まりですので「i - 1」としています。
配列bufへの代入が完了したら、２２１行目「SortL = buf」で関数プロシージャSortLの戻り値に配列bufを設定します。
なお、今回システムでは「リストボックスに値を入れる」ことが目的となっています。リストボックス内では「値は全て文字列扱い」ですので、渡される側としては「文字列のみの配列」で充分です。逆に渡す側（図１６）からすれば「元データのデータ型を保った値（Value）」で無くても、並べ替えの為に「文字列型に変換したKey値」でOKということになります。ですので図１８のような事もOKとなります。
- S.Add Value:="", Key:=CStr(ListArray(i))
- buf(i) = S.GetKey(i - 1)
図１８
図１８では、２１２行目「S.Add Value:="", Key:=CStr(ListArray(i))」で、Key値には文字列型で格納し、値（Value）には適当な値（ここでは、長さゼロの文字列）を入れています。
そして２１８行目で取り出す時も「文字列型」であるKey値をGetKeyメソッドを使って取り出します。関数プロシージャSortLとして戻す配列内のデータ型は異なりますが、リストボックスに表示される時には全く同じとなります。
３．重複除外処理のまとめ
その調査結果がFalse（＝Keyの重複が無い）の時に、２１２行目「S.Add Value:=ListArray(i), Key:=CStr(ListArray(i))」でArrayListオブジェクトにデータを追加します。なおSortedListオブジェクトのKeyは「データ型の混在はNG」ですので、全て文字列型に揃えるためにCstr関数を使いデータ型変換をした上で重複チェック（２１１行目）・データ追加（２１２行目）を行っています。なお、値（Value）はデータ型混在OKなので、そのまま（ListArray(i)）格納しています。
なおDictionaryオブジェクトと同様に、SortedListではデータ追加・データ修正の手段に「SortedList.Item(Key) = Value」が使えます。ですので２１０～２１４行目は図１７のように書き換える事が可能です。
- For i = 1 To UBound(ListArray, 1)
' If S.ContainsKey(CStr(ListArray(i))) = False Then- S.Item(CStr(ListArray(i))) = ListArray(i)
' End If- Next i
SortedListオブジェクトへのデータ追加が完了したら、２１６～２１９行目で値を取り出し、別な配列（buf）に格納し直します。
まず２１６行目「ReDim buf(1 To S.Count)」で、格納する配列bufのサイズを指定します。
２１７行目「For i = 1 To UBound(buf, 1)」では、カウンタ変数ｉを配列bufの要素数（＝SortedListの要素数）分だけ回します。
２１８行目「buf(i) = S.GetByIndex(i - 1)」で、配列bufの各要素へSortedListの値を１つずつ代入していきます。SortedListのインデックスはゼロ始まりですので「i - 1」としています。
配列bufへの代入が完了したら、２２１行目「SortL = buf」で関数プロシージャSortLの戻り値に配列bufを設定します。
なお、今回システムでは「リストボックスに値を入れる」ことが目的となっています。リストボックス内では「値は全て文字列扱い」ですので、渡される側としては「文字列のみの配列」で充分です。逆に渡す側（図１６）からすれば「元データのデータ型を保った値（Value）」で無くても、並べ替えの為に「文字列型に変換したKey値」でOKということになります。ですので図１８のような事もOKとなります。
- S.Add Value:="", Key:=CStr(ListArray(i))
- buf(i) = S.GetKey(i - 1)
図１８では、２１２行目「S.Add Value:="", Key:=CStr(ListArray(i))」で、Key値には文字列型で格納し、値（Value）には適当な値（ここでは、長さゼロの文字列）を入れています。
そして２１８行目で取り出す時も「文字列型」であるKey値をGetKeyメソッドを使って取り出します。関数プロシージャSortLとして戻す配列内のデータ型は異なりますが、リストボックスに表示される時には全く同じとなります。
そして２１８行目で取り出す時も「文字列型」であるKey値をGetKeyメソッドを使って取り出します。関数プロシージャSortLとして戻す配列内のデータ型は異なりますが、リストボックスに表示される時には全く同じとなります。
３．重複除外処理のまとめ
|
セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。 |