Gå til hovedindhold

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


pil blå højre boble 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

 

doc slet rækker over 1

3. Trykke F5 nøglen, så er rækkerne over den aktive celle fjernet. Se skærmbillede:
doc slet rækker over 2

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

doc slet rækker over 3

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.
doc slet rækker over 4

3. Hvis den tekst, du finder, ikke findes i arket, vises en dialog som vist nedenstående skærmbillede for at minde dig om.
doc slet rækker over 5

 

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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...

Beskrivelse


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations