【VBAリファレンス】Excel VBA業務効率化の極意第2回 COUNTIF関数をVBAで操る実践的テクニック

ExcelVBA

2026.09.20

概要：COUNTIF関数はVBAにおける「最強の検索エンジン」である

Excel業務において「特定の条件を満たすデータを数える」という作業は、全業務の実に3割以上を占めると言っても過言ではありません。手動であればCOUNTIF関数をセルに入力して解決しますが、VBAで自動化を行う際、私たちはこのCOUNTIF関数を「ワークシート関数」として呼び出すのか、あるいは「VBAのアルゴリズム」として再構築するのかという岐路に立たされます。

本連載の第2回では、Application.WorksheetFunctionオブジェクトを介してCOUNTIF関数をVBAから呼び出し、膨大なデータセットの中から瞬時に特定のフラグを立てたり、重複チェックを行ったりする手法を深掘りします。なぜ、ループ処理で一つずつ判定するのではなく、COUNTIFをVBAで活用すべきなのか。その答えは「計算速度」と「保守性」の圧倒的な差にあります。

詳細解説：なぜVBAからCOUNTIFを呼び出すのか

VBAを始めたばかりの学習者は、For Eachループを使ってセルを一つずつ巡回し、If文で条件分岐を行うコードを書きがちです。しかし、数万行のデータに対してこの手法を用いると、処理時間が数秒から数十秒にまで膨れ上がります。

一方で、WorksheetFunction.CountIfを使用すれば、Excelの内部エンジンが最適化された計算を行うため、処理時間は一瞬です。この技術の核心は「Rangeオブジェクトを引数として渡し、戻り値を受け取る」というシンプルなプロセスにあります。

特に重要なのは、ワイルドカードの使用法です。VBA上でも「*」や「?」といったワイルドカードを条件式に含めることで、部分一致検索や特定パターンへのマッチングが可能になります。例えば、特定のプロジェクトコードが含まれる行だけを抽出・カウントする場合、ループを使わずに一行で完結させることが可能です。

サンプルコード：動的なカウント処理の実装

以下に、特定の列（A列）から特定のキーワード（例：完了）を含むセルをカウントし、その結果をメッセージボックスで表示する実践的なコードを提示します。


Sub CountSpecificStatus()
    Dim ws As Worksheet
    Dim rngTarget As Range
    Dim criteria As String
    Dim countResult As Long
    
    ' 対象シートの設定
    Set ws = ThisWorkbook.Sheets("データ一覧")
    
    ' 範囲の特定（A列の最終行までを動的に取得）
    Set rngTarget = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    ' 検索条件の設定
    criteria = "完了"
    
    ' WorksheetFunctionを使用してカウントを実行
    ' エラーハンドリングを組み込むことで、万が一の計算ミスを防ぐ
    On Error Resume Next
    countResult = Application.WorksheetFunction.CountIf(rngTarget, criteria)
    On Error GoTo 0
    
    ' 結果の出力
    MsgBox "該当するデータは" & countResult & "件です。", vbInformation, "集計完了"
End Sub

このコードのポイントは、Rangeオブジェクトを動的に定義している点です。固定範囲（A2:A100など）ではなく、データの増加に対応できるように「End(xlUp)」を使用することで、保守性の高いコードを実現しています。

実務アドバイス：COUNTIF活用における「落とし穴」を回避せよ

実務でこの技術を導入する際、最も注意すべきは「データ型」の不一致です。COUNTIF関数は、数値として入力されている「100」と、文字列として入力されている「”100″」を区別する場合があります。

1. 型の統一：VBAで条件を指定する際、あらかじめ対象範囲の書式設定を確認し、必要であればCStr関数やVal関数で型を揃えてください。
2. 範囲の限定：巨大なシート全体（列全体）をRangeに設定すると、メモリ消費が激しくなることがあります。可能な限り、「必要な範囲」だけを動的に取得する工夫が必要です。
3. エラーハンドリング：WorksheetFunctionは、万が一引数が不適切な場合に実行時エラーを発生させます。実務コードでは、必ずOn Errorステートメントや、Rangeの有効性をチェックするロジックを挟んでください。

また、複数条件でのカウントが必要になった場合は、COUNTIFではなくCOUNTIFS（S付き）を検討してください。VBAにおける引数の渡し方はCOUNTIFと全く同じですが、より複雑なビジネスロジック（例：A列が「完了」かつB列が「3月」など）に対応できるようになります。

まとめ：COUNTIFを活用した「脱・手作業」へのステップ

VBAにおけるCOUNTIFの活用は、単なる関数の呼び出しではありません。それは「Excelの計算能力」と「VBAの制御能力」を融合させることで、業務プロセスを劇的に軽量化する手法です。

今回紹介した手法をマスターすれば、毎日行っている「集計作業」の時間を数分の一に短縮できるだけでなく、人為的なカウントミスをゼロにすることができます。まずは、最も頻度の高い「ステータス集計」や「重複チェック」からこのコードを組み込んでみてください。

次回（連載第3回）は、COUNTIFと「動的な配列」を組み合わせた、より高度なデータ抽出・フィルタリング手法について解説します。VBAの世界では、COUNTIFは単なる数え役ではなく、データ分析における「司令塔」となるのです。このスキルを武器に、あなたのExcel業務を次のステージへと引き上げましょう。