●詳細● 

　サンプルでは、Ａ列のデータから、重複データを取り除いた結果をＢ列に抽出します。
　今回は、「Ｆｏｒ〜Ｎｅｘｔ」と「Ｄｏ Ｗｈｉｌｅ〜Ｌｏｏｐ」を使ってチェックします。
　まずは、Ａ列のデータの総件数を取得します。「Ｆｏｒ〜Ｎｅｘｔ」で１件目から総件数分、
　処理を行います。その中で、「Ｄｏ Ｗｈｉｌｅ〜Ｌｏｏｐ」を使って重複チェックの処理
　をします。
　「Ｄｏ Ｗｈｉｌｅ〜Ｌｏｏｐ」の条件は、「Ｂ列が””でない間（Ｂ列に値がある間）」
　で、Ａ列の内容をＢ列の１件目から比べていきます。Ｂ列に同じデータが無かった場合は、
　Ａ列の内容をＢ列の最後にセットし、Ａ列の次のデータをチェックします。
　同じデータがあった場合は、「Ｄｏ Ｗｈｉｌｅ〜Ｌｏｏｐ」を抜けて、Ａ列の次のデータ
　をチェックします。Ａ列の全データのチェックが終了したら、メッセージボックスで「総件
　数中何件が重複していて、何件が抽出された」かを表示します。

●準備● 

　＊ Ａ列に何件かデータを入力し、重複データも用意してください。

●サンプル● 

Sub Sample() 

    Dim APos As Integer
    Dim BPos As Integer
    Dim SetPos As Integer
    Dim CellPos As String
    Dim AllSu As Integer

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

    '＜最終データが入力されているセルに移動します。
    'データが無い場合は”Ａ１”がSelectされます。＞
    Range("A65536").End(xlUp).Select

    '＜最終データ（セル）のアドレスを取得します。＞
    CellPos = Selection.Address()

    '＜データ総数を取得します。＞
    AllSu = Range("A1:" & CellPos).Rows.Count 

    '＜結果（Ｂ列）をセットする行位置取得用変数を初期化します。＞
    SetPos = 0 

    '＜データ総数分作業を繰り返します。＞
    For APos = 1 To AllSu ←（１） 

    '＜Ｂ列の全データと比較するので、行位置を１行目にしています。＞
           BPos = 1 

          '＜Ｂ列に値がある間、チェック作業を繰り返します。＞
          Do While (Cells(BPos, 2).Value <> "") ←（２） 

            '＜Ａ列とＢ列の内容が同じかどうかチェックします。＞
            If Cells(APos, 1).Value = Cells(BPos, 2).Value Then 

              '＜同じだったらＢ列にセットする必要が無いのでチェック作業を終わります。＞
             Exit Do ←（３） 
           End

            '＜同じではなかったら、次のＢ列のデータとのチェックをします。＞
           BPos = BPos + 1 
         Loop

         '＜Ｂ列に同じデータがなかった場合、Ｂ列にＡ列の内容をセットします。＞
         If Cells(BPos, 2).Value = "" Then
          SetPos = SetPos + 1 
          Cells(SetPos, 2).Value = Cells(APos, 1).Value 
        End
    Next APos 
    MsgBox "総件数" & AllSu & "件中、" & AllSu - SetPos & "件が重複していました。" _ 
           & Chr(13) & SetPos & "件がＢ列に抽出されました。" ←（４） 
End Sub 

●補足説明● 

　（１）「Ｆｏｒ〜Ｎｅｘｔ」ステートメントは、指定された回数分、処理を繰り返します。

　　　＜構文＞ 
　　　　Ｆｏｒ ｘ ＝ ｉ Ｔｏ ｙ 
　　　　　（処理） 
　　　　Ｎｅｘｔ ｘ 

　　ｘ：繰り返す回数をカウントする数値変数を指定します。

　　ｉ：初期値をセットします。 
　　ｙ：繰り返す回数（最終値）をセットします。

　　Ｎｅｘｔステートメントでｘに１加算され、再び処理を繰り返します。

（２）「Ｄｏ〜Ｌｏｏｐ」ステートメントは、指定された条件が満たされている間
　　　もしくは満たされるまで、処理を繰り返します。

　　　満たされている間処理を行いたい場合。 

　　＜構文＞
　　　Ｄｏ Ｗｈｉｌｅ 条件 
　　　　（処理） 
　　　Ｌｏｏｐ 

　　満たされるまで処理を行いたい場合。 
　　＜構文＞
　　　Ｄｏ Ｕｎｔｉｌ 条件 
　　　　（処理） 
　　　Ｌｏｏｐ 

（３）「Ｅｘｉｔ Ｄｏ」は「Ｄｏ〜Ｌｏｏｐ」ステートメントから抜け出す方法です。
　　　「Ｆｏｒ〜Ｎｅｘｔ」の抜け方は「ＥｘｉｔＦｏｒ」です。