【2026年8月最新】ExcelVBAで重複データを削除する方法｜顧客リストの二重登録対策とAI活用術

「同じ顧客が営業リストに2行あって、別の担当者が同じ日に2回電話をかけてしまった」「注文データが重複していて、売上集計が実際より多く見えていた」——Excelで顧客・注文・見込み客のリストを管理していると、こうした「重複データ」のトラブルは驚くほど頻繁に起こります。

検索で「ExcelVBA 重複データ 削除」というキーワードにたどり着いた方の多くは、ループ処理やRemoveDuplicatesメソッドといったVBAの具体的な書き方を探しているはずです。この記事では、まずそれらの手法を正確に解説します。そのうえで、実務でVBAの重複削除を使っていると必ずぶつかる「表記ゆれによる見逃し」という盲点と、その盲点を埋める新しい選択肢についてもお伝えします。

代表菅澤

結論を先に言うと、VBAのRemoveDuplicatesメソッドは完全一致の重複には非常に強力ですが、「株式会社」の位置が違う、電話番号のハイフンの有無が違う、といった「表記ゆれ」による重複は一切検出できません。この記事では、その限界を正確に理解したうえで、Claude Codeという選択肢がどう補完できるかまで解説します。

AI鬼管理山崎

VBAの書き方を知りたい方にとっても、なぜその処理が必要になったのか、業務のどの場面でリスクになるのかを理解しておくと、コードの意味がぐっと腹落ちするはずです。前半で技術的な解説、後半で業務の話という順番で進めます。

この記事を最後まで読むと、次の内容が理解できます。

01 WHY IT MATTERS 「重複データ」は放置すると経営リスクになる 名刺入れの比喩で考える、重複データの本当のコスト

重複データの問題を理解するために、まず名刺入れを思い浮かべてください。同じ取引先の名刺が、整理の途中で2枚別々の場所に紛れ込んでいたとします。1枚には「株式会社◯◯商事」、もう1枚には「（株）◯◯商事」と書かれていたら、あなたはそれが同一人物・同一企業だとすぐに気づけるはずです。しかし、それを機械的に処理するExcelやシステムにとっては、この2つはまったくの別データとして扱われてしまいます。

この「気づけばすぐ分かるが、機械には見分けがつかない」というギャップこそが、重複データが業務トラブルに発展する根本原因です。具体的には、次のような流れで経営リスクに変わっていきます。

例えば、同じ見込み客に営業担当が2人から立て続けに連絡してしまうと、「この会社は管理がずさんなのでは」という印象を与えてしまいます。また、注文データが重複したまま集計すると、実際の売上より多い数字が経営会議で報告され、後から訂正が必要になるケースもあります。重複データそのものは小さなミスに見えても、それが積み重なった結果は経営判断や顧客信用に直結します。

AI鬼管理山崎

弊社にご相談いただく企業でも、「なぜか営業成績の集計が毎月合わない」という相談の原因を辿ると、実は同じ注文が2行入力されていた、というケースが少なくありません。地味な問題ですが、影響範囲は意外と広いです。

02 THREE COMMON PATTERNS 現場でよくある3つの重複パターン 顧客・注文・リードの重複はそれぞれ発生原因が異なる

重複データと一言でいっても、発生する業務領域によって原因も対処すべきポイントも異なります。ここでは代表的な3つのパターンを整理します。

この3つに共通するのは、「入力した本人には悪意もミスの自覚もない」という点です。フォームの二重送信は通信環境の問題かもしれませんし、担当者ごとの別シート管理は、統合作業をするまで問題として顕在化しません。つまり重複データは、仕組み側で検出・除去する体制を整えておかない限り、なくならない性質のものだと理解しておく必要があります。

代表菅澤

重複データの怖いところは、発生した瞬間には誰も気づかないことです。数ヶ月分のデータが溜まった段階で初めて「あれ、これ同じ会社では」と気づくパターンが最も多い印象です。

