VBA：Excelの重複行を削除する方法

by chasou_tech · 公開済み 2024年3月16日 · 更新済み 2024年3月16日

１．やりたいこと

Excelの重複行をまとめて1行にしたい。

黄色と水色が重複しているレコード。重複行は1行にまとめる。

結果はこのようになります。
黄色のレコードの1行目と2行目は、「利用フラグ」(F列)が異なるので残ったままになります。

---

---

２．サンプルコード

以下のサンプルコードを実行すると重複行が1行になります。

VBA サンプルコード

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

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

---

• 次の記事 VBA：Excelでフィルターをかけたデータを削除する方法
• 前の記事 VBA：取り込むCSVの行数と列数を取得する方法

おすすめ

• 

  VBAツール：【Excel】CSVを取り込んで重複行削除・加工し、CSVで出力するツール

  2024年3月15日

   by chasou_tech · Published 2024年3月15日 · Last modified 2024年3月17日

• 

  VBA：ExcelのデータをCSVで出力する方法

  2024年3月17日

   by chasou_tech · Published 2024年3月17日

• 

  VBA：タスクバーのアプリアイコンを点滅させる方法

  2023年2月3日

   by chasou_tech · Published 2023年2月3日 · Last modified 2023年2月10日