VBA：Excelの重複行を削除する方法
１．やりたいこと
Excelの重複行をまとめて1行にしたい。
黄色と水色が重複しているレコード。重複行は1行にまとめる。
結果はこのようになります。
黄色のレコードの1行目と2行目は、「利用フラグ」(F列)が異なるので残ったままになります。
黄色のレコードの1行目と2行目は、「利用フラグ」(F列)が異なるので残ったままになります。
２．サンプルコード
以下のサンプルコードを実行すると重複行が1行になります。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Function 重複行削除() Dim LastRow As Long Dim LastColumn As Long With Sheets("Sheet1") LastRow = .Cells(Rows.Count, 1).End(xlUp).Row LastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column '//重複行の削除' '重複をチェックするカラムはArrayで設定' '1から7カラム目までの情報が重複しているかどうかチェックします。' .Range(.Cells(1, 1), .Cells(LastRow, LastColumn)).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlYes End With End Function |