03 TWO BASIC VBA METHODS ExcelVBAで重複データを削除する基本の2手法 ループ処理とRemoveDuplicatesメソッドの書き方を正確に理解する

ここからは技術的な内容です。ExcelVBAで重複データを削除する方法は、大きく分けて「ループ処理で1行ずつ比較して削除する方法」と「RemoveDuplicatesメソッドを使う方法」の2つがあります。それぞれの書き方を見ていきます。

3-1. ループ処理で重複削除する方法

最も基本的な方法は、行を1つずつ比較しながら削除していくループ処理です。下から上に向かって削除するのがポイントで、上から削除すると行番号がずれてしまい、正しく比較できなくなります。

Sub RemoveDuplicatesByLoop()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, j As Long

    Set ws = ThisWorkbook.Sheets("顧客リスト")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' 下の行から上に向かって比較・削除する
    For i = lastRow To 2 Step -1
        For j = i - 1 To 2 Step -1
            If ws.Cells(i, "A").Value = ws.Cells(j, "A").Value Then
                ws.Rows(i).Delete
                Exit For
            End If
        Next j
    Next i
End Sub

このコードは、A列（例：メールアドレス）を基準に完全一致する行を探し、後から見つかった重複行を削除しています。仕組みが分かりやすく、比較の条件を細かくカスタマイズしやすいのが利点です。一方で、行数が多くなるほど比較回数が二乗のペースで増えるため、データ量が数千〜数万行になると処理時間が大きく伸びるという弱点があります。

3-2. RemoveDuplicatesメソッドで削除する方法

もう一つの方法が、Excel 2007以降のバージョンで使えるRemoveDuplicatesメソッドです。Excelのリボンにある「重複の削除」ボタンと同じ処理を、VBAのコード1行で実行できます。

Sub RemoveDuplicatesByMethod()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long

    Set ws = ThisWorkbook.Sheets("顧客リスト")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    With ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
        .RemoveDuplicates Columns:=Array(1), Header:=xlYes
    End With
End Sub

Columns:=Array(1) は「1列目（A列）を基準に重複を判定する」という指定です。複数列の組み合わせ（例：会社名と電話番号の両方が一致した場合のみ重複とみなす）で判定したい場合は、Array(1, 3) のように列番号を並べます。Header:=xlYes は「1行目は見出し行なので判定対象から除外する」という指定です。

AI鬼管理山崎

ループ処理は仕組みが分かりやすい反面、書く量も多くなります。まずはRemoveDuplicatesメソッドで十分か検討し、細かい条件分岐が必要な場合だけループ処理を検討する、という順番がおすすめです。

04 LIMITS OF REMOVEDUPLICATES RemoveDuplicatesメソッドの使い方と限界 便利だが「完全一致」しか判定できない点に注意する

RemoveDuplicatesメソッドはコード1行で高速に処理できる非常に便利な機能ですが、使う前に理解しておくべき限界がいくつかあります。

特に注意したいのが「表記ゆれは別データとして扱われる」という点です。「株式会社ABC」と「ABC株式会社」、「090-1234-5678」と「09012345678」は、人間が見れば同一の情報だと分かりますが、RemoveDuplicatesメソッドは文字列として完全に一致しない限り重複と判定しません。この限界については、6章で改めて詳しく取り上げます。

なお、行を削除するのではなく「重複しているものを目視で確認したい」だけの場合は、VBAを使わずに条件付き書式で色付けする方法もあります。ホームタブの「条件付き書式」→「セルの強調表示ルール」→「重複する値」から設定でき、数式で書く場合は =COUNTIF($A$2:$A$100,A2)>1 のような式で該当セルをハイライトできます。削除する前に一度目視確認したい場面で有効です。

代表菅澤

RemoveDuplicatesは「消す」機能なので、いきなり本番データに使うのはリスクが高いです。まず条件付き書式で色をつけて、どのデータが重複としてヒットするかを確認する、というワンクッションを挟むことをおすすめします。

