シートが増えるほど、コピペの回数も増えていきます。1枚あたり数分でも、10枚あれば30分以上。しかも貼り間違いや行のズレといったミスもつきまといます。

そんなシート間のデータ転記・集約は、VBAで一瞬で片づけられます。この記事では、コピペでそのまま動く完成コードを3パターン用意しました。単純な別シート転記から、For Eachによる全シート一括集約、条件付き転記までを順番に解説します。

VBAでシート間のデータを転記・集約してできること

まずは、VBAを使うとシート間のデータ処理がどう変わるのかを見ておきましょう。

手作業では、シートを切り替えてコピーして、別のシートに貼り付ける、という操作の繰り返しです。シートが10枚あれば、この往復を10回行うことになります。

VBAなら、この往復をコードに書いておくだけです。マクロを実行すれば、全シートの処理が数秒で終わります。

具体的には、次のような処理を自動化できます。

• 特定のシートのデータを、別のシートに丸ごと転記する
• 複数のシートを1枚の集計シートにまとめて集約する
• 「ステータスが完了の行だけ」のように条件付きで転記する

手作業とVBAの違いを、簡単な表で比べてみます。

一度コードを作ってしまえば、翌月以降は実行するだけです。この「作り置き」ができるのがVBAの強みですね。

VBEの起動とマクロを書く準備

コードを書く前に、VBE（Visual Basic Editor）という編集画面を開きます。VBEは、VBAのコードを書くための専用エディタです。

VBEの開き方

VBEを開く方法は2つあります。一番早いのは、Excelの画面で Alt + F11 を押す方法です。これだけでVBEが立ち上がります。

もう1つは、リボンの「開発」タブから開く方法です。「開発」タブの「Visual Basic」ボタンをクリックします。

「開発」タブが見当たらない場合は、表示設定が必要です。次の手順で追加してください。

1. 「ファイル」→「オプション」を開く
2. 「リボンのユーザー設定」を選ぶ
3. 右側の一覧で「開発」にチェックを入れる
4. 「OK」を押す

これで「開発」タブがリボンに表示されます。

標準モジュールの挿入

VBEが開いたら、コードを書く場所を用意します。メニューの「挿入」→「標準モジュール」を選んでください。

すると「Module1」という白い画面が開きます。ここにコードを書いていきます。VBEの画面構成をもっと詳しく知りたい方は、VBEの画面の見方を図解で解説もあわせてご覧ください。

.xlsmで保存することに注意

マクロを書いたブックは、必ず .xlsm（マクロ有効ブック）形式で保存します。普段の .xlsx 形式では、マクロが保存できません。

.xlsx のまま保存しようとすると、「マクロなしのブックとして保存されます」という警告が出ます。このまま保存すると、せっかく書いたコードが消えてしまいます。

保存時は「名前を付けて保存」で、ファイルの種類を「Excel マクロ有効ブック（.xlsm）」に変えてください。詳しい違いは.xlsxと.xlsmの違いで解説しています。

パターン1：別シートにデータを転記する基本コード

最初は一番シンプルな、別シートへの転記です。「Sheet1のデータを、Sheet2の続きに追記する」という、よくあるパターンから見ていきましょう。

ここでは、Sheet1のA1からC5までのデータを、Sheet2の末尾に追記する例を使います。

Sub データ転記_基本()

    '--- コピー元とコピー先のシートを指定 ---
    Dim wsFrom As Worksheet '転記元シート
    Dim wsTo As Worksheet   '転記先シート
    Set wsFrom = Worksheets("Sheet1")
    Set wsTo = Worksheets("Sheet2")

    '--- 転記先の最終行を取得して、次の行を書き込み位置にする ---
    Dim tRow As Long '転記先の書き込み行
    tRow = wsTo.Cells(Rows.Count, 1).End(xlUp).Row + 1

    '--- A1:C5の範囲を、転記先の末尾に値だけコピー ---
    wsTo.Range("A" & tRow & ":C" & tRow + 4).Value = wsFrom.Range("A1:C5").Value

    MsgBox "転記が完了しました"

End Sub

このコードを書いたら、F5 キーかメニューの「実行」でマクロを動かします。Sheet2の続きにSheet1のデータが追記されれば成功です。

自分の環境に合わせて変えるのは、次の3か所です。

• Worksheets("Sheet1") … 転記元のシート名
• Worksheets("Sheet2") … 転記先のシート名
• Range("A1:C5") … コピーするデータの範囲

コードの仕組みを理解する

このコードのポイントは、別シートを操作するときに必ずシート名を付けている点です。wsFrom.Range(...) のように、どのシートのどの範囲かを明示しています。

シート名を付けずに Range("A1") と書くと、今表示しているシートを指してしまいます。別シート操作では、シートの指定を省略しないのがポイントです。

最終行は Cells(Rows.Count, 1).End(xlUp).Row で取得しています。これは「A列の一番下から上に詰めて、最初にデータがある行」を返す定番のテクニックです。最終行の取得方法はVBA最終行の取得でも詳しく解説しています。

