スキルアップ・問題解決なら、モーグにおまかせ！

「Ｆｏｒ Ｅａｃｈ〜Ｎｅｘｔ」と「Ｆｉｎｄ」メソッドを使った方法
                  
●詳細●
サンプルでは、
Ａ列のデータから、重複データを取り除いた結果をＢ列に抽出します。
「重複データのチェックをしよう＜パターン１＞」と同じ結果を得るのですが、今回は、「ＦｏｒＥａｃｈ〜Ｎｅｘｔ」と「Ｆｉｎｄ」メソッドを使います。
＜パターン１＞では、Ａ列の全データ数を取得して処理の繰り返し回数をセットしていましたが、「ＦｏｒＥａｃｈ〜Ｎｅｘｔ」を使うと対象のオブジェクトの”数”を意識せずに、Ａ列の１件目のデータから最後のデータのまでのセル範囲に対して、処理を繰り返すとができます。その中で、「Ｆｉｎｄ」メソッドを使って重複チェックの処理をします。
「Ｆｉｎｄ」メソッドでＢ列に同じデータが検索されなかった場合は、Ａ列の内容をＢ列の最後にセットし、Ａ列の次のデータをチェックします。同じデータがあった場合は、「Ｆｏｒ Ｅａｃｈ〜Ｎｅｘｔ」を抜けて、Ａ列の次のデータをチェックします。Ａ列のセル範囲のチェックが終了したら、メッセージボックスで「総件数中何件が重複していて、何件が抽出された」かを表示します。

●準備●
＊１枚目のシートのＡ列に何件かデータを入力し、重複データも用意してください。

●サンプル●
Sub Sample()
    Dim ChkRange As Range
    Dim ALastPos As String
    Dim BLastPos As String
    Dim Answer As Variant
    Dim SetPos As Integer

    '＜結果を表示するＢ列を空にします。＞
    Columns("B:B").ClearContents

    '＜結果（Ｂ列）をセットする行位置取得用変数を初期化します。＞
    SetPos = 0
    
    '＜Ａ列の最終データ（セル）のアドレスを取得します。＞
    ALastPos = Range("A65536").End(xlUp).Address()

    '＜Ａ列のセル範囲に対して処理を繰り返します。＞
    For Each ChkRange
      In Worksheets(1).Range("A1" & ALastPos) ←（１）
     
      '＜Ｂ列の最終データ（セル）のアドレスを取得します。＞
      BLastPos = Range("B65536").End(xlUp).Address()

      '＜Ａ列と同じデータがＢ列の範囲にあるかどうか検索します。
         '同じデータがあれば”Answer”にセルを参照し、
         '無ければ”Nothing”を返します。＞
      Set Answer = Worksheets(1).Range("B1:" & BLastPos). _ ←（２）
                   Find(ChkRange, LookAt:=xlWhole)          ←（３）
     
      '＜Ｂ列に同じデータがなかった場合、Ｂ列にＡ列の内容をセットします。＞
      If Answer Is Nothing Then
          SetPos = SetPos + 1
          Range("B" & SetPos).Value = ChkRange
      End If
    Next ChkRange
    MsgBox "総件数" & Range("A1:" & ALastPos).Count & _
           "件中、" & Range("A1:" & ALastPos).Count - SetPos & "件が重複していました。" & _
           Chr(13) & SetPos & "件がＢ列に抽出されました。";
End Sub

●補足説明●
「Ｆｏｒ Ｅａｃｈ〜Ｎｅｘｔ」ステートメントは、オブジェクトコレクション
（Ａ列のセル範囲）の各オブジェクト（Ａ列の各セル）に対して繰り返して処理を行います。

　　　　＜構文＞
　　　　　Ｆｏｒ Ｅａｃｈ ｅｌｅｍｅｎｔ
　　　　　　　　　Ｉｎ ｇｒｏｕｐ
　　　　　　　　　（処理）
　　　　　Ｎｅｘｔ ｅｌｅｍｅｎｔ

　　　　ｅｌｅｍｅｎｔ：コレクションの各要素を繰り返す変数を指定します。
　　　　ｇｒｏｕｐ：オブジェクトコレクションを指定します。

　　　繰り返し処理が開始されると、引数ｇｒｏｕｐの最初のオブジェクトに対して処理が実行されます。
　　　引数ｇｒｏｕｐの中にオブジェクトがある限り処理は続けられます。
　　　処理から抜け出すには、「Ｅｘｉｔ Ｆｏｒ」を使います。

「Ｓｅｔ」ステートメントは、オブジェクトへの参照を変数に代入して、実際のオブジェクト
を参照できるようにします。

「Ｆｉｎｄ」メソッドは、指定されたセル範囲（Ｂ列）の中で特定の情報（Ａ列のセル要素）
を検索し、情報が見つかった最初のセルを返します。検索の条件にあてはまるセルが見つから
なかった場合は、「Ｎｏｔｈｉｎｇ」を返します。

　　　　＜構文＞
　　　　　ｏｂｊｅｃｔ．Ｆｉｎｄ（Ｗｈａｔ，ＬｏｏｋＡｔ）

　　　　　ｏｂｊｅｃｔ：対象となるＲａｎｇｅオブジェクトを指定します。
　　　　　Ｗｈａｔ：検索する内容を指定します。
　　　　　ＬｏｏｋＡｔ：定数「ｘｌＷｈｏｌｅ」または「ｘｌＰａｒｔ」を使って検索条件をセットします。
　　　　　ｘｌＷｈｏｌｅ・・・完全一致のセル
　　　　　ｘｌＰａｒｔ ・・・検索文字を含むセル