Hvordan slettes alle rækker under en bestemt række eller aktiv celle i Excel?

For at slette alle rækker under en bestemt række eller aktiv celle kan denne artikel hjælpe dig.

Slet alle rækker under en bestemt række i Excel med VBA-kode
Slet alle rækker under aktiv celle i Excel med VBA-kode

---

Slet alle rækker under en bestemt række i Excel med VBA-kode

Følgende VBA-kode hjælper dig med at slette alle rækker under en bestemt række i Excel.

1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter følgende VBA-kode i vinduet Kode.

VBA-kode: Slet alle rækker under bestemte rækker i Excel

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

Bemærk: I VBA-koden angiver nummer 5 og Ark1, at alle rækker under række 5 (inkluderer række 5) i Ark1 slettes efter kørsel af koden. Du kan ændre dem ud fra dine behov.

3. Trykke F5 nøgle for at køre koden. Derefter slettes alle rækker under række 5 (inkluderer række 5) straks som vist nedenstående skærmbillede.

---

Slet alle rækker under aktiv celle i Excel med VBA-kode

For at slette alle rækker lige under den aktive cellelinie i Excel kan du prøve følgende VBA-kode.

1. Vælg en celle, som du vil slette alle rækker under den, og tryk derefter på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter følgende VBA-kode i vinduet Kode.

VBA-kode: Slet alle rækker under den aktive celle række i Excel

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

3. Tryk på F5 nøgle for at køre koden. Derefter slettes alle rækker under den aktive celle række (inkluderer den aktive celle række) straks.

---

Relaterede artikler:

• Hvordan slettes alle rækker undtagen den første overskriftsrække i Excel?
• Hvordan slettes rækker, hvis cellen er større / mindre end en bestemt værdi i Excel?