また、コピー先.Value = コピー元.Value のように範囲ごと値を代入しています。セルを1つずつコピーするより、この書き方のほうがずっと高速です。

パターン2：For Eachで全シートを集計シートに集約する

次は、複数のシートを1枚にまとめる集約です。「月別シートを、集計シートに全部まとめたい」というニーズに応えます。

ここでは、「集計」という名前のシートを用意しておきます。そして、それ以外の全シートのデータを、集計シートに順番に追記していきます。

Sub 全シート集約()

    '--- 集約先シートを指定 ---
    Dim wsSum As Worksheet '集約先シート
    Set wsSum = Worksheets("集計")

    '--- 全シートを1枚ずつ処理する ---
    Dim ws As Worksheet '処理中のシート
    For Each ws In Worksheets

        '--- 集計シート自身は処理しない ---
        If ws.Name <> "集計" Then

            '--- 各シートの最終行を取得 ---
            Dim lastRow As Long '各シートのデータ最終行
            lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

            '--- 集約先の書き込み位置（最終行の次）を取得 ---
            Dim tRow As Long '集約先の書き込み行
            tRow = wsSum.Cells(Rows.Count, 1).End(xlUp).Row + 1

            '--- 2行目から最終行までを集約先に転記（1行目は見出しとして除外） ---
            ws.Range("A2:C" & lastRow).Copy wsSum.Range("A" & tRow)

        End If

    Next ws

    MsgBox "全シートの集約が完了しました"

End Sub

このコードを実行すると、集計シート以外の全シートのデータが、集計シートに1つにまとまります。シートが何枚あっても、コードはそのままで動きます。

ちょっとむずかしく見えますが、やっていることはシンプルです。「1枚ずつシートを取り出して、集計シートの末尾に貼る」を全シートで繰り返しているだけです。

コードの仕組みを理解する

ここで使っている For Each ws In Worksheets は、全シートを1つずつ取り出すループです。ws には、処理中のシートが順番に入っていきます。For Eachの基本はVBA For Eachの使い方で解説しています。

処理の流れは次の3ステップです。

1. For Each で全シートを1枚ずつ取り出す
2. If ws.Name <> "集計" で集計シート自身を除外する
3. 各シートの2行目以降を、集計シートの末尾にコピーする

集計シート自身を除外するガードは、必ず入れてください。これがないと、集計シート自身のデータも集計シートに貼り付けてしまいます。

見出し行を除くため、コピー範囲を A2 から始めています。各シートの1行目が見出しの場合、この指定でデータ部分だけをまとめられます。

ここでは書式ごとコピーする Copy を使いました。値だけでよければ、パターン1のように Value での代入のほうが高速です。

パターン3：条件に合うデータだけを別シートに転記する

最後は、条件付きの転記です。「ステータスが完了の行だけ、完了シートに移したい」のように、特定の値の行だけを抜き出します。

ここでは、Sheet1のC列に入った「ステータス」を見て、「完了」の行だけを「完了」シートに転記する例を使います。

Sub 条件付き転記()

    '--- 転記元と転記先のシートを指定 ---
    Dim wsFrom As Worksheet '転記元シート
    Dim wsTo As Worksheet   '転記先シート
    Set wsFrom = Worksheets("Sheet1")
    Set wsTo = Worksheets("完了")

    '--- 転記元の最終行を取得 ---
    Dim lastRow As Long '転記元のデータ最終行
    lastRow = wsFrom.Cells(Rows.Count, 1).End(xlUp).Row

    '--- 転記先の書き込み開始行を取得 ---
    Dim tRow As Long '転記先の書き込み行
    tRow = wsTo.Cells(Rows.Count, 1).End(xlUp).Row + 1

    '--- 2行目から最終行まで1行ずつ判定する ---
    Dim i As Long 'ループ用の行カウンター
    For i = 2 To lastRow

        '--- C列が「完了」の行だけ転記する ---
        If wsFrom.Cells(i, 3).Value = "完了" Then
            wsTo.Range("A" & tRow & ":C" & tRow).Value = _
                wsFrom.Range("A" & i & ":C" & i).Value
            tRow = tRow + 1 '転記したので書き込み行を1つ進める
        End If

    Next i

    MsgBox "条件に合うデータの転記が完了しました"

End Sub

実行すると、C列が「完了」の行だけが、完了シートに集まります。条件を変えたいときは、If wsFrom.Cells(i, 3).Value = "完了" の部分を書き換えます。

たとえば「金額が10000以上の行だけ」にしたいなら、wsFrom.Cells(i, 4).Value >= 10000 のように変えるだけです。

コードの仕組みを理解する

このコードは、1行ずつ条件をチェックしていく作りです。For i = 2 To lastRow で、2行目から最終行までを順番に見ていきます。

ポイントは、転記先の書き込み行 tRow を変数で管理している点です。条件に合う行を転記するたびに、tRow = tRow + 1 で1つ進めます。これで、転記先に隙間なく詰めて書き込めます。

