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...