書き方がまったく違うので、「結局どっちが正解なの？」と手が止まりがちですよね。使い分けを間違えると、ループ処理でセル番地の文字列結合が必要になったり、別シート操作で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でマクロを書き始めると、必ずぶつかるのがこの疑問ですよね。行数が毎回変わるデータを処理するには、最終行を自動で取得する方法を知っておく必要があります。

でも安心してください。VBAで最終行を取得する方法はいくつかあります。仕組みを理解すれば迷わず使いこなせますよ。この記事では代表的な3つの方法をコード付きで解説します。それぞれの違い・使い分け・よくあるトラブルの対処法もまとめてお伝えしますね。

VBAで最終行を取得する方法3選

最終行を取得する方法は複数ありますが、ここでは実務でよく使われる3つの方法を紹介します。

End(xlUp)で最終行を取得する（最もよく使う方法）

まずはVBAで最終行を取得する定番コードです。

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

このコードは「A列の最終行」を取得しています。仕組みをかんたんに説明すると、こんな流れです。

1. Rows.Count でシートの最大行数（1,048,576行）を取得する
2. Cells(1048576, 1) でA列の一番下のセルを指定する
3. .End(xlUp) で、そこから上方向にデータが入っているセルを探す
4. .Row で、見つかったセルの行番号を数値で返す

これはExcelで Ctrl + 上矢印キー を押したときと同じ動きです。シートの一番下から上に向かってデータを探すので、途中に空白セルがあっても正確に最終行を見つけられます。

取得した最終行は変数 lastRow に格納しておくと、あとからFor文やDo Loopで繰り返し使えて便利です。変数の基本的な使い方については「VBAの変数の使い方とルールについて解説」で詳しく紹介しています。

列を変更したいとき は、Cells(Rows.Count, 1) の数値部分を変えてください。

'--- B列の最終行を取得 ---
lastRow = Cells(Rows.Count, 2).End(xlUp).Row

'--- C列の最終行を取得 ---
lastRow = Cells(Rows.Count, 3).End(xlUp).Row

A列=1、B列=2、C列=3……と、列番号を数値で指定します。セルの指定方法について詳しく知りたい方は「RangeとCellsはどう違う？使い分けを実例で解説」を参考にしてみてください。

なお、Cells ではなく Range を使った書き方もあります。Range オブジェクトの基本操作は「VBAでのRangeの使い方を基礎から解説」で紹介しています。あわせてチェックしてみてください。

NOTE

Rows.Count はワークシートの最大行数を自動で返してくれます。Excel 2007以降のファイル形式（.xlsx / .xlsm）では1,048,576行、Excel 2003以前の形式（.xls）では65,536行です。Rows.Count を使えばファイル形式に関係なく正しい最大行数が取得できるので、数値を直接書く必要はありません。

UsedRangeで最終行を取得する

2つ目の方法は UsedRange プロパティを使う方法です。

Dim lastRow As Long
lastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1

UsedRange はワークシートで「使用されている範囲」を返すプロパティです。データが入力されている範囲全体を自動で判定してくれます。

ここで気になるのが + ActiveSheet.UsedRange.Row - 1 の部分ですよね。これは 1行目が空白のケースに対応するため の計算です。

たとえば、A1〜A3が空白で、A4からデータが始まっているケースを考えてみましょう。

• UsedRange.Rows.Count → 使用範囲の行数を返す（例: 7行）
• UsedRange.Row → 使用範囲の開始行番号を返す（例: 4行目）

もし Rows.Count だけで取得すると、結果は「7」になります。でも実際のデータ最終行はA10（4 + 7 – 1 = 10行目）ですよね。だから開始行を足して1を引く補正が必要なんです。

'--- 1行目からデータが始まっている場合はシンプルでもOK ---
lastRow = ActiveSheet.UsedRange.Rows.Count

1行目からデータが始まっていることが確実であれば、上のシンプルな書き方でも問題ありません。ただし、他の人が使うマクロでは、念のため完全版の計算式を使っておくと安心です。

注意点として、UsedRange は 書式が設定されているだけのセル も「使用済み」とみなします。背景色や罫線だけ入っているセルも対象です。そのため、データの最終行よりも大きな値が返ることがあります。

SpecialCellsで最終行を取得する

3つ目は SpecialCells メソッドを使う方法です。

Dim lastRow As Long
lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