Cells(i, 3) の 3 はC列を意味します。判定する列を変えたいときは、この数字を変えます。1ならA列、2ならB列という対応です。

行と列を数字で指定する Cells の使い方は、VBA RangeとCellsの違いで詳しく解説しています。ループ処理の中では、この Cells が便利です。

VBAのシート転記でよくあるエラーと対処法

シート転記のコードでつまずきやすいエラーを、3つにしぼって紹介します。

実行時エラー9：インデックスが有効範囲にありません

これは、指定したシート名が存在しないときに出るエラーです。原因のほとんどはシート名のタイプミスです。

たとえば、コードでは「集計」と書いているのに、実際のシート名が「集計表」だと、このエラーになります。全角と半角の違い、余分なスペースもよくある原因です。

シート名を確認するには、次のコードが便利です。

Sub シート名を確認()

    Dim ws As Worksheet '確認用のシート
    For Each ws In Worksheets
        Debug.Print ws.Name '各シート名をイミディエイトウィンドウに出力
    Next ws

End Sub

これを実行すると、全シートの正確な名前がイミディエイトウィンドウに表示されます。表示された名前を、コードにそのままコピーすると確実です。

実行時エラー13：型が一致しません

これは、データの型が合っていないときに出ます。たとえば、文字が入ったセルを数値として比較しようとした場合などです。

条件付き転記で「金額が10000以上」と判定するとき、その列に文字列が混ざっているとこのエラーが起きます。判定に使う列には、数値だけが入っているか確認してください。

実行時エラー1004：Rangeの指定が不正

Range指定の書き方が間違っているときや、保護されたシートに書き込もうとしたときに出ます。

転記先シートが保護されていないか、まず確認しましょう。シートの保護がかかっていると、VBAでも書き込めません。

その他のエラーについては、VBAマクロのエラー解決ガイドで頻出エラー別にまとめています。

大量データは画面更新を止めると速い

エラーではありませんが、データ量が多いと処理が遅く感じることがあります。そんなときは、画面更新を一時的に止めると体感速度が上がります。

Sub 高速化のひな形()

    Application.ScreenUpdating = False '画面更新を止める

    '--- ここに転記・集約の処理を書く ---

    Application.ScreenUpdating = True '画面更新を元に戻す

End Sub

処理の前後で画面更新をオフ・オンにするだけです。最後に必ず True へ戻すのを忘れないでください。

まとめ

VBAで複数シート間のデータを転記・集約する方法を、3つのパターンで解説しました。最後にポイントを整理します。

• パターン1：別シートへの単純転記は、シート名を明示して Value で範囲ごと代入する
• パターン2：全シート集約は For Each でループし、集計シート自身を除外する
• パターン3：条件付き転記は1行ずつ判定し、書き込み行を変数で管理する
• 別シート操作では、必ずシート名を付ける
• マクロを書いたら .xlsm 形式で保存する

まずはパターン1から、自分の業務のシート名に書き換えて試してみてください。動くコードが1つできれば、あとは応用が効きます。

ループ処理をもっと深く知りたい方はVBA For~Next文の使い方を、VBAで業務全体を自動化したい方はExcel VBAで仕事を自動化する方法もあわせてご覧ください。

書き方がまったく違うので、「結局どっちが正解なの？」と手が止まりがちですよね。使い分けを間違えると、ループ処理でセル番地の文字列結合が必要になったり、別シート操作で1004エラーに悩まされたりします。

この記事では、RangeとCellsの違いを比較表で整理し、実務シナリオごとの選び方をお伝えします。Offset・Resizeとの組み合わせやFor Eachでのループ処理も取り上げるので、読み終わるころには「この場面ならこっち」と迷わず選べるようになりますよ。

NOTE

VBAを初めて触る方は、先に「VBE画面の見方」をチェックしておくとスムーズです。

RangeとCellsの違いを一覧でおさらい

まず結論から整理しましょう。RangeとCellsはどちらも「セルを指定する方法」ですが、得意な場面が違います。

ひとことで言えば、「文字列で指定するか、数値で指定するか」の違いです。この違いが使い分けの根拠になっています。

Range：アドレス直書きでわかりやすい

RangeはExcelシート上の「A1」形式をそのまま使えます。普段のExcel操作と同じ感覚なので、直感的に読み書きできるのが強みです。

' 1つのセルに値を入力
Range("A1").Value = "こんにちは"

' 範囲をまとめて太字にする
Range("A1:C10").Font.Bold = True

' 離れたセルを一括指定
Range("A1,C3,E5").Font.Color = vbRed

Rangeの詳しい使い方は「VBA Rangeの使い方」でも解説しています。

Cells：行番号・列番号で指定できる

Cellsは行と列を数値で指定します。「Cells(行, 列)」の形で、列もアルファベットではなく数字で書くのがポイントです。

' A1セル（1行目・1列目）に値を入力
Cells(1, 1).Value = "こんにちは"

' B3セル（3行目・2列目）に値を入力
Cells(3, 2).Value = 100

数値だけで指定するので、変数と組み合わせやすいのが最大の強みです。

