なぜVBAで「照合と集計」を自動化するのか
実務において、顧客リストがメンバーか否かを判定し、さらにその件数を集計する作業は頻繁に発生します。Excelの数式（COUNTIF関数）でも十分対応可能ですが、データ量が増えたり、毎日の定型業務であったりする場合、数式を貼り付ける手間や、誤って数式を消してしまうリスクがあります。VBAでこのロジックを構築すれば、ボタン一つで瞬時に「メンバー外の人数」を算出でき、ヒューマンエラーを確実に排除することが可能です。
基礎知識：COUNTIF関数のVBA的実装
VBAでCOUNTIF関数を利用するには、WorksheetFunctionオブジェクトを使用します。これは、ワークシート関数をVBAの中から呼び出すための窓口です。
考え方は単純で、以下の2ステップです。
1. 判定処理：各データが「マスタ範囲」に存在するかを判定し、フラグを立てる。
2. 集計処理：フラグ（0や1）を基に、特定の条件に合致する件数をカウントする。
実装のポイント
VBAで実装する場合、セルに数式を埋め込む方法（Formulaプロパティ）と、VBA側で計算して結果だけをセルに出力する方法の2通りがあります。今回は、柔軟性が高く再利用しやすい「計算結果のみを出力する」手法を解説します。
サンプルプログラム：メンバー外の人数をカウントする
以下のコードは、A列の顧客名が「マスタ（D列）」に含まれているかを確認し、含まれていない（新規）人数をメッセージボックスで表示する実用的なサンプルです。
Sub CountNewCustomers()
Dim ws As Worksheet
Dim lastRow As Long
Dim countRange As Range
Dim criteriaRange As Range
Dim i As Long
Dim newCustomerCount As Long
Set ws = ActiveSheet
‘ データ最終行を取得
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ マスタ範囲（D2:D10を想定）
Set criteriaRange = ws.Range(“D2:D10”)
newCustomerCount = 0
‘ 各顧客がマスタに存在するか確認（COUNTIFの活用）
For i = 2 To lastRow
‘ マスタ内に名前が存在すれば1以上、なければ0が返る
If Application.WorksheetFunction.CountIf(criteriaRange, ws.Cells(i, 1).Value) = 0 Then
‘ 0の場合、メンバー外（新規）とみなす
newCustomerCount = newCustomerCount + 1
End If
Next i
‘ 結果を出力
MsgBox “新規申込者の人数は ” & newCustomerCount & ” 名です。”, vbInformation
End Sub
応用・注意点：現場で陥りやすい罠
VBAでCOUNTIFを使う際、以下の点に注意してください。
1. 絶対参照の意識：数式をセルに入れる場合と異なり、VBAではRangeオブジェクトで範囲を指定するため、範囲は固定（$記号などは不要）で記述します。
2. データ型の不一致：「”0″（文字列の0）」と「0（数値の0）」を混同しないようにしましょう。特にCSVから取り込んだデータなどは、見た目は数字でも文字列として扱われていることがあり、COUNTIFが正しく動作しない原因になります。データが一致しない場合は、Val関数などで数値化して比較する工夫が必要です。
3. 処理速度：数千件を超えるデータに対してループ処理を行うと、VBAの実行速度が遅くなることがあります。その場合は、一度配列（Array）にデータを読み込んでからメモリ上で判定を行うと、劇的に処理が高速化します。
まずは上記のサンプルを参考に、ご自身のデータ環境に合わせて範囲を調整してみてください。数式を自動化するだけで、業務の正確性は飛躍的に向上します。
