【VBA】重複を除いたリスト(配列)を作成する【UNIQUE関数】

例えば
　・以下の表のB列「名前」の「重複した値」
から…

「重複を除いたリスト(配列)」を
作成できます！

VBAから
　・ワークシート関数である「UNIQUE関数」
を使用することで実現できます！
※UNIQUE関数はOffice365のExcelでのみ使用できる関数です。

「UNIQUE関数」を使用しない方法もあります。
詳細は以下の記事をご確認ください。
※「UNIQUE関数」を使用した方法より多少複雑なコードとなっています。

【VBA】重複を除いたリスト(Dictionary)を作成する【UNIQUE関数は使用せず】

【VBA】重複を除いたリスト(Dictionary)を作成するVBAコードです！【UNIQUE関数は使用せず】

VBAコード
実行結果
参考①
参考②
参考③
参考④
参考⑤

VBAコード

ここでは例として、
　・シート「sample」のB列「名前」の「重複した値」を使用して
　・重複を除いたリスト(配列)を作成し
　・イミディエイトウインドウへ出力
します。

Option Explicit

Sub sample()
    
    Dim ws As Worksheet
    Dim startRange As Range
    Dim endRow As Double
    Dim endRange As Range
    Dim targetRange As Range
    Dim arrUniqueList As Variant
    Dim item As Variant
    
    'リストのある対象シートを取得
    Set ws = Worksheets("sample")

    'リストの開始セルを取得
    Set startRange = ws.Range("B3")
    'リストの最終行を取得
    endRow = startRange.End(xlDown).Row
    'リストの最終セルを取得
    Set endRange = ws.Cells(endRow, startRange.Column)
    
    'リストの対象範囲を取得
    Set targetRange = ws.Range(startRange, endRange)
    
    '重複を除いたリスト(配列)を作成
    arrUniqueList = WorksheetFunction.Unique(targetRange)
    
    For Each item In arrUniqueList
        '重複を除いたリスト(配列)をイミディエイトウインドウへ出力
        Debug.Print item
    Next
    
End Sub

「WorksheetFunctionオブジェクト」の「Unique」メソッドにより、「重複を除いたリスト(配列)」を作成します(27行目)。
※ワークシート関数「UNIQUE関数」です。

「WorksheetFunctionオブジェクト」の「Unique」メソッドは、Office365でのみ使用できるメソッドです。
※プリインストールされているExcelでは使用できません。

プリインストールされているExcelで「Unique」メソッドの実行を試みると、以下のエラーが発生します。