VBA Cellsを使うべき場面

Cellsが本領を発揮するのは、セルの位置を動的に変えたいときです。

For文でループするとき

Cellsの最大の強みは、変数をそのまま行番号に渡せることです。

' A列の1行目〜10行目に連番を入力
Dim i As Long
For i = 1 To 10
    Cells(i, 1).Value = i
Next i

同じ処理をRangeで書くとこうなります。

' Rangeだと文字列結合が必要
Dim i As Long
For i = 1 To 10
    Range("A" & i).Value = i
Next i

動きは同じですが、"A" & i と文字列結合が入ります。列も変数にしたい場合はさらに複雑になるので、ループ処理ではCellsがおすすめです。

For文の書き方をもっと知りたい方は「VBA For文の使い方」もチェックしてみてください。

行列を動的に計算したいとき

行も列も変数で動かしたい場合、Cellsの数値指定が活きます。

' 5×5の掛け算表を作る
Dim r As Long  ' 行カウンター
Dim c As Long  ' 列カウンター
For r = 1 To 5
    For c = 1 To 5
        Cells(r, c).Value = r * c
    Next c
Next r

二重ループとの相性は抜群です。Rangeでこれをやると、列番号をアルファベットに変換する処理が必要になり、かなり面倒になります。

変数（Dim）の宣言ルールが気になる方は「変数の使い方とルール」を参照してください。宣言を強制するOption Explicitもあわせて覚えておくと安心ですよ。

VBA Rangeを使うべき場面

一方、Rangeが適しているのは「セルの位置が決まっている」場面です。

セルアドレスが固定のとき

操作対象が固定セルなら、Rangeが読みやすいです。

' 決まったセル範囲をクリアする
Range("A1:D1").ClearContents

' ヘッダー行を太字にする
Range("A1:F1").Font.Bold = True

「A1:D1」とそのまま書けるので、コードを読んだ人がすぐに対象範囲を把握できます。可読性の高さがRangeの大きなメリットです。

名前付き範囲を指定するとき

Excelで名前を定義している場合、Rangeから直接参照できます。

' 名前定義「売上合計」の値を取得
Dim total As Long
total = Range("売上合計").Value

名前付き範囲はCellsでは参照できません。名前定義を使う場面ではRangeの一択になります。

セルの位置が変わってもコードを修正しなくて済むので、実務ではとても便利ですよ。なお、RangeやCellsで取得した値をExcel関数で処理したい場合は「WorksheetFunctionの使い方」もあわせてチェックしてみてください。

For Eachで範囲内のセルを一括処理する

For Each文を使うと、Range内の各セルを1つずつ取り出して処理できます。「何行目か」を自分で管理しなくていいので、コードがシンプルになるのが魅力です。

For EachとRangeの基本パターン

Sub 空欄セルに初期値を入れる()
    Dim cell As Range
    For Each cell In Range("B2:B20")
        If cell.Value = "" Then
            cell.Value = 0
        End If
    Next cell
End Sub

For Each cell In Range(...) と書くだけで、範囲内のセルを上から順に処理してくれます。行番号を管理する i 変数が不要なので、コードの見通しがよくなります。

For Each文の詳しい使い方は「For Eachの使い方」で解説しています。

For EachとCellsの使い分け

For EachとFor文（Cells）のどちらを選ぶかは、「処理中に行番号が必要かどうか」で決まります。

' ケース1: 行番号が不要 → For Each がシンプル
Sub 負の値を赤くする()
    Dim cell As Range
    For Each cell In Range("C2:C100")
        If cell.Value < 0 Then
            cell.Font.Color = vbRed
        End If
    Next cell
End Sub

' ケース2: 行番号を使って別列に書き込む → For + Cells が便利
Sub 判定結果を隣の列に出力する()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 3).End(xlUp).Row

    Dim i As Long
    For i = 2 To lastRow
        If Cells(i, 3).Value >= 80 Then
            Cells(i, 4).Value = "合格"
        Else
            Cells(i, 4).Value = "不合格"
        End If
    Next i
End Sub

「同じセルだけ触る処理」ならFor Each、「隣の列や別のセルにも書き込む処理」ならFor + Cellsと覚えておくと迷いません。

For Eachで実務に使えるパターン：条件に合うセルを集計

実務でよくあるのが、範囲内のセルを条件でフィルタしながら集計するパターンです。

Sub 部門別の売上を集計する()
    Dim cell As Range
    Dim totalSales As Long

    ' A列が「営業部」の行だけ、B列の金額を合計
    For Each cell In Range("A2:A50")
        If cell.Value = "営業部" Then
            totalSales = totalSales + cell.Offset(0, 1).Value
        End If
    Next cell

    Range("D1").Value = "営業部合計"
    Range("E1").Value = totalSales
End Sub

ここで使っている Offset については、次のセクションで詳しく説明します。

Offset・Resizeで基準セルからの相対指定

RangeやCellsで取得したセルを「起点」として、そこから相対的に位置をずらしたり範囲を広げたりできます。これがOffsetとResizeです。

