Hur tar jag bort alla rader under en viss rad eller aktiv cell i Excel?
För att radera alla rader under en viss rad eller aktiv cell kan den här artikeln hjälpa dig.
Ta bort alla rader under vissa rader i Excel med VBA-kod
Ta bort alla rader under aktiv cell i Excel med VBA-kod
Ta bort alla rader under vissa rader i Excel med VBA-kod
Följande VBA-kod hjälper dig att radera alla rader under en specifik rad i Excel.
1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra sedan in följande VBA-kod i kodfönstret.
VBA-kod: Ta bort alla rader under vissa rader i Excel
Sub DeleteRowsBelow()
Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End Sub
Anmärkningar: I VBA-koden anger nummer 5 och Sheet1 att alla rader under rad 5 (inkluderar rad 5) i Sheet1 kommer att raderas efter att koden har körts. Du kan ändra dem baserat på dina behov.
3. Tryck F5 för att köra koden. Sedan raderas alla rader under rad 5 (inkluderar rad 5) omedelbart enligt nedanstående skärmdump.
Ta bort alla rader under aktiv cell i Excel med VBA-kod
För att radera alla rader strax under den aktiva cellraden i Excel kan du prova följande VBA-kod.
1. Välj en cell som du raderar alla rader under och tryck sedan på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra sedan in följande VBA-kod i kodfönstret.
VBA-kod: Ta bort alla rader under aktiv cellrad i Excel
Sub DeleteAllBelow()
Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub
3. tryck på F5 för att köra koden. Sedan raderas alla rader under aktiv cellrad (inklusive den aktiva cellraden) omedelbart.
Relaterade artiklar:
- Hur tar jag bort alla rader utom den första rubrikraden i Excel?
- Hur tar jag bort rader om cellen är större / mindre än ett visst värde i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!