ここからは、実務のあらゆるシーンに対応する具体的なコードを紹介します。用途に合わせて正しく使い分けることで、VBA最終行取得失敗の原因と理由を根底から排除できます。
1. 【汎用・鉄壁】空白・数式・非表示セルに負けない「Findメソッド」
シート全体の「見た目上の値」を基準にして、真の最終入力行を取得する最も信頼性の高い記述です。VBA最終行取得Findメソッドを用いれば、A列だけでなくシート全体の最大行を1発で特定できます。
Function GetRealLastRow(ByVal ws As Worksheet) As Long Dim foundCell As Range ' LookIn:=xlValues で「数式ではなく表示されている値」を逆順検索 Set foundCell = ws.Cells.Find( _ What:="*", _ After:=ws.Cells(1, 1), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious _ ) If Not foundCell Is Nothing Then GetRealLastRow = foundCell.Row Else GetRealLastRow = 1 ' 完全な空シートの場合 End If End Function
2. 【複数列対応】どの列が最も長いか不明な場合の「最大行算出」
基幹システムからのCSVエクスポートなどで、A列は空欄だがC列やD列にデータが入っているケースでは、VBA最終行取得複数列の最大行を割り出すロジックが役立ちます。
Function GetMaxRowAcrossColumns(ByVal ws As Worksheet, ByVal startCol As Long, ByVal endCol As Long) As Long Dim col As Long Dim maxRow As Long Dim currentRow As Long maxRow = 1 For col = startCol To endCol currentRow = ws.Cells(ws.Rows.Count, col).End(xlUp).Row If currentRow > maxRow Then maxRow = currentRow End If Next col GetMaxRowAcrossColumns = maxRow End Function
3. 【2026年標準】テーブル（ListObject）を活用した近代的設計
現在のExcel環境において、VBA最終行取得テーブル一覧まとめの知見は欠かせません。データを「挿入 ＞ テーブル」で構造化しておけば、行の追加や削除に連動してオブジェクトが境界を完全管理するため、複雑な最終行計算そのものが不要になります。
Sub AddRowToTable() Dim ws As Worksheet Dim tbl As ListObject Dim newRow As ListRow Set ws = ThisWorkbook.Sheets("売上管理") Set tbl = ws.ListObjects("売上データテーブル") ' テーブルの末尾に新しい行を安全に追加 Set newRow = tbl.ListRows.Add ' 追加した行に値を安全に代入 newRow.Range(1, 1).Value = Date newRow.Range(1, 2).Value ="新規案件" newRow.Range(1, 3).Value = 150000 End Sub
【プロの結論】コピペ依存の病理と保守性に優れたコードの選定基準
なぜ現場では、欠陥を孕んだEnd(xlUp)の単発コードが無批判に使い回され続けるのでしょうか。その背景には、心理学でいう「認知的負荷の回避バイアス」と、日本のオフィス現場に根深く残る「技術的負債の無自覚な継承」が存在します。
「検索して最初に出てきた1行を貼ったら一応動いた」という安堵感が、エラーハンドリングや将来のデータ変動への検証機会を奪います。コードレビューのない現場では、属人化されたマクロが世代を超えて引き継がれ、ある日突然、オートフィルタをかけた担当者のPCで大規模なデータ欠損事故を引き起こすのです。
安定した自動化インフラを維持するための選定基準は明確です。
- 即時採用すべき現場：構造化が可能な定常業務であれば、既存シートをテーブル化してListObjectを採用する。これだけで最終行にまつわるトラブルはほぼ100%根絶できます。
- 慎重な検証が必要な現場：外部から受領する未加工の帳票や、セル結合・空文字が混在する不定形シートを扱う場合は、迷わず「Findメソッド」で値のみを逆順走査する関数を共通モジュール化してください。
- 避けるべきアンチパターン：「Cells(65536, ...)」のハードコーディングや、前処理でフィルタ解除・結合解除を行わないままEnd(xlUp)で「lastRow + 1」に書き込む構成は即刻廃止すべきです。