Offset：基準セルから行・列をずらす

Offset(行方向, 列方向) で、基準セルからの相対位置を指定します。

' A1セルから2行下・1列右 → B3セル
Range("A1").Offset(2, 1).Value = "ここはB3"

' 現在のセルの1つ右に値を入力
Cells(5, 1).Offset(0, 1).Value = "B5に入力"

行方向の正の値は下、負の値は上。列方向の正の値は右、負の値は左です。

Offsetが特に活躍するのは、For Eachループの中で隣のセルにアクセスするときです。

Sub 単価と数量から金額を計算する()
    Dim cell As Range
    ' B列（単価）をループして、C列（数量）と掛けた結果をD列に出力
    For Each cell In Range("B2:B20")
        If cell.Value <> "" Then
            cell.Offset(0, 2).Value = cell.Value * cell.Offset(0, 1).Value
        End If
    Next cell
End Sub

For Eachでは行番号を直接持たないので、「隣のセル」「2列右のセル」にアクセスするにはOffsetが必須です。この組み合わせは実務で非常によく使います。

Resize：範囲のサイズを変更する

Resize(行数, 列数) で、基準セルから指定した大きさの範囲を作ります。

' A1セルを起点に、5行3列の範囲を選択
Range("A1").Resize(5, 3).Select

' ヘッダー行を除いたデータ範囲を取得
Dim dataRange As Range
Set dataRange = Range("A1").Resize(10, 4)  ' A1:D10

Resizeは「データの先頭セルはわかっているが、範囲の大きさを動的に決めたい」ときに重宝します。

Offset + Resize の組み合わせ：ヘッダーを除外する実例

OffsetとResizeを組み合わせると、「ヘッダー行をスキップしてデータ範囲だけ取得する」といった実務的な操作が1行で書けます。

Sub ヘッダーを除いてデータ範囲に色をつける()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    ' A1から始まるテーブルのヘッダーを除外して色付け
    ' Offset(1, 0) で1行下にずらし、Resize(lastRow - 1, 4) でデータ行分の範囲を確保
    Range("A1").Offset(1, 0).Resize(lastRow - 1, 4).Interior.Color = RGB(230, 240, 255)
End Sub

ちょっとむずかしく見えますが、やっていることはシンプルです。Offset(1, 0) でA2に移動し、Resize(lastRow – 1, 4) でA2からデータ最終行までの4列分を取得しています。

Offset・Resizeの詳しい使い方は「VBA Rangeの使い方」でも解説しています。

Range(Cells, Cells)の組み合わせ技

RangeとCellsは組み合わせて使えます。これを覚えると、動的な範囲指定がぐっと楽になります。

基本構文

Range(Cells(開始行, 開始列), Cells(終了行, 終了列)) の形で書きます。

' A1からE10までを選択
Range(Cells(1, 1), Cells(10, 5)).Select

開始位置も終了位置も数値で制御できるのがポイントです。固定範囲にはRange単体、動的範囲にはこの組み合わせと覚えておきましょう。

開始・終了行を動的に変える実例

実務で最もよく使うのが、最終行を取得して動的に範囲を決めるパターンです。

Sub 動的範囲に罫線を引く()
    ' A列の最終行を取得
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    ' A1から最終行のC列まで罫線を引く
    Range(Cells(1, 1), Cells(lastRow, 3)).Borders.LineStyle = xlContinuous
End Sub

Cells(Rows.Count, 1).End(xlUp).Row でA列の一番下から上に向かって最終行を探しています。データの件数が増減しても自動で対応できるので、実務では非常に重宝します。

最終行の取得方法をもっと詳しく知りたい方は「最終行を取得する3つの方法」もどうぞ。

もうひとつ、可変範囲をコピーする実例も見てみましょう。

Sub データ範囲をコピーして貼り付ける()
    Dim lastRow As Long
    Dim lastCol As Long

    ' データの最終行・最終列を取得
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

    ' データ範囲をまるごとコピー
    Range(Cells(1, 1), Cells(lastRow, lastCol)).Copy

    ' Sheet2のA1に貼り付け
    Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

最終行だけでなく最終列も動的に取得すれば、列が増えても自動で対応できます。

実務シナリオ別の選択ガイド

ここまでの内容を、よくある実務シナリオで整理しましょう。

一覧表を上から順に処理する

請求書データや社員名簿を1行ずつ処理するパターンです。

Sub 一覧表を順に処理する()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = 2 To lastRow  ' 2行目から（1行目はヘッダー）
        ' B列が空欄ならスキップ
        If Cells(i, 2).Value <> "" Then
            ' D列に計算結果を入力
            Cells(i, 4).Value = Cells(i, 2).Value * Cells(i, 3).Value
        End If
    Next i
End Sub

行を変数 i で動かすのでCells一択です。「For文」と「For Each」のどちらでもCellsが活躍します。条件分岐の詳しい書き方は「VBA If文の使い方」も参考にしてみてください。

For Eachで条件付き書式を動的に適用する

For Eachを使えば、セルの値に応じて書式を変えるといった処理もシンプルに書けます。

