Excelで最初または最後の空行に移動するにはどうすればよいですか？

巨大なワークシートを操作しているときに、最初または最後の空行までスクロールして移動するのは時間がかかります。この記事では、Excelで最初または最後の空行に迅速に移動するためのいくつかの方法を紹介します。

VBAを使用して最初または最後の空行に移動する

「最後の行を選択」機能を使用して最後の空行または列に移動する

VBAを使用して最初または最後の空行に移動する

ここでは、アクティブなシート内の最初または最後の空行に迅速に移動するのに役立つ2つのVBAコードを紹介します。以下の手順に従ってください。

1. 「 Alt + F11 」キーを押して、「 Microsoft Visual Basic for Applications 」ウィンドウを有効にします。スクリーンショットをご覧ください：

2. 次に、「

VBA: 最初の空白行に移動する

Sub Findfirstblankcell()
'UpdatebyExtendoffice20170712
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        If Rng.Value = "" Then
            MsgBox "No Value, in " & Rng.Address
        End If
    Next
End Sub

3. 「 F5 」キーを押してコードを実行すると、作業範囲を選択するように促すダイアログが表示されます。スクリーンショットをご覧ください：

4. 「 OK」をクリックします。最初の空白行のセル参照を通知するダイアログが表示されます。スクリーンショットをご覧ください：

5. 「 OK 」を繰り返しクリックして「 Microsoft Excel 」ダイアログを閉じます。次に、「 名前 」ボックスに「A2」と入力し、「 Enter 」キーを押すと、最初の空白行に移動します。スクリーンショットをご覧ください：

ヒント: 最後の空行に移動したい場合は、以下のVBAコードを使用してください。「

VBA: 最後の空行に移動する

Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

注意: このVBAは、列Aの最後の空のセルを選択します。別の列の最後の空のセルを選択するには、コード内のCells(Rows.Count, 1)の1を別の数字に変更してください。

「最後の行を選択」機能を使用して最後の空行または列に移動する

最後の空行または列に素早く移動したい場合、Kutools for Excelの 「最後の行」または 「最後の列」機能を使用できます。これにより、現在のワークシートの最後の行または列の最後の非空白セルに迅速に移動でき、次のセルが最後の空行または空の列になります。

Kutools for Excelをインストール後、以下の手順を実行してください：

Kutools > 選択 > 最後のセルを選択 > 最後の行/最後の列をクリックします。スクリーンショットをご覧ください：

これで、最後の行（または列）の最後の非空白セルが選択されます。下矢印キー（または右矢印キー）を押すだけで、最後の空行（または列）がアクティブになります。

関連記事

• Excelの列で空白になるまで行をループするにはどうすればよいですか？
• Excelでゼロまたは空白セルを無視してカウントするにはどうすればよいですか？