Excelにて重複したセルを削除するマクロ

Excelにて重複したセルを削除するマクロです。

クエリなどで他のデータを読み込んで、ピポットテーブルで内容をみていますが、

メールアドレスなど項目の重複を避けたい時がありました。

クエリやピポットテーブルやには既にフィルタが適用しているし、クエリやピポットの結果による重複を避けて調べたい。ただ、もう一つクエリやピポットを作るほどでもないので、ちょっとマクロにて処理してデータを取り出しています。

マクロの内容

「データ元ファイルパス」のシートのC行をクリア
「ピポット」のシートのＧ行をコピー

「データ元ファイルパス」のシートにて
C行に値で貼り付け
C行で重複した行を削除(1行だけですが）
処理したセルをコピー（次の操作につなげるため）
C3セルを選択して、上の方を表示（次の操作がしすいため）

以下コード

Sub 重複削除() Sheets("データ元ファイルパス").Select Columns("C:C").Select Selection.Clear Sheets("ピボット").Select Columns("G:G").Select Selection.Copy Sheets("データ元ファイルパス").Select Columns("C:C").Select '値で貼り付け Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False 'C1からC200までで重複したセルを削除 ActiveSheet.Range("C1:C200").RemoveDuplicates Columns:=1, Header:=xlNo 'Columns範囲で指定した中で左から何列目か 'Header範囲内1行目をヘッダーとして扱うか（扱う場合はxlYes） Range("C3").Select '選択した位置から下に連続したセルまで選択 Range(Selection, Selection.End(xlDown)).Select '次の操作につなげるためコピー Selection.Copy '表示を上の方にするため選択 Range("C3").Select End Sub