Gå til hovedindhold

Hvordan går jeg til første eller sidste tomme række i Excel?

Det er tidskrævende at rulle og gå til den første eller sidste tomme række, mens du arbejder på et stort regneark. I denne artikel introducerer jeg nogle tricks til hurtigt at gå til den første eller sidste tomme række i Excel.

Gå til første eller sidste tomme række med VBA

Gå til sidste tomme række eller kolonne med værktøjet Vælg sidste rækkegod idé3


Gå til første eller sidste tomme række med VBA

Her er to VBA kan hjælpe dig med hurtigt at gå til den første eller sidste tomme række i det aktive ark, skal du gøre som nedenfor.

1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue. Se skærmbillede:
doc først sidst tom 1

2. Klik derefter på indsatte > Moduler og indsæt nedenstående kode i scriptet. Se skærmbillede:

VBA: Gå til første tomme række.

Sub Findfirstblankcell()
'UpdatebyExtendoffice20170712
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        If Rng.Value = "" Then
            MsgBox "No Value, in " & Rng.Address
        End If
    Next
End Sub
doc først sidst tom 2
doc først sidst tom 3

3. Trykke F5 for at køre koden, og der vises en dialogboks, der minder dig om at vælge et område, du vil arbejde med. Se skærmbillede:
doc først sidst tom 4

4. klik OK. En dialog vises for at minde dig om cellehenvisningen til den første tomme række, se skærmbillede:
doc først sidst tom 5

5. klik OK gentagne gange for at lukke Microsoft Excel dialog. Og så gå til Navn boks, skriv A2 i den, tryk på Indtast nøgle, og du vil gå til den første tomme række. Se skærmbillede:
doc først sidst tom 6

Tip: Hvis du vil gå til den sidste tomme række, skal du bruge nedenstående VBA-kode og efter at du har trykket på en F5 -tasten, markøren går direkte til den sidste tomme række.

VBA: Gå til sidste tomme række

Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

Bemærk: Denne VBA vælger den sidste tomme celle i kolonne A. For at vælge den sidste tomme celle i en anden kolonne skal du ændre 1 i koden Celler (Rækker.Tælling, 1) til et andet nummer.


Gå til sidste tomme række eller kolonne med værktøjet Vælg sidste række

Hvis du hurtigt vil gå til sidste tomme række eller kolonne, kan du ansøge Kutools til Excel's Sidste række or Sidste kolonne utility. Med dem kan du hurtigt gå til den sidste ikke-tomme celle i sidste række eller kolonne i det aktuelle regneark, og derefter er den næste celle den sidste tomme række eller tomme kolonne.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter installation Kutools til Excel, gør venligst som nedenfor:(Gratis download Kutools til Excel nu!)

Klik Kutools > Type > Vælg Sidste celle > Sidste række/Sidste kolonne. Se skærmbillede:

doc først sidst tom 7

Derefter vælges de sidste ikke-tomme celler i den sidste række (eller kolonne). Tryk bare på pil ned (eller højre pil) for at aktivere den sidste tomme række (eller kolonne).


Relative artikler

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ótimo post, Resolveu meu problema:
Achando a primeira célula vazia de determinada coluna de uma planilha.

Sub SelecionaPróximaCélulaVazia()
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
End Sub

Este VBA selecionará a última célula vazia na coluna B. Para selecionar a última célula vazia em outra coluna, altere 2 no código Cells (Rows.Count, 2) para outro número.
This comment was minimized by the moderator on the site
Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub



How to try this on sheet2 from sheet1
This comment was minimized by the moderator on the site
Sub selectlastemptyrow()
Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations