こんにちは。Excel VBA講師の「師範」です。
日々の業務で「A列のデータが入っている一番下の行の、さらに一つ下の空白セルを選択したい」という場面、非常に多いのではないでしょうか？
「マクロでデータを追加するたびに、いちいちマウスでスクロールして空白セルを探している」
「`Range(“A1000”)` のように固定値で指定しているが、データ量が増えるとエラーになる」
もし心当たりがあるなら、今回の記事はあなたのためのものです。VBAで最も頻繁に使う「最終行の取得」テクニックを、初心者からプロレベルまで段階的に解説します。
なぜ「最終行」の取得が重要なのか
VBAで自動化を行う際、最も重要なのは「柔軟性」です。データが10行のときも、10,000行のときも、マクロが同じように動く必要があります。
「一番下の空白セル」を動的に特定できるようになれば、データの追記、集計範囲の指定、グラフの動的更新など、あらゆる自動化の基礎が固まります。
基本のキ：Endプロパティを使った「ジャンプ」操作
Excelの操作で、Ctrl + ↓（下矢印キー）を押すと、データの途切れるところまで一気に移動しますよね。VBAでこれを実行するのが `End` プロパティです。
まずは最も標準的なコードを見てみましょう。
Sub SelectLastEmptyCell()
Dim lastRow As Long
‘ A列の最終行を取得し、その下のセルを選択
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lastRow + 1, 1).Select
End Sub
このコードのポイントを解説します。
1. `Rows.Count`：シートの最大行数（1,048,576行）を取得します。
2. `End(xlUp)`：一番下の行から「上方向（Up）」に向かって、データが入っているセルを探します。
3. `lastRow + 1`：見つかった最終行の「一つ下の行」を指定します。
この方法は、途中に空白セルがあっても「データが入っている一番下の行」を正確に特定できるため、非常に堅牢です。
なぜ「Range(“A1”).End(xlDown)」を使ってはいけないのか？
初心者がよくやってしまう失敗が、`Range(“A1”).End(xlDown)` という書き方です。
これを使うと、A2セルが空白だった瞬間に、マクロが「データがない」と判断して途中で止まってしまったり、逆にシートの最後（100万行目）まで飛んでしまったりします。
実務では「途中に空白が含まれる」ケースは珍しくありません。**「下から上に探す（xlUp）」**のが、プロの鉄則です。
応用編：別シートの最終行を取得する
実務では「データシート」と「集計シート」が分かれていることがほとんどです。その場合、以下のように記述します。
Sub SelectLastEmptyCellOnOtherSheet()
Dim ws As Worksheet
Dim lastRow As Long
Set ws = ThisWorkbook.Sheets(“データ管理”)
‘ 指定したシートのA列の最終行を取得
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ アクティブにする（※必要に応じて）
ws.Activate
ws.Cells(lastRow + 1, “A”).Select
End Sub
`ws` という変数にシートをセットしておくことで、どのシートを操作しているのかが明確になり、バグを激減させることができます。
さらに一歩先へ：最終行の「さらにその先」を操作する
単に選択するだけでなく、そのセルに値を代入したり、罫線を引いたりするのが実務です。
Sub AddDataToLastRow()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
‘ 最終行の次のセルに日付を入力
Cells(lastRow + 1, 1).Value = Date
‘ 最終行の次のセルにデータを入力
Cells(lastRow + 1, 2).Value = “新規案件”
MsgBox “データの追加が完了しました。”
End Sub
この手法を使えば、何百行ものデータを一瞬で追記していく処理も、わずか数行のコードで実現可能です。
プロが教える「エラーを防ぐための注意点」
最後に、ベテランとして一つだけ注意点をお伝えします。
もし、A列が「完全に空」だった場合、`End(xlUp)` はどこを指すでしょうか？
答えは「1行目」です。つまり、データが一つもない状態でこのコードを走らせると、2行目を選択してしまうことになります。
「データが空のときは、1行目を選択する」という条件分岐を入れると、よりプロフェッショナルなツールになります。
Sub SafeSelectLastCell()
Dim lastRow As Long
‘ A1セルが空なら1行目、そうでなければ最終行の下
If IsEmpty(Cells(1, 1)) Then
lastRow = 1
Else
lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Cells(lastRow, 1).Select
End Sub
まとめ
「A列の一番下の空白セルをアクティブにする」という単純な操作ですが、ここにはVBAの神髄である「動的な範囲指定」のすべてが詰まっています。
1. `Rows.Count` と `End(xlUp)` をセットで覚える。
2. 下から上に探すことで、途中の空白を恐れない。
3. シートを明確に指定して、誤操作を防ぐ。
この3点をマスターするだけで、あなたのExcel業務は劇的に効率化されます。ぜひ、今日からあなたのマクロに組み込んでみてください。
もし、さらに複雑な条件（例えば、特定の条件を満たす最終行を探したいなど）があれば、またいつでも聞いてくださいね。皆さんのVBAライフを応援しています！
