Excelで特定の行またはアクティブセルの下にあるすべての行を削除するにはどうすればよいですか？

特定の行またはアクティブセルの下にあるすべての行を削除するには、この記事が役立ちます。

VBAコードを使用してExcelの特定の行の下にあるすべての行を削除します
VBAコードを使用してExcelのアクティブセルの下のすべての行を削除します

---

VBAコードを使用してExcelの特定の行の下にあるすべての行を削除します

次のVBAコードは、Excelの特定の行の下にあるすべての行を削除するのに役立ちます。

1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、次のVBAコードをコピーして[コード]ウィンドウに貼り付けます。

VBAコード：Excelの特定の行の下にあるすべての行を削除します

Sub DeleteRowsBelow()
    Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End Sub

注意：VBAコードで、番号5とSheet1は、コードの実行後にSheet5の行5（行1を含む）の下にあるすべての行が削除されることを示します。 必要に応じて変更できます。

3。 押す F5 コードを実行するためのキー。 次に、下のスクリーンショットに示すように、行5の下のすべての行（行5を含む）がすぐに削除されます。

---

VBAコードを使用してExcelのアクティブセルの下のすべての行を削除します

Excelでアクティブなセル行のすぐ下にあるすべての行を削除するには、次のVBAコードを試すことができます。

1.その下のすべての行を削除するセルを選択し、を押します 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、次のVBAコードをコピーして[コード]ウィンドウに貼り付けます。

VBAコード：Excelでアクティブなセル行の下のすべての行を削除します

Sub DeleteAllBelow()
    Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub

3。 プレス F5 コードを実行するためのキー。 次に、アクティブセル行の下のすべての行（アクティブセル行を含む）がすぐに削除されます。

---

関連記事：

• Excelの最初のヘッダー行を除くすべての行を削除するにはどうすればよいですか？
• セルがExcelの特定の値より大きい/小さい場合に行を削除するにはどうすればよいですか？