重複データを非表示

まず表全体を範囲選択してから、マクロの記録を開始します。

マクロの名前をつけ、保存先を個人用マクロブックにします。

Excel 2013 基本技44回　重複データを非表示にするの手順でデータタブをクリックして、並べ替えとフィルタグループにある、詳細設定をクリックします。
フィルタオプションの設定ダイアログボックスが表示されたら、重複するレコードは無視するにチェックを入れてOKをクリックします。

重複が非表示になった表をコピーして

シートを追加して、貼り付けます。

貼り付けたら、マクロの記録は終了します。

では、次に出来上がったコードを見てみましょう。

コードを見てみましょう

コードを見ると、マクロの記録で選択した範囲Range("B2:E26")を選択していますが、汎用的に使うために、Selectionに変更しましょう。

範囲をSelectionに変更して、もう1回範囲を選択している重複コードを削除しました。

マクロのコードです。

 Sub 重複削除()
    Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
End Sub
 

コードを修正していますので、使用する時は、予め表全体を選択しておいてから、マクロを実行してください。
次は、重複行は、不要と判断して行ごと削除してしまいます。

この場合は、データタブから、データツールグループにある、重複の削除をクリックします。

すると、重複の削除ダイアログが表示されるので、重複が含まれる列を選択します。今回は、列4つとも選択しています。

OKをクリックすると、重複行が削除されます。

この手順をマクロで記録します。コードは以下のようになりました。

Sub Macro2()
    Selection.CurrentRegion.Select
    ActiveSheet.Range("$B$2:$E$26").RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
        Header:=xlYes
End Sub

このコードを汎用性の高いものにするために、以下のように修正します。列全体を選択することで、行数を意識しないで済みます。使うときは、そのデータの列をRangeで指定し、Arrayでどの列に重複があるのか指定してやります。

Sub 重複削除()
    ActiveSheet.Range("B:E").RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
End Sub

動画で詳しく解説しています。