3行マクロ重複行を見つけて削除

重複行を削除する

動画で3行マクロ解説

重複行を削除する

Excelの3行マクロ～すぐに使えるミニマクロ11回です。
今回はデータ集計時の困ったナンバーワン重複行の削除です。データが重複していると正確な集計ができません。
しかし大量のデータを複数で入力するケースなどでは起こりがちです。
重複業を除いて集計するためには、元のデータはそのまま取っておいて重複行だけを非表示にするとか、あるいは非表示しないで完全に削除するとかの場合によって使い分ける必要があるかもしれませんけれども、今回のケースでは完全に削除します。
複数列からなる1行のデータのすべてが一致した場合に削除と言うパターンです。
それでは、４列からなる表で全部一致しないと重複としないケースと、それ以外で、指定した２列や３列が一致したら重複とする場合などでは、どのように書き分けたらよいのでしょうか。
VBAでは重複するかどうかの判定をする列にArray（配列）を使っています。４列の表で４列すべて指定するなら、Array(1,2,3,4)などとするわけです。
それで、日付は同じでなくてもいいという場合、１列が日付なら、Array(2,3,4)というような指定です。

（サンプルファイルは、こちらです。重複削除する3行マクロ、時短激うまExcelの3行マクロ～すぐに使えるミニマクロ11回サンプル）

マクロで重複行を削除する

https://youtu.be/OwQLjqkN08w

VBA 重複行を削除するマクロ、Excelはどのように重複を削除しているのかしくみがわかるVBAコード

３行マクロの重複を削除する動画内で紹介したVBAコード

'==============================================================
'=３行マクロ講座入門編　11回　https://kokodane.com/
'==============================================================

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

Sub 重複削除2()
    ActiveCell.CurrentRegion.Select
    Selection.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
End Sub

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

Sub 重複削除4()
    Dim lastR As Long
    lastR = Cells(Rows.Count, 2).End(xlUp).Row
    Range("B2", "E" & lastR).RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
        Header:=xlYes
End Sub

3行マクロ重複行を削除するマクロ記事解説へ戻る

次の動画3行マクロ動画講座12回