Sub 売上達成状況に色をつける()
    Dim cell As Range
    For Each cell In Range("D2:D50")
        Select Case True
            Case cell.Value >= 1000000
                cell.Interior.Color = RGB(198, 239, 206)  ' 緑（達成）
            Case cell.Value >= 500000
                cell.Interior.Color = RGB(255, 235, 156)  ' 黄（もう少し）
            Case Else
                cell.Interior.Color = RGB(255, 199, 206)  ' 赤（未達）
        End Select
    Next cell
End Sub

行番号を使わず「セルそのもの」を操作するだけなので、For Eachが最適です。Select Caseの詳しい書き方は「Select Caseの使い方」もチェックしてみてください。

可変範囲をまるごとコピーする

データの最終行・最終列が変わる範囲を一括操作するパターンです。

Sub 可変範囲を書式設定する()
    Dim lastRow As Long
    Dim lastCol As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

    ' データ範囲全体に背景色をつける
    Range(Cells(2, 1), Cells(lastRow, lastCol)).Interior.Color = RGB(230, 240, 255)
End Sub

Range(Cells, Cells)の組み合わせが最適です。開始・終了を変数で制御しつつ、範囲全体をまとめて操作できます。

集計行をループの外に固定する

ヘッダーや集計行など、位置が固定のセルを操作するパターンです。

Sub 集計処理()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    ' ループ部分はCells
    Dim total As Long
    Dim i As Long
    For i = 2 To lastRow
        total = total + Cells(i, 3).Value
    Next i

    ' 固定セルへの書き込みはRange
    Range("A1").Value = "集計結果"
    Range("B1").Value = total
End Sub

ループ内はCells、固定セルはRangeと使い分けるのがスマートです。コードの意図が明確になり、後から読んでも何をしているか一目でわかります。

シナリオ別まとめ表

1004エラーの原因と対処法

RangeとCellsの組み合わせで最もハマりやすいのが、実行時エラー1004（「アプリケーション定義またはオブジェクト定義のエラー」）です。

Worksheetオブジェクトの明示

このエラーは、別シートのCellsをRange引数に渡すときに起きます。

' エラーになるコード
Sheets("Sheet2").Range(Cells(1, 1), Cells(10, 3)).Select

一見すると正しく見えますが、問題があります。Range は Sheet2 を指していますが、Cells はアクティブシートを指しています。シートの参照先がバラバラなのでエラーになるのです。

正しくはこう書きます。

' 正しいコード：Withでシートを統一する
With Sheets("Sheet2")
    .Range(.Cells(1, 1), .Cells(10, 3)).Select
End With

ポイントは .Range と .Cells の先頭にドット（.）をつけることです。ドットをつけると、Withで指定したSheet2のプロパティとして認識されます。

ドットを1つでも忘れるとエラーになるので注意してください。

もうひとつ、シートを変数に入れて書く方法もあります。

' 変数でシートを指定する方法
Dim ws As Worksheet
Set ws = Sheets("Sheet2")
ws.Range(ws.Cells(1, 1), ws.Cells(10, 3)).Select

どちらの書き方でもOKです。大事なのは「Range・Cells・すべてのシート参照を揃える」ことです。

NOTE

1004エラーは実行時に発生するため、コードを書いた時点では気づけません。別シートを操作するコードを書いたら、必ずテスト実行して確認しましょう。

OffsetやResizeでも同じ原則

Offset・Resizeを使う場合もシート参照を揃える必要があります。

' NGパターン：シート参照が混在
Sheets("Sheet2").Range("A1").Offset(1, 0).Resize(10, 3).Value = ""

' OKパターン：Withで統一
With Sheets("Sheet2")
    .Range("A1").Offset(1, 0).Resize(10, 3).Value = ""
End With

Offset・Resizeは基準セルのシートを引き継ぐので、基準となるRange/Cellsのシート指定さえ正しければ問題ありません。Withブロックを使う習慣をつけておくと安全です。

まとめ：迷ったときの使い分け早見表

RangeとCellsの使い分けを最終確認しましょう。

判断に迷ったら、次の順番で考えてみてください。

1. 名前付き範囲を使う？ → Range
2. セルの位置が固定？ → Range
3. 範囲内を順に処理（行番号不要）？ → For Each + Range
4. 変数で位置を動かす？ → Cells
5. 動的な範囲指定？ → Range(Cells, Cells)
6. 基準セルから相対的にずらす？ → Offset / Resize

どちらが正解ということではなく、場面で使い分けるのがベストです。VBAに慣れてくると、これらを自然に組み合わせて使えるようになりますよ。

ぜひVBEを開いて、両方のコードを試してみてくださいね。VBA全体の学習順序に迷ったら「VBA学習の順番ガイド」も参考にしてください。

関連記事

• VBA Rangeの使い方
• For文で処理を繰り返す方法
• For Eachでセル・シートを一括処理
• 最終行を取得する3つの方法
• VBA If文の使い方
• Select Caseの使い方
• Do Loopの使い方
• VBE画面の見方
• Option Explicitで変数宣言を強制する方法
• 変数の使い方とルール
• WorksheetFunctionの使い方
• VBA学習の順番ガイド

