エクセルVBAマクロでシートのデータ重複チェックと削除する方法

2024年8月16日 2025年3月15日

エクセルの便利な機能の一つに、シートにあるデータ重複チェックがありますが、その効率的な利用にはVBAマクロの利用です。VBAマクロを活用してデータ重複チェックと削除で、あなたのスキル向上と業務効率化をサポートする情報をお届けします。

「VBAスキルを証明できれば、社内評価アップにつながるかもしれません
👉 VBAを学んで社内評価を上げる方法はこちら

エクセルVBAマクロの作り方や実行の基本的なことを知りたい人は、下記記事を参照ください。

ExcelVBAマスターへの第一歩！エクセルのマクロ作成方法に焦点を当て、初心者でも分かりやすくステップバイステップで学べる記事になっています。どなたでも迷うことなく学べるようになっています。プログラミングの世界への扉を開く一助になれば幸いです。 Excel（エクセル）マクロとは？エクセ...

Excel VBA ベーシック・マクロの実行について

1 VBAマクロを使ったデータ重複チェックと削除｜利用シーン
2 VBAマクロを使ったデータ重複チェックと削除｜サンプルコード
3 VBAマクロを使ったデータ重複チェックと削除｜サンプルコード解説

VBAマクロを使ったデータ重複チェックと削除｜利用シーン

データ重複チェックと削除

シートにあるデータの重複をチェックし重複行を削除する。このエクセルVBAマクロで、データの重複チェックと削除が自動化されデータの整合性が保たれます。

このエクセルVBAマクロ処理をどこで使うのか？
初心者の人にはイメージがわかないかもしれませんが、業務効率向上のための処理を作成する前に、データをチェックしたり、データのどこかに問題があるときなどに利用するシーンがあります。

伝票件数はあっているが今日の売上が極端に少ないとき、担当者コードと取引区分で集約して、ありもしない返品や値引きがないかチェックする。

伝票入力にある摘要欄が、入力者によってまちまちで、長すぎたり、短すぎたり、入力しないといけないはずの返品時の元伝票Noがないなど、後から見てわからないと言われたとき、この重複処理で入力内容を集約して、現在の入力内容を調査、今後の入力ルールを決めるなどに利用できます。

「VBAスキルを証明できれば、社内評価アップにつながるかもしれません
👉 VBAを学んで社内評価を上げる方法はこちら

VBAマクロを使ったデータ重複チェックと削除｜サンプルコード

ブックの1番目のシートにあるデータから、A列とB列の値が同じ行を見つけ、その中で重複している行を削除します。最初の行は見出しとして扱い、削除対象には含めません。

Option Explicit

Sub RemoveDuplicates()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ws.Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

「VBAスキルを証明できれば、社内評価アップにつながるかもしれません
👉 VBAを学んで社内評価を上げる方法はこちら

VBAマクロを使ったデータ重複チェックと削除｜サンプルコード解説

1. Sub RemoveDuplicates()
マクロの始まりを示します。RemoveDuplicatesという名前のマクロを定義しています。Subは「サブプロシージャ」の略で、マクロがここから始まることを意味します。

2. Dim ws As Worksheet
wsという名前の変数を作成しています。wsは「ワークシート（Worksheet）」の略です。この変数を使って、特定のシートを参照できるようにします。

3. Set ws = ThisWorkbook.Sheets(1)
ws変数に、現在このマクロが保存しているブックの最初のシート（Sheets(1)）を指定しています。ThisWorkbookはこのマクロが保存されているブック全体を指し、Sheets(1)はそのブックの1番目のシートを指します。

4. ws.Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
この行が実際に重複を削除する部分です。

・ws.Range("A1").CurrentRegion
　・wsは先ほど指定したシート（1番目のシート）を指しています。
　・Range("A1")は、そのシートのA1セルを指します。
　・CurrentRegionは、A1セルを含む「隣接するデータの範囲全体」を自動的に選択します。A1セルから上下左右に隣接するセルにデータがあれば、それらをすべて含む範囲が選択されます。

・.RemoveDuplicates
　・このメソッド（命令）は、その選択範囲から重複している行を削除する機能です。

・Columns:=Array(1, 2)
　・重複の基準とする列を指定します。ここでは、1列目（A列）と2列目（B列）を基準に重複を判定します。

・Header:=xlYes
　・Headerは「ヘッダー行（見出し行）」があるかどうかを示します。xlYesは「ヘッダー行がありますよ」という意味なので、最初の行を見出し行として扱い、重複判定の対象にはしません。

このようにして、データの中で同じ情報が繰り返されている行を整理できます。

Excel VBAで自動化するコードのベースを習得したい方におすすめ！

VBAエキスパート資格は、日常業務でExcelを多用し、手動作業を減らしたいと考えている方には価値あるものです。

ExcelVBAエキスパートベーシック
仕事の効率をあげるためにExcelVBAを利用する人が対象の問題集です。

Excel VBAベーシック問題集

ExcelVBAエキスパートスタンダード
ExcelVBAの開発を仕事にする人が対象の問題集です。

ExcelVBAスタンダード問題集

Excel VBA エキスパート資格について知りたい方は、下記「Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート」をご確認ください。

ExcelVBA