Excel VBAのIf文で複数のデータを順番に判定する方法｜For文との組み合わせ

Excel VBAのIf文で複数のデータを順番に判定する

Excel VBAのIf文を使うと、セルの値によって処理を変えることができます。

一覧表など複数のデータを同じ条件で判定したい場合は、If文とFor文を組み合わせることで、1行ずつ順番に条件を判定できます。

この記事では、If文とFor文を組み合わせて複数のデータを順番に判定する方法を、具体例を使って解説します。

If文で複数のデータを判定する

これまでのIf文では、A1セルなど特定のセルを指定して条件を判定してきました。

一覧表のように複数のデータを同じ条件で判定する場合、1つずつIf文を書くのではなく、For文と組み合わせることで同じ判定を繰り返すことができます。

ここでは、A列の2行目から6行目までの数値を順番に判定し、B列へ次の結果を入力します。

• 20以上の場合は「○」
• 10以上20未満の場合は「△」
• 10未満の場合は「×」

If文とFor文を組み合わせたコード

For i = 2 To 6
    If Cells(i, 1) >= 20 Then
        Cells(i, 2) = "○"
    ElseIf Cells(i, 1) >= 10 Then
        Cells(i, 2) = "△"
    Else
        Cells(i, 2) = "×"
    End If
Next i

For i = 2 To 6
    If Cells(i, 1) >= 20 Then
        Cells(i, 2) = "○"
    ElseIf Cells(i, 1) >= 10 Then
        Cells(i, 2) = "△"
    Else
        Cells(i, 2) = "×"
    End If
Next i

コードの解説

RangeではなくCellsを使う理由

1つのセルを判定する場合は、次のようにRangeを使ってセル番地を直接指定できます。

If Range(“A2”) >= 20 Then

しかし、複数の行を順番に判定する場合、判定するセルをA2、A3、A4……と変更する必要があります。

そこで、行番号と列番号を数値で指定できるCellsを使用します。

Cells(i, 1)

i の値が変わることで行番号も変わるため、For文と組み合わせて複数のデータを順番に処理できます。

今回の場合は、

となります。

If文とFor文を組み合わせるときの考え方

If文とFor文を組み合わせたコードは長く見えますが、それぞれの役割を分けて考えると分かりやすくなります。

If文の役割
→ データが条件に当てはまるか判定して、実行する処理を決める

For文の役割
→ 判定するデータを1行ずつ順番に変更する

つまり、If文で行っている条件判定を、For文を使って複数のデータに繰り返していると考えればOKです。

For文そのものの書き方や繰り返し処理について詳しく知りたい場合は、こちらの記事で解説しています。

▶ Excel VBAのFor文の使い方を詳しく解説

If文とFor文を組み合わせたコードだけを使いたい方はこちら

If文とFor文を組み合わせたコードだけを確認して、そのままコピーして使いたい場合は、スニペット記事にまとめています。

▶ Excel VBAでFor文とIf文を組み合わせるコピペ用コード

まとめ

Excel VBAのIf文とFor文を組み合わせると、複数のデータを同じ条件で順番に判定できます。

If文が「条件によって処理を変える」役割、For文が「判定するデータを順番に変える」役割を持っています。

一覧表など複数のデータを同じ条件で判定するときは、If文を1つずつ記述するのではなく、For文と組み合わせることで効率よく処理できます。

関連投稿:

【初心者向け】Excel VBAの始め方！最初の設定から保存までを徹底解説 【Excel VBA】最終行までコピーする方法｜データ量に合わせて自動で範囲が変わる Excel VBAのIf文の使い方｜条件によって処理を変える基本を解説 For文の基本｜VBAで繰り返し処理をする方法