05 DICTIONARY OBJECT METHOD Dictionaryオブジェクトで高速判定する方法 ループ処理よりも高速に、柔軟な条件で重複を判定する

ループ処理は柔軟だが遅く、RemoveDuplicatesメソッドは速いが完全一致の判定しかできない——この中間を狙えるのがDictionaryオブジェクトを使う方法です。

Sub RemoveDuplicatesByDictionary()
    Dim dict As Object
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim key As String
    Dim delRange As Range

    ' CreateObjectによる遅延バインディング（参照設定不要）
    Set dict = CreateObject("Scripting.Dictionary")
    Set ws = ThisWorkbook.Sheets("顧客リスト")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' 上から順に走査し、最初に登場した行を残す
    ' （RemoveDuplicatesメソッドと同じ「最初の行を残す」挙動に揃える）
    For i = 2 To lastRow
        key = ws.Cells(i, "A").Value
        If dict.Exists(key) Then
            If delRange Is Nothing Then
                Set delRange = ws.Rows(i)
            Else
                Set delRange = Union(delRange, ws.Rows(i))
            End If
        Else
            dict.Add key, True
        End If
    Next i

    ' 走査後にまとめて削除（ループ中に削除すると行がずれるため）
    If Not delRange Is Nothing Then delRange.Delete
End Sub

この方法のメリットは、dict.Exists(key) で「すでに登場した値かどうか」を高速に判定できる点です。ループ処理のように2重ループで全行を比較する必要がないため、行数が多いデータでもRemoveDuplicatesメソッドに近い速度感で処理できます。さらに、keyの作り方を工夫すれば「会社名＋電話番号の組み合わせ」のような複合条件も柔軟に判定できます。

AI鬼管理山崎

ここまでの3手法は、いずれも「文字列として完全に一致するかどうか」でしか重複を判定できません。これがVBAによる重複削除の共通の限界で、次の章で詳しく掘り下げます。

06 THE FUZZY DUPLICATE BLIND SPOT 【独自】VBAが見逃す「あいまい重複」という盲点 実務で本当に困るのは「完全一致しない重複」の方

ここまで紹介したループ処理・RemoveDuplicatesメソッド・Dictionaryオブジェクトには、実は共通の弱点があります。それはいずれも「文字列として完全に一致するかどうか」でしか重複を判定できないという点です。

具体例を見てみましょう。次の3行は、人間が見れば全て同一の会社を指していると分かります。しかし、VBAのRemoveDuplicatesメソッドやDictionaryオブジェクトでは、この3つはすべて「別のデータ」として扱われ、1件も重複として検出されません。

この「あいまい重複」を検出するには、本来であれば全角・半角の統一、スペースの除去、法人格表記の正規化（「株式会社」「（株）」「(株)」を一つの表記に揃える）といった下処理のロジックを、事前にVBAで自前実装する必要があります。これは決して簡単な作業ではなく、想定していない表記パターンが後から見つかるたびに、ルールを追加・修正し続けることになります。

ここで一度立ち止まって考えたいのは、「重複を判定するルールを、毎回VBAのコードとして書き下す」というアプローチ自体に限界があるのではないかという点です。表記ゆれのパターンは業種・企業ごとに無数にあり、すべてを事前にコードとして網羅するのは現実的ではありません。この課題に対して、近年広がっているのが次章で紹介するアプローチです。

代表菅澤

弊社が業務改善のご相談を受ける中でも、「VBAで重複削除は組んだはずなのに、あとから同じ顧客が別の名前で登録されていた」という相談は非常に多いです。原因のほとんどが、このあいまい重複の見落としでした。

07 DESCRIBE THE RULE IN PLAIN JAPANESE Claude Codeなら「重複判定のルール」を日本語で伝えるだけでいい コードを書かず、判定基準を会話で指定するという発想

ここからは、非エンジニアの方にこそ知ってほしい選択肢の話です。Claude Codeを使うと、これまで見てきたVBAのコードを1行も書かずに、重複データの検出・削除ができます。しかも、6章で挙げた「あいまい重複」も含めて処理できる点が、VBAの手法と決定的に異なります。