SpecialCells(xlCellTypeLastCell) は、ワークシートで最後に使用されたセルを返します。これはExcelで Ctrl + End を押したときと同じ動作です。

この方法も UsedRange と同様に、書式のみのセルも考慮されるため、実際のデータの最終行よりも大きな値が返る場合があります。

'--- 最終行と最終列を同時に取得 ---
Dim lastRow As Long
Dim lastCol As Long
lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
lastCol = Cells.SpecialCells(xlCellTypeLastCell).Column

最終行と最終列を同時に取得できるのが、この方法の便利なポイントです。

ただし1つ注意点があります。データが1つもないシート で SpecialCells を実行すると、実行時エラー（Runtime Error 1004）が発生します。空シートでも安全に動くようにするには、エラーハンドリングを入れておきましょう。

Dim lastRow As Long
On Error Resume Next
lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
On Error GoTo 0

If lastRow = 0 Then
    lastRow = 1 'データなしの場合は1行目を返す
End If

On Error Resume Next でエラーを一時的にスキップし、直後の On Error GoTo 0 で通常のエラー処理に戻しています。

3つの方法の違いと使い分け

ここまで紹介した3つの方法を比較表で整理してみましょう。

結論：迷ったら End(xlUp) を使いましょう。 特定の列に対して正確な最終行を取得でき、書式だけのセルに惑わされないため、実務で最も信頼性が高い方法です。

UsedRange や SpecialCells は「シート全体でどこまでデータがあるか」をざっくり把握したい場面で役立ちます。たとえば、データの範囲を一括でコピーしたいときなどに使うと便利ですよ。

シート指定を明示して誤動作を防ぐ

ここまでのコード例では、対象シートを明示せずに Cells(Rows.Count, 1) と書いていました。この書き方は暗黙的に ActiveSheet（現在アクティブなシート）を参照します。

シートが1つだけのマクロなら問題ありません。ただし 複数シートを扱うマクロ では、意図しないシートの最終行を取得してしまうことがあります。

安全なのは、With ステートメントで対象シートを明示する書き方です。

Sub シート指定で最終行を取得()
    Dim lastRow As Long

    With ThisWorkbook.Worksheets("データ一覧")
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With

    MsgBox "最終行: " & lastRow
End Sub

ポイントは .Cells や .Rows.Count の先頭にドット（.）をつけること。このドットが With で指定したシートを参照していることを示します。ドットを忘れると ActiveSheet が参照されてしまうので注意してください。

'--- よくある間違い ---
With ThisWorkbook.Worksheets("データ一覧")
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row  'ドットなし → ActiveSheetを参照してしまう
End With

'--- 正しい書き方 ---
With ThisWorkbook.Worksheets("データ一覧")
    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row  'ドットあり → 指定シートを参照
End With

シンプルなマクロでは省略しても構いません。ただ、シートを明示しておくと「どのシートを処理しているか」が一目瞭然になります。あとから見返したときにも読みやすいので、習慣にしておくのがおすすめです。

VBA 最終行の取得でよくあるトラブルと対処法

最終行の取得はシンプルに見えますが、いくつかハマりやすいポイントがあります。事前に知っておけば慌てずに済むので、チェックしておきましょう。

空白セルがあると正しく取得できない

End(xlUp) ではなく End(xlDown) を使うと、空白セルがある場合に正しく最終行を取得できません。

'--- End(xlDown) を使った場合（非推奨） ---
lastRow = Cells(1, 1).End(xlDown).Row

このコードはA1セルから下方向にデータを探します。一見すると自然な発想ですが、ここに落とし穴があります。

途中に空白セルがあると、そこで止まってしまうんです。たとえば A1〜A5 にデータがあり、A6 が空白、A7〜A10 にもデータがあるケースで考えてみましょう。End(xlDown) は A5 で止まり、本当の最終行 A10 を取得できません。

さらに厄介なのが、データが1行しかない場合 です。A1にしかデータがないと、A2以降がすべて空白なので、シート最終行の1048576行目まで突き抜けてしまいます。

'--- 安全な方法（End(xlUp)を使う） ---
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

下から上に探す End(xlUp) なら、途中の空白セルに影響されません。基本的には End(xlUp) を使うクセ をつけておくのがおすすめです。

取得した値が想定と違うときの確認ポイント

「コードは正しいはずなのに、取得した最終行が想定と違う……」というときは、次の3点を確認してみてください。

