驚愕！Excel特定の文字カウントVBAを駆使して業務効率化する方法

Excelを使ってデータを扱うとき、特定の文字列を数えたいというシチュエーションが頻繁にありますよね。例えば、大量のデータの中から「完了」や「未処理」といった特定の文字を含むセルの数を知りたい場合、手作業では非常に時間がかかってしまいます。しかし、ExcelのVBAを使えば、そんな面倒な作業を瞬時に解決することができます。

本記事では、「Excel特定の文字カウントVBA」の使い方について、初心者でもすぐに実践できる方法を解説します。さらに、VBAを使ったカウント方法だけでなく、実務で活用できる技術も紹介しますので、ぜひ最後までお付き合いください。

Excelで文字をカウントするVBAの基本
1. VBAを使った基本的な文字カウントの方法
応用編ワイルドカードを使った文字列検索
1. ワイルドカードを使った前方一致、後方一致、完全一致のカウント
Excel 特定の文字カウント VBAに関する疑問解決
1. 質問VBAでカウントする範囲が動的に変わる場合はどうするか？
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
まとめ

Excelで文字をカウントするVBAの基本

Excelのイメージ

まず最初に、Excelで特定の文字をカウントするためにVBAを使用する方法について、基本的な部分からお話しします。VBA（Visual Basic for Applications）を使えば、Excelの標準機能でできること以上に自由度が広がります。

VBAを使用することで、単にセルの数をカウントするだけでなく、複雑な条件を設定して数値を動的に変更することができます。では、まず基本の使い方から見ていきましょう。

VBAを使った基本的な文字カウントの方法

ExcelのVBAを使うことで、指定した範囲内で特定の文字列を含むセルの数を簡単にカウントすることができます。基本的なコード例は以下の通りです。

まず、「Alt + F11」でVBAエディタを開きます。
「挿入」→「モジュール」を選択して、新しいモジュールを追加します。
以下のコードを入力します。

vba

Sub CountSpecificText()

    Dim count As Long

    Dim cell As Range

    count = 0
    For Each cell In Range("A1:A10") '範囲を指定

        If InStr(cell.Value, "完了") > 0 Then '文字列を検索

            count = count + 1

        End If

    Next cell

MsgBox "「完了」のセル数は " & count & " 件です。" End Sub

上記のコードは、セル範囲A1:A10に「完了」という文字列が含まれているセルの数をカウントし、その結果をメッセージボックスで表示します。このように、簡単なVBAを使うことで、特定の文字列がいくつ存在するかを瞬時に知ることができるのです。

応用編ワイルドカードを使った文字列検索

VBAで文字列をカウントする際、単に完全一致する文字列だけでなく、部分一致を検索することもよくあります。ここでは、Excelのワイルドカードを使って、部分一致を検索する方法を紹介します。

ワイルドカードを使った前方一致、後方一致、完全一致のカウント

ワイルドカードを使うと、特定のパターンに一致する文字列を簡単に検索することができます。ワイルドカードには「*」と「?」がありますが、それぞれ次のように使います。

前方一致文字列の先頭が一致するものを検索（例「完了*」）。
後方一致文字列の末尾が一致するものを検索（例「*完了」）。
完全一致完全に一致する文字列を検索（例「完了」）。

これらをVBAで使う例を見てみましょう。

vba

Sub CountWildCardText()

    Dim count As Long

    Dim cell As Range

    count = 0
    For Each cell In Range("A1:A10")

        If cell.Value Like "完了*" Then '前方一致

            count = count + 1

        End If

    Next cell

MsgBox "前方一致のセル数は " & count & " 件です。" End Sub

このコードでは、「完了」で始まる文字列をカウントしています。同様に後方一致や完全一致でも同じように指定できます。

Excel 特定の文字カウント VBAに関する疑問解決

読者が抱える可能性が高い疑問や質問について、ここで解説します。

質問VBAでカウントする範囲が動的に変わる場合はどうするか？

実務では、データの範囲が固定されていないことが多いため、範囲が動的に変わる場合に対応する方法が必要です。以下のコードでは、データが入力されている最後の行までを自動で取得し、そこまで範囲を指定しています。

vba

Sub CountDynamicRange()

    Dim count As Long

    Dim cell As Range

    Dim lastRow As Long

    count = 0
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row 'データが入力されている最終行を取得
    For Each cell In Range("A1:A" & lastRow)

        If InStr(cell.Value, "完了") > 0 Then

            count = count + 1

        End If

    Next cell

MsgBox "「完了」のセル数は " & count & " 件です。" End Sub

このコードを使えば、動的に範囲が変わる場合にも対応できます。