例えば、これまでVBAのコードとして書いていた条件は、Claude Codeに対しては次のように日本語の一文で伝えるだけで済みます。

// Claude Codeへの依頼イメージ（実際はチャットで日本語のまま指示するだけ）

例1：単純な完全一致の重複除去
「このリストで、メールアドレスが同じ行は1つにまとめてください」

例2：複合条件の重複除去
「このリストで、会社名と電話番号が両方一致するものを
  重複として除去してください」

例3：あいまい重複（VBAでは検出できないパターン）
「会社名は『株式会社』の位置や全角半角の違いを無視して、
  電話番号はハイフンの有無を無視して、
  同一とみなせる行をまとめてください。
  結合する際はより情報量が多い方の行を残してください」

例3のような依頼は、VBAで実現しようとすると「法人格の正規化処理」「ハイフン除去処理」「どちらの行を優先して残すかの判定ロジック」をすべて個別にコーディングする必要があります。Claude Codeであれば、こうした「人間なら当たり前に理解できるが、厳密なルールとして書き下すのが面倒な判定」を、日本語の指示のまま処理してくれます。

もちろん、VBAの学習自体に意味がないわけではありません。定型的に毎回同じ処理を自動化したいマクロとして組み込みたい場合は、RemoveDuplicatesメソッドやDictionaryオブジェクトの知識は今後も有効です。一方で、「今回だけこのリストを整理したい」「毎回パターンが微妙に違うデータを都度整理したい」という場面では、Claude Codeに日本語で依頼する方が圧倒的に早く、かつ見逃しも少なくなります。

AI鬼管理山崎

「重複を消すコードを書く」のではなく「重複とみなす基準を会話で説明する」という発想の転換がポイントです。基準さえ言葉にできれば、あとはClaude Codeが処理してくれます。

代表菅澤

弊社でも顧客リストやリードリストの整理はほぼClaude Codeに任せています。「メールアドレスが同じ」だけでなく「会社名が似ていて電話番号の下4桁が同じなら確認して」といった、あいまいな条件でもきちんと拾ってくれるのが実務では非常に助かっています。

08 GENAI CASE DATA 【独自データ】GENAI実運用｜データ整理業務の削減実態 Claude Max 20xプラン契約会社が、重複・データ整理業務をどう回しているか

ここでは、弊社（株式会社GENAI）が実際にClaude Codeをデータ整理・重複除去の業務にどう活用しているかを、数値ベースで公開します。

弊社の業務のうち、重複データが特に発生しやすいのは営業（顧客・見込み客リスト）と経理（請求・経費データ）です。これらの業務でのClaude Code活用による概算削減時間は、以下の通りです。

特に経理業務では、複数の請求書・経費データを突き合わせる中で、表記ゆれによる二重計上に気づかず処理が進んでしまうリスクがありました。Claude Codeに「取引先名と金額が近いものをリストアップして」と依頼するだけで、人間が見落としがちな組み合わせも含めて洗い出せるようになった点は、単純な時間削減以上の価値だと感じています。

AI鬼管理山崎

重複データのチェックは「地味だが見逃すと後で大きな手戻りになる」業務の代表格です。弊社では月次の締め作業前に、Claude Codeへ重複・不整合チェックを依頼する工程を定例化しています。

09 PRACTICAL WORKFLOW 非エンジニアがClaude Codeで重複除去を始める実践フロー VBAの学習なしで、今日から重複データ整理を任せる4ステップ

「VBAを勉強する時間はないが、重複データの整理はどうにかしたい」という方向けに、実際の始め方を整理します。

9-1. Step1：対象のExcelファイルを読み込ませる

Claude Codeのデスクトップ版に、整理したいExcelファイルをそのまま渡します。ターミナルの操作や、事前のデータ加工は不要です。

9-2. Step2：重複とみなす基準を日本語で具体的に伝える