そんな悩み、VBAを書いていると一度は感じますよね。
ループ回数を自分で管理するのは手間ですし、範囲が変わるたびにコードを直すのも大変です。

For Each~Nextを使えば、対象のセルやシートをまるごとループできます。
番号の管理が不要になり、コードもすっきり書けますよ。

この記事では、For Eachの基本構文から実務パターンまでまとめて解説します。

VBA For Each~Nextとは？基本の書き方をおさらい

For Each~Nextは、コレクション（まとまり）の中身を1つずつ取り出して処理するループ構文です。

「セル範囲のすべてのセル」「ブック内のすべてのシート」など、グループの要素をまとめて処理したいときに使います。

基本の構文は次のとおりです。

For Each 変数 In コレクション
    '--- 繰り返したい処理 ---
Next 変数

変数にはコレクションの要素が1つずつ代入されます。
すべての要素を処理し終わると、自動的にループを抜けます。

ポイントは、ループの回数を指定しなくてよいことです。
コレクションの要素数が変わっても、コードの修正は不要ですよ。

For~Nextとの違いはなに？

For~Nextは、回数を指定して繰り返すループ構文です。
一方、For Eachは対象のまとまりを順に処理する構文です。

ざっくりまとめると、こんなイメージになります。

• For~Next: 「1番目から10番目まで処理して」
• For Each: 「この中の全部を処理して」

回数が決まっている処理にはFor~Nextが向いています。
「全部に同じ処理をしたい」ならFor Eachが便利です。

使い分けの詳しい判断軸は、記事の後半で解説しますね。

For Eachでセル範囲を一括処理する

For Eachでもっともよく使うのが、セル範囲のループです。
指定した範囲のすべてのセルに、同じ処理を適用できます。

Rangeに対してFor Eachを使う基本構文

セル範囲をFor Eachで処理するときは、Rangeオブジェクトをコレクションに指定します。

Sub セル範囲をループ()
    Dim cell As Range '--- 処理対象のセル ---

    For Each cell In Range("A1:A10")
        cell.Value = cell.Value * 2 '--- 値を2倍にする ---
    Next cell
End Sub

cellには、A1、A2、A3……と順にセルが代入されます。
各セルの値を2倍にする、シンプルな処理ですね。

なお、セルの処理順序は公式には保証されていません。
通常は左上から右下へ処理されますが、順序に依存するコードは避けるのがベターです。

実務サンプル：指定範囲のセルに処理を一括適用

実務では、動的な範囲を対象にすることが多いです。
最終行の取得と組み合わせたサンプルを見てみましょう。

Sub 空欄セルを強調表示()
    Dim lastRow As Long '--- 最終行 ---
    Dim cell As Range   '--- 処理対象のセル ---

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For Each cell In Range("A1:C" & lastRow)
        If cell.Value = "" Then
            cell.Interior.Color = RGB(255, 200, 200) '--- 薄い赤で塗る ---
        End If
    Next cell
End Sub

A列の最終行までの範囲で、空欄セルを薄い赤色にハイライトします。
データの入力漏れチェックに、そのまま使えますよ。

ループの途中で処理を抜けたいときは、Exit Forを使います。
最初の空欄が見つかった時点で止めるなら、こう書きます。

If cell.Value = "" Then
    MsgBox cell.Address & " が空欄です"
    Exit For '--- 最初の空欄で停止 ---
End If

なお、ループ内でIf文を組み合わせるのは定番パターンです。
条件に合うセルだけを対象にしたいときに活用してくださいね。

For Eachで全シートに同じ処理をする

ブック内の全シートにまとめて処理をかけたいとき、For Eachが活躍します。
シート数が増減しても、コードの変更は不要です。

WorksheetsコレクションとFor Eachの組み合わせ

WorksheetsコレクションをFor Eachに渡すと、全シートを順に処理できます。

Sub 全シート名を表示()
    Dim ws As Worksheet '--- 処理対象のシート ---

    For Each ws In Worksheets
        Debug.Print ws.Name '--- イミディエイトウィンドウに出力 ---
    Next ws
End Sub

変数wsはWorksheet型で宣言するのがポイントです。

ひとつ注意があります。
Worksheetsは非表示のシートも含みます。
xlSheetVeryHiddenで隠したシートも対象になるので、気をつけてください。
表示シートだけ処理したいときは、条件を追加しましょう。

実務サンプル：全シートのA1セルをクリアする

Sub 全シートA1クリア()
    Dim ws As Worksheet '--- 処理対象のシート ---

    For Each ws In Worksheets
        If ws.Visible = xlSheetVisible Then '--- 表示シートのみ ---
            ws.Range("A1").ClearContents
        End If
    Next ws
End Sub

ws.Visible = xlSheetVisibleの条件で、表示中のシートだけを対象にしています。

特定のシートを除外したい場合もあるでしょう。
そのときはIf ws.Name <> "集計" Thenのように、シート名で判定してください。

