Excel VBAで繰り返す回数を求める方法

Excel VBAで繰り返す回数を求める方法｜初心者向け解説

2025.06.06

Excel VBAを使って、特定の処理を繰り返す回数を求めたいと思ったことはありませんか？例えば、ある列に「aaa」という文字列が何回出現するかを調べ、その回数に応じて処理を分けたい場面などです。今回は、そんな初心者の方でもわかりやすく、実際の例を交えて解説します。

繰り返す回数を求める基本の考え方
1. COUNTIF関数を使ってみよう
2. VBAで繰り返す回数を求める方法
実際の活用例
よくある質問や疑問
1. Q1: COUNTIF関数とVBAの違いは何ですか？
2. Q2: VBAのコードをどこに入力すればよいですか？
今すぐ解決したい！どうしたらいい？
まとめ

繰り返す回数を求める基本の考え方

Excelのイメージ

まず、繰り返す回数を求めるためには、対象となるセルの中で特定の条件に一致するデータが何回出現するかを調べる必要があります。これには、Excelの関数やVBAのコードを使う方法があります。

COUNTIF関数を使ってみよう

Excelの関数「COUNTIF」を使うと、指定した範囲内で条件に一致するセルの数を簡単に求めることができます。例えば、A列に「aaa」という文字列が何回出現するかを調べるには、以下のような数式を使います。

excel

=COUNTIF(A, "aaa")

この数式をセルに入力すると、A列全体の中で「aaa」が出現する回数が表示されます。

VBAで繰り返す回数を求める方法

VBAを使って繰り返す回数を求める場合、以下のようなコードを使うことができます。

vba

Sub CountOccurrences()

    Dim count As Long

    Dim cell As Range

    count = 0

    For Each cell In Range("")

        If cell.Value = "aaa" Then

            count = count + 1

        End If

    Next cell

    MsgBox "「aaa」の出現回数は " & count & " 回です。"

End Sub

このコードでは、からまでのセルを順番にチェックし、「aaa」が見つかるたびにカウントを1増やしています。最終的に、出現回数をメッセージボックスで表示します。

実際の活用例

例えば、社員名簿がA列にあり、その中で「田中」という名前が何回出現するかを調べたい場合、上記のVBAコードを少し変更して使うことができます。

vba

Sub CountTanaka()

    Dim count As Long

    Dim cell As Range

    count = 0

    For Each cell In Range("")

        If cell.Value = "田中" Then

            count = count + 1

        End If

    Next cell

    MsgBox "「田中」の出現回数は " & count & " 回です。"

End Sub

このように、VBAを使うことで、特定の条件に一致するデータの出現回数を簡単に求めることができます。