Excelマクロで表の最終行を簡単に取得する方法

Excelマクロで表の最終行を簡単に取得する方法｜初心者でも安心！

2025.05.032026.01.27

こんにちは！今回は、Excelマクロ（VBA）を使って、表の最終行を簡単に取得する方法をご紹介します。特に、パソコンやスマホの操作に不安がある方でも安心して取り組める内容にしていますので、ぜひ最後までご覧ください。

Excelマクロで最終行を取得する基本の方法

Excelのイメージ

Excelマクロを使うと、表の最終行を自動で取得して、データの追加や集計作業を効率化できます。まずは、最も基本的な方法から見ていきましょう。

この方法は、指定したセルからデータが入力されている最終行を取得するものです。例えば、A列の最終行を取得するには、以下のようなコードを使用します。

vba

Dim lastRow As Long

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

このコードでは、シートの最終行から上方向に向かって最初にデータが入力されているセルの行番号を取得します。空白行が途中にあっても、正しく最終行を取得できます。

Findメソッドを使うと、空白行が途中にあっても正確に最終行を取得できます。以下のコードを使用します。

vba

Dim lastRow As Long

lastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

このコードでは、シート全体で最後にデータが入力されているセルを検索し、その行番号を取得します。

UsedRangeプロパティを使うと、シート全体の使用されている範囲を取得できます。以下のコードを使用します。

vba

Dim lastRow As Long

lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

このコードでは、シートの使用されている範囲の最終行を取得します。ただし、罫線や書式設定が影響する場合があるため、注意が必要です。

それぞれの方法には特徴があります。以下の表で比較してみましょう。

はい、空白行が途中にある場合でも、Findメソッドを使用することで正確に最終行を取得できます。

最終行の次の行にデータを追加するには、以下のコードを使用します。

vba

Cells(lastRow + 1, 1).Value = "新しいデータ"

このコードでは、最終行の次の行のA列に「新しいデータ」を入力します。

VBAのコードは、Excelの「開発」タブの「Visual Basic」をクリックして、VBAエディターを開きます。そこで、新しいモジュールを挿入し、コードを貼り付けて実行できます。

今回は、Excelマクロを使って表の最終行を簡単に取得する方法をご紹介しました。最終行を正確に取得することで、データの追加や集計作業を効率化できます。自分の作業に合った方法を選んで、ぜひ活用してみてください。

他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。