重複なしのデータ抽出（４）｜エクセルＶＢＡ

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

>文書作成代行/データ入力代行サービス
>ワード・エクセル・マクロＶＢＡ・パワーポイント・アクセス企業パソコン研修
>出張パソコン教室ITスクール　
>パソコンの家庭教師BEST