重複なしのデータ抽出（４）｜エクセルＶＢＡ
Dictionaryを利用する
Dictionaryオブジェクトを利用します。
このページの中ではもっとも短時間で処理できます。
コード例
Sub myDic()
Dim myDic As Object, myKey As Variant
Dim c As Variant, varData As Variant
Set myDic = CreateObject(“Scripting.Dictionary”)
With Worksheets(“Sheet1″)
varData = .Range(“A1″, .Range(“A” & Rows.Count).End(xlUp)).Value
End With
For Each c In varData
If Not c = Empty Then
If Not myDic.Exists(c) Then
myDic.Add c, Null
End If
End If
Next
myKey = myDic.Keys
With Worksheets(“Sheet2″)
.Range(“G:G”).ClearContents
.Range(“G1″).Resize(myDic.Count) = Application.WorksheetFunction.Transpose(myKey)
End With
Set myDic = Nothing
End Sub