実務サンプル：全シートにヘッダーを一括設定する

月別シートを持つブックで、全シートに同じヘッダーを設定するコードです。

Sub 全シートにヘッダー設定()
    Dim ws As Worksheet '--- 処理対象のシート ---

    For Each ws In Worksheets
        If ws.Visible = xlSheetVisible Then '--- 表示シートのみ ---
            ws.Range("A1").Value = "日付"
            ws.Range("B1").Value = "担当者"
            ws.Range("C1").Value = "金額"
            ws.Range("A1:C1").Font.Bold = True '--- ヘッダーを太字 ---
        End If
    Next ws

    MsgBox "全シートにヘッダーを設定しました"
End Sub

毎月シートを追加するようなブックで、ヘッダーの設定漏れを防げます。
手動で1枚ずつ入力するよりも、ずっと確実ですよ。

For Eachで配列をループする

For Eachは配列のループにも使えます。
ただし、注意点があるので確認しておきましょう。

配列に対してFor Eachを使う書き方

Sub 配列をループ()
    Dim arr As Variant  '--- 配列 ---
    Dim item As Variant '--- 配列の要素（Variant型が必須） ---

    arr = Array("東京", "大阪", "名古屋")

    For Each item In arr
        Debug.Print item
    Next item
End Sub

ここで大事なポイントがあります。
配列をFor Eachで回すとき、変数は必ずVariant型にしてください。
Dim item As Stringのように宣言すると、型の不一致エラーになります。

コレクション（Worksheetsなど）では専用の型が使えます。
しかし、配列はVariant限定です。
つまずきやすいので覚えておきましょう。

配列でのFor Each vs For~Nextの比較

配列のループでは、For~Nextのほうが向いているケースもあります。

配列の要素を読み取るだけならFor Eachが手軽です。
要素の書き換えや番号が必要な処理には、For~Nextを選びましょう。

VBA For Eachの使い分け判断チャート

ここまで3つのパターンを見てきました。
「結局どのループを使えばいいの？」と迷ったときの判断軸をまとめます。

3つのループ構文の使い分け

迷ったら「対象のまとまりがあるか」で判断するのがコツです。
Range・WorksheetsなどのコレクションがあるならFor Eachです。
回数やインデックスが重要ならFor~Nextを選びましょう。

For Eachでよくあるエラーと対処法

For Eachを使っていて発生しやすいエラーをまとめました。

特に「型が一致しません」は初心者がつまずきやすいエラーです。
配列のループでは、必ずVariant型を使ってください。

ループ内でシートを削除したいときの対処

For Eachのループ中にコレクションを変更すると、エラーになります。
シートを削除したい場合は、逆順ループで対処しましょう。

Sub 空シートを削除()
    Dim i As Long '--- ループカウンター ---

    Application.DisplayAlerts = False '--- 確認ダイアログを非表示 ---

    For i = Worksheets.Count To 1 Step -1
        If WorksheetFunction.CountA(Worksheets(i).UsedRange) = 0 Then
            Worksheets(i).Delete
        End If
    Next i

    Application.DisplayAlerts = True '--- 確認ダイアログを復帰 ---
End Sub

逆順（Step -1）にするのがポイントです。
順方向だと削除後にインデックスがずれて、正しく処理できません。
このパターンはFor~Nextの逆順ループが適しています。

VBEの起動方法（はじめてマクロを使う方へ）

VBAのコードは、VBE（Visual Basic Editor）で入力して実行します。
はじめてマクロを使う方は、以下の手順で準備してくださいね。

VBEの開き方

キーボードで Alt + F11 を押すと、VBEが起動します。

リボンから開く場合は「開発」タブを使います。
開発タブが表示されていない場合は、次の手順で追加してください。

1. 「ファイル」→「オプション」→「リボンのユーザー設定」を開く
2. 右側の一覧で「開発」にチェックを入れる
3. 「OK」をクリックする

標準モジュールの挿入と実行

VBEを開いたら、コードを書く場所を用意します。

1. メニューの「挿入」→「標準モジュール」をクリック
2. 表示されたコードウィンドウにコードを貼り付ける
3. F5キーを押すか、メニューの「実行」→「Sub/ユーザーフォームの実行」で実行

VBAの基本から体系的に学びたい方は、VBA学習ロードマップも参考にしてみてください。

まとめ

この記事では、VBAのFor Each~Nextについて解説しました。

• 基本構文: For Each 変数 In コレクション ... Next
• セル範囲: Rangeを指定して全セルを一括処理
• 全シート: Worksheetsで全シートをまとめて処理
• 配列: Variant型の変数で要素を読み取り
• 使い分け: コレクションがあればFor Each、回数指定ならFor~Next

For Eachを使いこなすと、繰り返し処理がぐっとシンプルになります。
まずはセル範囲のループから、ぜひ試してみてくださいね。

なお、作成したマクロは.xlsm（マクロ有効ブック）形式で保存してください。
.xlsxで保存するとマクロが消えてしまうので注意です。