【VBAリファレンス】Excel VBA脱出計画第10回重複したデータを関数で探す 1/4：判定ロジックの極意

ExcelVBA

2026.08.25

概要：重複判定という難題にどう立ち向かうか

VBAを用いた業務自動化において、最も頻繁に遭遇する課題の一つが「重複データの処理」です。名簿の突き合わせ、売上データの集計、在庫管理におけるIDの重複チェックなど、実務の現場では常に「重複をどう見つけ、どう制御するか」が問われています。多くの初心者は、二重ループ（For文の入れ子）を用いて全件照合を行おうとしますが、これはデータ量が増大した瞬間に処理速度が著しく低下し、PCをフリーズさせる原因となります。本連載では、計4回にわたり、重複データを効率的に特定・処理する技術を解説します。第1回となる今回は、VBAの「関数」を活用した、最も基本的かつ汎用性の高い判定ロジックに焦点を当てます。

詳細解説：VBAにおける重複判定の基本概念

VBAで重複を探す際、最も直感的に思い浮かぶのは「CountIf関数」の活用です。ワークシート関数であるApplication.WorksheetFunction.CountIfをVBAから呼び出す手法は、コードの可読性が高く、実装も容易です。

なぜ「ループ」ではなく「関数」なのか。それは、VBA内部で完結する計算よりも、Excelが最適化しているワークシート関数のアルゴリズムの方が、特定の条件下において圧倒的に高速だからです。特にRangeオブジェクトを範囲として指定できるCountIfは、リスト全体の中から特定の値がいくつ存在するかを瞬時に返します。

しかし、ここで注意すべきは「処理の重さ」です。CountIfをループ内で毎回呼び出すと、行数が増えるにつれて実行時間が指数関数的に増大します。例えば、1万行のデータに対して毎回CountIfを実行すると、1万×1万の計算量が発生し、数分から数十分待たされることになります。そのため、関数を使うにしても、その呼び出し回数を最小限に抑える設計思想が求められます。

サンプルコード：CountIfを活用した重複チェック

以下のコードは、指定した範囲内において、特定のセルが「初めて登場した場所か」を判定するプロシージャです。


Sub FindDuplicatesWithCountIf()
    ' 対象範囲の定義
    Dim rng As Range
    Dim cell As Range
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
    
    ' 結果を出力する列をクリア
    ws.Range("B2:B" & rng.Rows.Count + 1).ClearContents
    
    ' 各セルに対して重複チェックを実行
    For Each cell In rng
        ' CountIf関数で出現回数をカウント
        ' 1より大きければ「重複」と判断
        If Application.WorksheetFunction.CountIf(rng, cell.Value) > 1 Then
            cell.Offset(0, 1).Value = "重複あり"
            cell.Offset(0, 1).Font.Color = vbRed
        Else
            cell.Offset(0, 1).Value = "単一"
        End If
    Next cell
    
    MsgBox "重複チェックが完了しました。", vbInformation
End Sub

このコードは、「なぜ重複しているのか」を可視化する入門用としては最適です。しかし、CountIfをループ内で使用しているため、データ量が数万件を超える場合には、この手法は推奨されません。あくまで「小規模データにおける確実な判定」としての役割を理解してください。

実務アドバイス：なぜ「関数」の限界を知る必要があるのか

実務でVBAを書く際、多くの技術者が陥る罠が「とりあえず動くコードを書いて満足する」ことです。上記のサンプルコードは、100件程度のデータであれば一瞬で動作します。しかし、明日からデータが10万件に増えたとしたらどうなるでしょうか。

プロフェッショナルなVBAエンジニアは、コードを書く前に「データの規模」と「更新頻度」を考えます。
1. データが1,000件以内：今回紹介したCountIfやループ処理で十分。
2. データが10,000件以上：CountIfを避ける、あるいはDictionaryオブジェクトを使用する。
3. データが100,000件以上：SQLやPower Query、あるいは配列処理への移行を検討する。

実務においては、「どのツール（関数、オブジェクト、配列、クエリ）を使うのが最もコスパが良いか」という判断基準が、あなたの評価を大きく左右します。今回のCountIf法は、その判断基準における「最も基礎的な選択肢」として、あなたの引き出しの中に収めておいてください。

まとめ：次回の展望

今回は、VBAからワークシート関数を呼び出して重複を特定する方法を解説しました。CountIfは非常に強力な武器ですが、同時にパフォーマンスのボトルネックにもなり得るという「諸刃の剣」であることを理解できたかと思います。

次回の「第10回 2/4」では、このCountIfの弱点を補い、圧倒的な高速処理を実現する「Dictionaryオブジェクト」を用いた重複判定手法を解説します。Dictionaryは、VBAにおけるデータ処理の常識を覆すほど強力な機能です。配列と組み合わせて使用することで、数万件のデータも数秒で処理することが可能になります。今回のCountIf法との比較を行いながら、より高度なロジックの世界へ足を踏み入れていきましょう。

VBAの学習において最も重要なのは、一度書いたコードを「もっと速く、もっとシンプルにできないか？」と問い続ける姿勢です。このプロセスこそが、あなたを単なる「コード書き」から「システム設計者」へと引き上げる唯一の道なのです。それでは、次回のDictionary編でまたお会いしましょう。