Excelでデータのある最後の行または列を見つけるにはどうすればよいですか？

大きなワークシートでは、値が含まれている最後の行または列を迅速かつ簡単に特定したい場合、スクロールバーをドラッグして探すことができます。しかし、ワークシートに数千行のデータがあると、それは苦痛です。この記事では、このタスクを解決するためのいくつかの便利なVBAコードについて説明します。

VBAコードを使用してデータのある最後の行または列を見つける
Kutools for Excelを使用して、データのある最後の行または列を見つけて選択する

VBAコードを使用してデータのある最後の行または列を見つける

多くの人は、Ctrl + Endキーを押して最後のセルを見つけ、最後の行や列を特定することを考えるかもしれませんが、データ範囲の下に書式設定されたセルがある場合、このショートカットキーは正確な値のセルを特定できません。そこで、以下のVBAコードを使用してください：

1. データのある最後の行または列を特定したいワークシートをアクティブにします。

2. ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3. 次に、挿入 > モジュールをクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: 最後の行のデータを見つける

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. そして、 F5キーを押してこのコードを実行すると、使用されている範囲の行番号を知らせるプロンプトボックスが表示されます。スクリーンショットをご覧ください：

5. OKボタンをクリックして続ければ、次に値のある最後の行番号が以下のように表示されます：

注: データのある最後の列を見つけるには、次のコードを使用してください：

VBAコード: 最後の列のデータを見つける

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

Kutools for Excelを使用して、データのある最後の行または列を見つけて選択する

Excelで直接データのある最後の行または列を見つけて選択したい場合、Kutools for Excelの「最後の行を選択」および「最後の列を選択」機能が役立ちます。以下のように操作してください。

1. データのある最後の行を見つけて選択したい場合は、Kutools > 選択 > 最後のセルを選択 > 最後の行をクリックしてください。スクリーンショットをご覧ください：

注: データのある最後の列を見つけて選択するには、Kutools > 選択 > 最後のセルを選択 > 最後の列をクリックしてください。

現在のワークシート内のデータのある最後の行または列がすぐに見つかり、選択されます。

デモ: Kutools for Excelを使用してデータのある最後の行または列を見つけて選択する