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

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

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

●サンプル●
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
    
     Else
    
     同じではなかったら、次のＢ列のデータとのチェックをします。
     BPos = BPos + 1
     End If
 Loop

 '＜Ｂ列に同じデータがなかった場合、Ｂ列にＡ列の内容をセットします。＞
 If Cells(BPos, 2).Value = "" Then
    SetPos = SetPos + 1
    Cells(SetPos, 2).Value = Cells(APos, 1).Value
 End If
Next APos

MsgBox "総件数" & AllSu & "件中、" & AllSu - SetPos & "件が重複していました。" _
       & Chr(13) & SetPos & "件がＢ列に抽出されました。" '←（４）
End Sub

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

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

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

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

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

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

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

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

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

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