1. 対象の列は正しいか — Cells(Rows.Count, 1) の列番号（2つ目の引数）が意図した列になっているか確認しましょう。A列のつもりでB列を指定していた、というミスは意外とよくあります。

1. データが入っていない列を指定していないか — 指定した列にデータが1つも入っていない場合、End(xlUp) は1行目を返します。変数に格納した値が「1」になっていたら、この可能性を疑ってみてください。

1. 書式だけのセルが残っていないか — UsedRange や SpecialCells を使っている場合は要注意です。過去にデータを削除したセルに書式が残っていると、実際のデータより大きな値が返ります。セルを選択して「クリア」（Delete キーではなく「すべてクリア」）を実行すると解消できます。

実務で使える！最終行取得の活用例

最終行を取得する方法がわかったら、実際のマクロで使ってみましょう。ここでは実務でよく使うパターンを3つ紹介します。

For文と組み合わせて全行を処理する

最終行取得の最大の活用場面は、For文と組み合わせたループ処理 です。

Sub 全行処理()
    Dim lastRow As Long
    Dim i As Long

    '--- A列の最終行を取得 ---
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '--- 2行目から最終行までループ処理 ---
    For i = 2 To lastRow
        '--- B列に「処理済み」と入力する例 ---
        Cells(i, 2).Value = "処理済み"
    Next i

    MsgBox lastRow - 1 & "件のデータを処理しました"
End Sub

For i = 2 To lastRow とすることで、データが何行あっても自動で全行を処理してくれます。2行目から開始しているのは、1行目がヘッダー行（見出し行）であることを想定しているためです。

For文の使い方について詳しくは「For~Next文の使い方と実務で役立つ応用テクニック」で解説しています。ループ処理をもっと深く知りたい方はぜひ読んでみてくださいね。

Do Loopで条件付きの繰り返し処理をする

「すべての行」ではなく 特定の条件を満たすまで ループしたいときは、Do Loop が便利です。たとえば、A列を上から順に見ていき、「完了」と書かれたセルが見つかったらループを抜ける処理はこう書けます。

Sub 条件付きループ()
    Dim lastRow As Long
    Dim i As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    i = 2 'ヘッダーの次の行から開始

    Do While i <= lastRow
        If Cells(i, 2).Value = "完了" Then
            MsgBox i & "行目で「完了」が見つかりました"
            Exit Do
        End If
        i = i + 1
    Loop
End Sub

For文は「全行を処理する」のが得意ですが、Do Loop は「条件に応じてループを制御する」のが得意です。最終行取得と組み合わせることで、「最終行を超えないように安全にループする」ことができます。

If文での条件分岐については「VBAのIf文の使い方を基礎から解説」を参考にしてみてください。Do Loopの詳しい書き方は「Do Loopの使い方を基礎から解説」で紹介しています。

最終列を取得する方法

行だけでなく、最終列 を取得したい場面もありますよね。考え方は最終行の取得とまったく同じです。

Dim lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

違いは以下の3点です。

• Rows.Count → Columns.Count（最大列数を取得）
• End(xlUp) → End(xlToLeft)（左方向に探す）
• .Row → .Column（列番号を返す）

最終行と最終列を両方取得すれば、データ範囲全体を動的に指定できます。

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)).Select

    MsgBox "データ範囲: A1:" & Cells(lastRow, lastCol).Address
End Sub

End プロパティで指定できる方向を一覧にしておきます。

まとめ

VBAで最終行を取得する3つの方法を紹介しました。

• End(xlUp) — 最もおすすめ。特定の列の正確な最終行を取得できる
• UsedRange — シート全体の使用範囲を取得。書式のみのセルも含む点に注意
• SpecialCells — Ctrl+Endと同じ動作。最終行と最終列を同時に取得したいときに便利

迷ったら Cells(Rows.Count, 1).End(xlUp).Row を使えば間違いありません。

最終行の取得は、VBAでマクロを作るうえで避けて通れない基本テクニックです。最初のうちはコードを見ながら書いても問題ありません。何度も使ううちに自然と覚えられるので、焦らず実務のなかで身につけていきましょう。

For文やDo Loopと組み合わせれば、データの自動処理がぐっとラクになりますよ。まずは今回紹介したコードをコピーして、ご自身のマクロで試してみてください。

VBAの学習を体系的に進めたい方は「VBAの学習順番を初心者向けに解説」も参考にしてみてくださいね。