ここが最も重要なステップです。「メールアドレスが同じ行をまとめて」のように単純な条件でも構いませんし、「会社名は表記ゆれを無視して、電話番号はハイフンの有無を無視して判定して」といった複合条件でも問題ありません。基準を具体的に言葉にできればできるほど、精度の高い結果が得られます。

9-3. Step3：検出結果を確認し、会話で調整する

Claude Codeが「◯件の重複候補が見つかりました」と報告してきたら、内容を確認します。もし「これは別の会社なので統合しないで」という判定ミスがあれば、そのまま会話で伝えて修正できます。VBAのようにコードを書き直す必要はありません。

9-4. Step4：整理後のファイルを受け取り、定例化する

整理が完了したファイルを受け取ったら、同じ依頼パターンを月次・週次の定例業務に組み込みます。一度うまくいった依頼文をそのまま使い回せるため、2回目以降はさらに短時間で処理が完了します。

代表菅澤

VBAを勉強してから重複削除に取り組もうとすると、それだけで数週間かかることもあります。Claude Codeであれば、今日この記事を読み終えた直後から、実際のリストで試すことができます。

10 CONCLUSION まとめ ── 「削除の作法」より「判定のルール」を持つこと VBAの3手法とClaude Codeの使い分けを振り返る

この記事では、重複データがもたらす経営リスクから、ExcelVBAでの重複削除の3手法（ループ処理・RemoveDuplicatesメソッド・Dictionaryオブジェクト）、VBAが見逃す「あいまい重複」という盲点、そしてClaude Codeによる補完方法までを整理しました。最後にポイントを振り返ります。

最も伝えたいメッセージは、「重複を消すコードの書き方」を覚えることより、「何を重複とみなすかの判定基準」を自分の言葉で説明できるようになることの方が重要だという点です。判定基準さえ明確にできれば、それをVBAのコードに落とし込むのも、Claude Codeに日本語で伝えるのも、どちらも実現可能です。そして非エンジニアの方にとっては、後者の方が圧倒的に早く、見逃しも少なく始められます。

代表菅澤

弊社では「AI鬼管理」というサービスで、Claude Codeを使った業務自動化の設計から伴走まで支援しています。重複データの整理のような地味だが手間のかかる業務ほど、AIに任せる効果が大きいと感じていますので、お気軽にご相談ください。

「重複しているかどうか」を自分の言葉で説明するだけで、リスト整理をお任せいただけます

「VBAを書く時間がない」「表記ゆれのある重複データに毎回悩まされている」——弊社AI鬼管理では、Claude Codeを使ったデータ整理・業務自動化の設計から、非エンジニアの方への使い方サポートまで一貫して支援しています。

AI鬼管理山崎

今お使いのExcelリストの重複整理、どこまで自動化できそうか、まずは無料相談で具体的にお答えします。VBAで組むべきか、Claude Codeだけで十分か、状況に合わせてご提案します。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？

AI活用を自社で回せるようになりたい方へ

AI鬼管理

Claude Code・Cowork導入支援から業務設計・社内浸透まで実践ベースで伴走。「自社で回せる組織」を90日で作る経営者向けトレーニング。

AI鬼管理を詳しく見る →

業務を丸ごと任せたい方へ

AIBPO by AI鬼管理

請求処理・データ入力・問い合わせ対応などの定型業務を、AI×人の品質管理体制で丸ごと代行。いまのコストの75%目安で、日々は成果物を承認するだけ。

AIBPOを詳しく見る →

よくある質問

Q. RemoveDuplicatesメソッドはどのExcelバージョンから使えますか？

A. Excel 2007以降のバージョンで使用できます。Excel 2003以前にはこのメソッド自体が存在しないため、古いバージョンで動かす場合はループ処理やDictionaryオブジェクトによる方法を使う必要があります。

Q. RemoveDuplicatesメソッドを実行すると、削除した行は元に戻せますか？

A. VBAマクロで行った変更は、Excelのundo（元に戻す）履歴がクリアされるため、実行後にCtrl+Zで元に戻すことは基本的にできません。実行前に必ず別シートやファイルにバックアップを取ってから実行してください。

