【VBA】最終行の1つ下を選択する方法｜追加行へ入力する実務テクニック

Excel VBAでデータを追加する処理を作成していると、

最終行の次の空行へ入力したい
新しいデータを末尾へ追加したい
入力位置を自動で移動したい

といった場面があります。

このような処理でよく利用されるのが「最終行の1つ下を取得する方法」です。

しかし、実務では単純に行番号へ「+1」するだけでは不十分なケースもあります。

空白行が混在していたり、見出ししか存在しなかったりすると、意図しないセルへ入力してしまうことがあるためです。

この記事では、VBAで最終行の1つ下を選択する方法から、実務で安全に追加行へ入力するための考え方まで詳しく解説します。

✅ VBAで最終行の1つ下を取得する基本的な考え方

最終行の1つ下へ移動するには、まず現在の最終行を取得する必要があります。

その後、

最終行 + 1

を計算することで、追加先の行番号を求められます。

ただし実務では固定行番号ではなく、常に現在のデータ件数から動的に取得することが重要です。

データ件数は毎回変わるため、行番号を決め打ちするとメンテナンスが難しくなります。

まずは基本的な取得方法から確認していきましょう。

・最終行の1つ下とは何か

例えば次のような表があるとします。

A列
商品名
りんご
みかん
ぶどう

この場合、

最終行 → 4行目
最終行の1つ下 → 5行目

になります。

新しいデータは5行目へ追加することになります。

✅ VBAで最終行の1つ下を選択する方法

最も基本的な方法です。

まず最終行を取得し、その行番号に1を加えます。

データ入力マクロやCSV取込処理などでよく使用されます。

・なぜこの書き方が実務で使いやすいのか

直接セルを指定するのではなく、

最終行取得
追加行取得

を分けておくことで、後から修正しやすくなります。

また変数へ格納することで、複数箇所で同じ行番号を利用できます。

・基本コード

Sub SelectNextRow()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim nextRow As Long

    Set targetWorksheet = ThisWorkbook.Worksheets("一覧")

    ' A列を基準に最終行を取得
    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row

    ' 最終行の1つ下を取得
    nextRow = lastRow + 1

    ' 選択
    targetWorksheet.Cells(nextRow, "A").Select

End Sub

・実務で注意するポイント

このコードは、

A列に必ずデータがある
空白行が途中に存在しない

ことを前提としています。

基準列を誤ると入力位置がずれるため注意が必要です。

今回のコードではEnd(xlUp)を利用して最終行を取得しています。最終行や最終列を取得する仕組みを詳しく理解したい場合は、「【VBA】Endメソッドで最終行・最終列を取得する方法｜xlUp・xlToLeftの実務活用」も参考にしてください。

✅ 最終行の1つ下へデータを入力する方法

実務では「選択」よりも「直接入力」の方がよく使われます。

なぜなら、Selectを使う必要がないためです。

実際の業務マクロではセルを選択せず、そのまま値を書き込む方が高速で安定します。

そのため、入力目的であればこちらの方法がおすすめです。

・Selectしない設計が実務向きな理由

Selectは画面操作を伴うため、

処理速度が低下する
他シートがアクティブだと失敗する
保守性が下がる

というデメリットがあります。

実務では直接値を代入するケースがほとんどです。

・追加行へデータを入力するコード

Sub AddData()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim nextRow As Long

    Set targetWorksheet = ThisWorkbook.Worksheets("一覧")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row
    nextRow = lastRow + 1

    ' 追加行へ入力
    targetWorksheet.Cells(nextRow, "A").Value = "新規データ"

End Sub

・実務でよくある活用例

例えば、

売上データ追加
顧客情報追加
ログ記録
CSV取込結果追加

などで利用されます。

実務ではセルを選択してから入力するよりも、直接セルへ値を書き込む方が高速で保守しやすくなります。Selectionを使うべき場面と避けるべき場面については、「【VBA】Selectionは使うべき？使わないべき？正しい考え方と実務判断」で詳しく解説しています。

✅ 複数列へまとめて追加する方法

実務では1セルだけ入力することは少なく、1行分まとめて追加することがほとんどです。

そのため、追加行番号を取得したら複数列へ値を書き込む設計が便利です。

