Excel VBAでカウンタ変数を自分で作ろう！変数 = 変数 + 1の基本と活用法

2025.06.06

Excel VBAを使って、セルに連番を自動で入力したり、繰り返し処理を行ったりする際に欠かせないのが「カウンタ変数」です。今回は、初心者の方にもわかりやすく、カウンタ変数の作り方と使い方を解説します。

カウンタ変数とは？

Excelのイメージ

カウンタ変数とは、繰り返し処理（ループ）を行う際に、何回目の処理かを記録するための変数です。例えば、セルに1、に2、に3と順番に数字を入力したい場合、このカウンタ変数を使います。

最も基本的な使い方は、For～Next構文を使う方法です。以下のコードを見てみましょう。



Sub 連番入力()

    Dim i As Integer

    For i = 1 To 10

        Cells(i, 1).Value = i

    Next i

End Sub

このコードでは、変数iが1から10まで1ずつ増加しながら、A列の1行目から10行目にその値を入力します。つまり、セルに1、に2、…、に10が入力されます。

カウンタ変数は、連番を入力するだけでなく、さまざまな場面で活用できます。例えば、特定の条件に合致するセルを色付けしたり、データを集計したりする際にも役立ちます。

Excel VBAには、For～Next構文を使うことで、自動的にカウンタ変数を作成する機能があります。しかし、より柔軟な制御が必要な場合や、特定の条件でカウンタ変数を操作したい場合には、自分でカウンタ変数を定義して使うことが有効です。

はい、例えば、以下のようにRangeオブジェクトを使って連番を入力することも可能です。



Sub 連番入力()

    Range("").Value = Application.Transpose(Evaluate("ROW(1:10)"))

End Sub

この方法では、カウンタ変数を使わずに連番を入力できますが、柔軟な制御が難しい場合があります。

はい、カウンタ変数の初期値は任意の値に設定できます。例えば、以下のように初期値を変更することができます。



Sub 連番入力()

    Dim i As Integer

    For i = 5 To 15

        Cells(i - 4, 1).Value = i

    Next i

End Sub

このコードでは、セルに5、に6、…、に15が入力されます。

いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」

あなたはこんな経験はありませんか？

✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦

平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。

LINEでメッセージを送れば即時解決！

すでに多くの方が私の公式LINEからお悩みを解決しています。

最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。

誰でも無料で使えますので、安心して使えます。

問題は先のばしにするほど深刻化します。

小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。

あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。

ぜひ、あなたの悩みを私に解決させてください。

カウンタ変数は、Excel VBAで繰り返し処理を行う際に非常に重要な役割を果たします。基本的な使い方をマスターすれば、さまざまな自動化処理に応用できます。ぜひ、今回紹介した内容を参考に、実際にコードを書いてみてください。

他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。