Q. Dictionaryオブジェクトを使うのに、参照設定は必須ですか？

A. 必須ではありません。VBEの「参照設定」からMicrosoft Scripting Runtimeを有効にする早期バインディングの方法と、コード内でCreateObject("Scripting.Dictionary")と書く遅延バインディングの方法があり、後者は参照設定なしでそのまま動きます。他のPCに配布するマクロでは、環境依存を避けるため遅延バインディングがよく使われます。

Q. ループ処理とRemoveDuplicatesメソッド、どちらを使うべきですか？

A. 単純に「特定の列が完全一致する行を削除したい」だけであれば、コード量が少なく高速なRemoveDuplicatesメソッドで十分です。削除の条件を細かく分岐させたい、削除ではなく別の処理と組み合わせたいといった場合は、ループ処理やDictionaryオブジェクトの方が柔軟に対応できます。

Q. 重複を削除せず、目視で確認したいだけの場合はどうすればいいですか？

A. VBAを使わずに、条件付き書式の「重複する値」ルールで色付けする方法があります。ホームタブの「条件付き書式」から設定でき、削除する前にどのデータが重複としてヒットするか確認したい場面で有効です。

Q. 「株式会社」の位置違いや全角半角の違いも、VBAで自動的に判定できますか？

A. RemoveDuplicatesメソッドやDictionaryオブジェクトは文字列の完全一致でしか判定できないため、そのままでは表記ゆれを検出できません。事前に正規化（法人格表記の統一、全角半角の統一など）の処理を自前で実装する必要があり、想定外のパターンが出るたびに追加対応が必要になります。

Q. Claude Codeは表記ゆれのある重複もVBAより正確に検出できますか？

A. 会社名の表記違いや電話番号のハイフンの有無といった表記ゆれを含めて、日本語で判定基準を伝えるだけで検出できます。ただし完璧な自動判定を保証するものではないため、重要なデータについては検出結果を人の目で最終確認する運用を推奨します。

Q. 非エンジニアでもClaude Codeで重複データの整理はできますか？

A. できます。VBAのコードを書く必要はなく、デスクトップ版のチャット画面から「このリストで会社名と電話番号が両方一致するものを重複として除去して」といった日本語の指示を出すだけで処理が進みます。結果に不満があれば、そのまま会話で修正を依頼できます。

監修 最終更新日: 2026年8月1日

菅澤 孝平 株式会社GENAI 代表取締役

• AI業務自動化サービス「AI鬼管理」を運営 — Claude Code を活用し、経営者の業務を「AIエージェントに任せる仕組み」へ転換するパーソナルトレーニングを 伴走構築 で提供。日報・採用・問い合わせ対応・経費精算・議事録・データ集計・営業リスト等の定型業務を、AIに代行させる体制を経営者と一緒に作り込む
• Claude Code 実装ノウハウを 経営者・法人クライアント に直接指導。生成AIを「便利ツール」ではなく 「業務を任せる存在」 として運用する手法を体系化
• 「やらせ切る管理」メソッドの開発者。シンゲキ株式会社（2021年設立・鬼管理専門塾運営）にて累計3,000名以上の学習者を志望校合格に導いた管理メソッドを、AI × 経営者支援 に転用
• 著書『3カ月で志望大学に合格できる鬼管理』(幻冬舎)、『親の過干渉こそ、最強の大学受験対策である。』(講談社)
• メディア出演: REAL VALUE / カンニング竹山のイチバン研究所 / ええじゃないかBiz 他
• 明治大学政治経済学部卒

現在は AI鬼管理（Claude Code活用の伴走型パーソナルトレーニング）を主事業とし、経営者と二人三脚で「AIに業務を任せる仕組み」を実装。「実行を強制する環境」を AI で構築する手法を、自社の実運用知見をもとに発信している。

▸ 代表 菅澤孝平 のプロフィール詳細を見る