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

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

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

Kutools AI で Excel の魔法を解き放つ

• スマートな実行: セル操作の実行、データの分析、グラフの作成など、すべて簡単なコマンドで実行できます。
• カスタム式: カスタマイズされた数式を生成してワークフローを効率化します。
• VBAコーディング: VBA コードを簡単に記述して実装します。
• 式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語の壁を打ち破ります。

AI を活用したツールで Excel の機能を強化します。 今すぐダウンロード これまでにない効率性を体験してください!

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の特定の値より大きい/小さい場合に行を削除するにはどうすればよいですか？