はじめに：COUNTIF関数の真価を問う
皆さん、こんにちは。Excel VBA講師の私です。前回はCOUNTIF関数の基本的な使い方と、セル範囲の指定方法について解説しました。今回は連載の第4回目として、COUNTIF関数をVBAと組み合わせることで、「実務でいかに効率を最大化するか」という点に焦点を当てます。
多くの実務担当者が、COUNTIF関数をセルに直接入力して使っています。しかし、データ量が数万行に達したり、毎月フォーマットが変わるような業務では、手動での関数設定はミスを招く大きな要因となります。そこで、VBAを用いてCOUNTIFを「動的に」制御する技術を習得しましょう。
動的な範囲指定：可変長データへの対応
実務の現場では、データ行数が毎日増減します。A列からD列までデータが入っているとして、固定で「A1:A1000」と指定してしまうと、データが足りないか、あるいは空白セルまでカウントしてしまい、正確な集計ができません。
まずは、最終行を自動取得して、その範囲内でCOUNTIFを実行するプロシージャの基本形を見てみましょう。
コード例1：最終行を自動取得してカウントする
Sub DynamicCountIf()
Dim ws As Worksheet
Dim lastRow As Long
Dim countResult As Long
Dim targetRange As Range
Set ws = ThisWorkbook.Sheets(“売上データ”)
‘ A列の最終行を取得
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ 範囲を動的にセット（A2からA列の最終行まで）
Set targetRange = ws.Range(“A2:A” & lastRow)
‘ VBAのWorksheetFunction経由でCOUNTIFを実行
‘ 「東京」という文字列をカウントする場合
countResult = Application.WorksheetFunction.CountIf(targetRange, “東京”)
MsgBox “東京の件数は ” & countResult & ” 件です。”
End Sub
このコードのポイントは、Rangeオブジェクトを動的に定義している点です。これにより、データが100行であっても1万行であっても、コードを修正することなく常に正確な集計が可能になります。
条件をVBA変数から渡す：柔軟性の向上
次に、カウントしたい条件をハードコーディング（直接記述）するのではなく、変数やセルから読み込む手法です。例えば、ユーザーが入力したキーワードに基づいて集計を行いたい場合、以下のようなアプローチをとります。
コード例2：変数を利用した柔軟な集計
Sub VariableCountIf()
Dim ws As Worksheet
Dim criteria As String
Dim countResult As Long
Set ws = ThisWorkbook.Sheets(“集計表”)
‘ 集計したい条件をB1セルから取得
criteria = ws.Range(“B1”).Value
‘ もし条件が空なら処理を中断
If criteria = “” Then
MsgBox “条件を入力してください。”
Exit Sub
End If
countResult = Application.WorksheetFunction.CountIf(ws.Columns(“A”), criteria)
‘ 結果をC1に出力
ws.Range(“C1”).Value = countResult
End Sub
このように、条件を外部化することで、ツールとしての汎用性が飛躍的に向上します。実務では「特定の条件」が頻繁に変わるため、このようにセル入力をトリガーにする設計が推奨されます。
複数条件への対応：COUNTIFSの活用
実務では「A支店」かつ「売上10万円以上」といった、複数条件でのカウントが求められることがほとんどです。ここで登場するのがCOUNTIFS関数です。VBAではWorksheetFunctionオブジェクトのメソッドとして、同様に活用できます。
コード例3：COUNTIFSによる複数条件集計
Sub MultiConditionCount()
Dim ws As Worksheet
Dim lastRow As Long
Set ws = ThisWorkbook.Sheets(“売上データ”)
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ A列が「東京」、B列が「100000以上」の場合をカウント
‘ 注意：COUNTIFSは範囲と条件を交互にペアで指定します
Dim countResult As Long
countResult = Application.WorksheetFunction.CountIfs( _
ws.Range(“A2:A” & lastRow), “東京”, _
ws.Range(“B2:B” & lastRow), “>=100000”)
Debug.Print “集計結果: ” & countResult
End Sub
ここで重要なのは、比較演算子（>=など）を文字列として扱う点です。VBAのコード内では「”>=100000″」のように二重引用符で囲む必要があります。この書き方をマスターするだけで、集計業務の自動化レベルは格段に上がります。
エラーハンドリング：プロフェッショナルな設計
最後に、実務で忘れがちな「エラーハンドリング」について触れます。もしCOUNTIFの範囲内にエラー値（#N/Aや#VALUE!など）が含まれていた場合、どうなるでしょうか。実は、WorksheetFunctionで実行すると、VBA自体が実行時エラーで停止してしまいます。
これを防ぐためには、Evaluateメソッドを使うか、あるいは事前にエラーチェックを行う必要があります。
コード例4：エラーを考慮した安全なカウント
Sub SafeCountIf()
Dim ws As Worksheet
Dim rng As Range
Dim criteria As String
Set ws = ThisWorkbook.Sheets(“データ”)
Set rng = ws.Range(“A2:A100”)
criteria = “完了”
‘ Application.Evaluate を使うと、エラーが発生しても
‘ VBAが停止せず、結果としてエラー値や0を返してくれる
Dim result As Variant
result = ws.Evaluate(“COUNTIF(” & rng.Address & “, “”” & criteria & “””)”)
If IsError(result) Then
MsgBox “集計中にエラーが発生しました。”
Else
MsgBox “集計結果: ” & result
End If
End Sub
Evaluateメソッドは、文字列としてExcelの数式を渡す手法です。複雑な数式をVBA内で組み立てる際に非常に強力ですが、構文の作成には慣れが必要です。しかし、この技術を身につければ、どんなに複雑なデータ構造に対しても、エラーを回避した安定したマクロを作成できるようになります。
まとめ：COUNTIFは自動化の第一歩
今回は、COUNTIF/COUNTIFS関数をVBAで制御するための実務的テクニックを解説しました。
1. 最終行を自動取得して範囲を動的に指定する。
2. 条件を変数化し、外部セルから読み込むことで汎用性を持たせる。
3. COUNTIFSを活用して、複数条件の集計を効率化する。
4. Evaluateメソッドやエラーチェックを活用し、堅牢なシステムを構築する。
これらの技術は、一見地味に見えるかもしれませんが、毎日の集計業務を数秒で終わらせるための「土台」です。手作業でCOUNTIFを入力し、範囲をドラッグして修正する時間は、今日で終わりにしましょう。
次回は、カウントした結果を用いて、さらに複雑な抽出やレポート作成を行う方法について解説します。ぜひ、今回のコードを実際に自分のPCで動かし、そのスピード感を体感してください。
それでは、また次回の記事でお会いしましょう。業務効率化の道は、一歩一歩の積み重ねから始まります。応援しています。
