Hur tar jag bort rader ovanför aktiv cell eller specifik text i Excel?
Om det finns ett stort kalkylblad med flera rader och du bara vill ta bort alla rader ovanför den aktiva cellen eller en specifik text, hur kan du hantera det? Du kan ta bort raderna genom att välja dem och högerklicka sedan för att välja Ta bort från snabbmenyn manuellt. Men här har jag VBA-kod för att snabbt radera rader ovan, om du är intresserad av det, läs nedanstående detalj.
Ta bort rader ovan med VBA-koder
Ta bort rader ovan med VBA-koder
Här introducerar jag två VBA-koder för dig, en är att radera rader ovanför den aktiva (valda cellen), en annan ta bort raderna ovanför den angivna texten.
1. Välj en cell som du vill ta bort rader ovanför den och tryck på Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulernaoch klistra in under koden i Modulerna skript.
VBA: Ta bort rader ovanför aktiv cell
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Tryck F5 nyckeln, sedan har raderna ovanför den aktiva cellen tagits bort. Se skärmdump:
Om du vill radera rader ovanför den angivna texten kan du använda VBA nedan.
VBA: Radera rader ovanför den angivna texten
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
Notera:
1. I koden, Totalgrupp är texten du vill hitta, kan du ändra den efter behov.
2. Om texten du hittar redan finns i första raden dyker en dialog upp för att påminna dig.
3. Om texten du hittar inte finns i arket kommer en dialogruta som visas nedan att visas för att påminna dig.
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!