・実務でよく使う入力例

商品コード、商品名、数量を同時に登録します。

・複数列へ入力するコード

Sub AddRowData()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim nextRow As Long

    Set targetWorksheet = ThisWorkbook.Worksheets("一覧")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row
    nextRow = lastRow + 1

    targetWorksheet.Cells(nextRow, "A").Value = "P001"
    targetWorksheet.Cells(nextRow, "B").Value = "りんご"
    targetWorksheet.Cells(nextRow, "C").Value = 100

End Sub

・この設計のメリット

行番号を1回取得するだけなので、

処理が分かりやすい
保守しやすい
項目追加に対応しやすい

という利点があります。

✅ データが存在しない場合に対応する方法

一覧表によっては見出ししか存在しないことがあります。

このケースを考慮しないと、意図しない行へ入力される場合があります。

実務では必ず初期状態も想定しておくことが重要です。

・見出しだけの状態を考慮する

例えば1行目が見出しの場合、

データなし → 2行目へ入力
データあり → 最終行+1へ入力

とした方が安全です。

・安全に追加行を取得するコード

Sub AddDataSafely()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim nextRow As Long

    Set targetWorksheet = ThisWorkbook.Worksheets("一覧")

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

    If lastRow < 2 Then
        nextRow = 2
    Else
        nextRow = lastRow + 1
    End If

    targetWorksheet.Cells(nextRow, "A").Value = "新規データ"

End Sub

・なぜ事前確認が必要なのか

実務では、

初回実行
新規ファイル
データ削除後

などのケースがあります。

事前確認を入れることで予期しないエラーを防げます。

✅ 最終行の1つ下を取得するときによくある失敗

最終行取得はVBAで頻繁に使用されますが、誤った前提で作ると不具合が発生します。

特に入力データの状態には注意が必要です。

・空白列を基準にしている

例えばA列が空になる場合、

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

では正しい最終行を取得できません。

必ずデータが入る列を基準にしましょう。

・Selectに依存している

以下のようなコードは避けたい設計です。

Range("A1").End(xlDown).Offset(1).Select

途中に空白があると正しく動作しません。

・ActiveSheet依存になっている

対象シートを明示せずに記述すると、別シートで誤動作する可能性があります。

実務ではWorksheet変数を利用する方が安全です。

最終行取得で発生するトラブルの多くは、ActiveSheetやSelectへの依存が原因です。ActivateとSelectの違いや使い分けについては、「【VBA】シートをアクティブにする方法｜ActivateとSelectの違い・応用・注意点」も参考になります。

✅ 実務ではSelectより行番号取得を優先する

VBA初心者の頃は「最終行の1つ下を選択する方法」を探すことが多いですが、実務では選択そのものが不要なケースがほとんどです。

重要なのは、

最終行を取得する
次の行番号を取得する
直接値を代入する

という流れです。

この考え方を身につけることで、より高速で保守しやすいマクロを作れるようになります。

VBA初心者の頃はSelectを多用しがちですが、実務ではSelectに依存しない設計の方が安定して動作します。もし「RangeクラスのSelectメソッドが失敗しました:1004」が発生して困っている場合は、「【VBA】RangeクラスのSelectメソッドが失敗しました:1004｜Selectできない」も参考にしてください。

最終行の取得はデータ追加だけでなく、可変件数のデータを繰り返し処理する際にも重要になります。最終行を活用したループ処理については、「【VBA】For文で空白行まで繰り返す方法｜安全な実務設計」で詳しく解説しています。

✅ まとめ：VBAで最終行の1つ下へ安全にデータを追加しよう

VBAで最終行の1つ下を取得すると、データ追加処理を柔軟に作成できます。

今回のポイントをまとめます。

最終行はEnd(xlUp)で取得する
最終行+1で追加行を求める
実務ではSelectより直接入力が推奨
複数列の入力にも応用できる
初回実行やデータなし状態も考慮する
ActiveSheet依存を避ける

最終行の1つ下を正しく取得できるようになると、データ登録やログ管理など多くの自動化処理に応用できます。実務では「選択すること」よりも「安全に追加すること」を意識して設計していきましょう。