【VBA】最終行：取得 | VBA エクセルン

Excel VBAを使用してデータを操作する際、シート内でデータが入力されている最後の行（最終行）を特定することは重要です。最終行を特定することで、データの追加や集計、フィルタリングなど、さまざまな操作を効率的に行うことができます。最終行を取得する方法について説明します。

最終行とは？

最終行とは、Excelシート内でデータが入力されている最後の行を指します。例えば、データがA1からA10まで入力されている場合、A10が最終行となります。最終行を特定することで、その行を基準にしてデータ操作を行うことができます。

最終行を取得するためには、いくつかの方法があります。代表的な方法として、End(xlUp)メソッド、UsedRangeプロパティ、Findメソッドを使用する方法があります。

End(xlUp)メソッドは、特定の列の最下行から上方向に移動し、データが入力されている最後のセルを特定します。

【使用例: End(xlUp)を使用して最終行を取得する】
Sub GetLastRowUsingEndUp()

Dim ws As Worksheet
Dim lastRow As Long

' ワークシートを指定
Set ws = ThisWorkbook.Sheets("Sheet1")

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

' 最終行をメッセージボックスで表示
MsgBox "列Aの最終行は: " & lastRow

End Sub

Sheet1の列Aを基準にして最終行を取得し、その行番号をメッセージボックスで表示します。

UsedRangeプロパティは、シート内で使用されているセル範囲を取得するためのプロパティです。このプロパティを使用して最終行を特定することができます。

【使用例: UsedRangeプロパティを使用して最終行を取得する】
Sub GetLastRowUsingUsedRange()

Dim ws As Worksheet
Dim lastRow As Long

' ワークシートを指定
Set ws = ThisWorkbook.Sheets("Sheet1")

' UsedRangeを使用して最終行を取得
lastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row

' 最終行をメッセージボックスで表示
MsgBox "UsedRangeの最終行は: " & lastRow

End Sub

シート全体で使用されている範囲の最終行を取得し、その行番号をメッセージボックスで表示します。

Findメソッドは、特定の条件に一致するセルを検索するためのメソッドです。これを使用して最終行を取得することも可能です。

【使用例: Findメソッドを使用して最終行を取得する】
Sub GetLastRowUsingFind()

Dim ws As Worksheet
Dim lastRow As Long

' ワークシートを指定
Set ws = ThisWorkbook.Sheets("Sheet1")

' シート内でデータが存在する最終行を取得
lastRow = ws.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

' 最終行をメッセージボックスで表示
MsgBox "Findメソッドで取得した最終行は: " & lastRow

End Sub

シート内でデータが入力されている最後の行をFindメソッドで検索し、その行番号を取得します。

空白セルの扱い
途中に空白セルがある場合に正しい最終行を取得できないことがあります。End(xlUp)メソッド・Findメソッドを対象データに合わせて使用の検討してください。
範囲の確認
UsedRangeプロパティは、シートの「使用範囲」が正しく更新されていない場合に、意図しない結果を返すことがあります。データが確実に入力されている範囲を確認することが重要です。
データの整合性
最終行を正確に取得するためには、データが整然と入力されていることが前提です。データの入力ミスや意図しない空白がないか、事前に確認しておくと良いでしょう。

Excel VBAで最終行を取得することは、データの追加や集計、削除など、さまざまな操作を効率的に行うための基本スキルです。状況に応じて最適な方法を選択することで、データ管理や操作をさらに強力にサポートすることができます。