Hvordan slettes rækker over aktiv celle eller specifik tekst i Excel?
Hvis der er et stort regneark med flere rækker, og du bare vil slette alle rækker over den aktive celle eller en bestemt tekst, hvordan kan du håndtere det? Du kan slette rækkerne ved at vælge dem og derefter højreklikke for at vælge Slet fra genvejsmenuen manuelt. Men her har jeg VBA-kode til hurtigt at slette rækker ovenfor, hvis du er interesseret i det, skal du læse nedenstående detaljer.
Slet rækker ovenfor med VBA-koder
Slet rækker ovenfor med VBA-koder
Her introducerer jeg to VBA-koder til dig, den ene sletter rækker over den aktive (valgte celle), en anden fjerner rækkerne over den angivne tekst.
1. Vælg en celle, som du vil slette rækker over den, og tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt nedenstående kode til Moduler scripts.
VBA: Slet rækker over aktiv celle
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Trykke F5 nøglen, så er rækkerne over den aktive celle fjernet. Se skærmbillede:
Hvis du vil slette rækker over den angivne tekst, kan du bruge VBA nedenfor.
VBA: Slet rækker over den angivne tekst
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Bemærk:
1. I koden, Samlet gruppe er den tekst, du vil finde, kan du ændre den efter behov.
2. Hvis den tekst, du finder, allerede har været i første række, vises en dialogboks, der minder dig om det.
3. Hvis den tekst, du finder, ikke findes i arket, vises en dialog som vist nedenstående skærmbillede for at minde dig om.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!