Hoppa till huvudinnehåll

Hur går jag till första eller sista tomma raden i Excel?

Det är tidskrävande att bläddra och gå till den första eller sista tomma raden medan du arbetar på ett stort kalkylblad. I den här artikeln introducerar jag några knep för att snabbt gå till den första eller sista tomma raden i Excel.

Gå till första eller sista tomma rad med VBA

Gå till den sista tomma raden eller kolumnen med verktyget Välj sista radenbra idé3


Gå till första eller sista tomma rad med VBA

Här är två VBA som kan hjälpa dig att snabbt gå till den första eller sista tomma raden i aktivt ark, gör som nedan.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster. Se skärmdump:
doc först sist tom 1

2. Klicka sedan Insert > Modulerna och klistra in koden nedan i skriptet. Se skärmdump:

VBA: Gå till första tomma raden.

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 sist tom 2
doc först sist tom 3

3. Tryck F5 för att köra koden, och en dialogruta dyker upp för att påminna dig om att välja ett intervall att arbeta. Se skärmdump:
doc först sist tom 4

4. klick OK. En dialog dyker upp för att påminna dig cellreferensen för den första tomma raden, se skärmdump:
doc först sist tom 5

5. klick OK upprepade gånger för att stänga Microsoft Excel dialog. Och sedan gå till Namn rutan, skriv A2 i den, tryck på ange nyckel och du kommer till den första tomma raden. Se skärmdump:
doc först sist tom 6

Dricks: Om du vill gå till den sista tomma raden, använd nedan VBA-kod och efter att du tryckt på en F5 -tangenten går markören direkt till den sista tomma raden.

VBA: Gå till den sista tomma raden

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

Anmärkningar: Denna VBA markerar den sista tomma cellen i kolumn A. För att välja den sista tomma cellen i en annan kolumn, ändra 1 i koden Cells (Rows.Count, 1) till ett annat nummer.


Gå till den sista tomma raden eller kolumnen med verktyget Välj sista raden

Om du vill gå till den sista tomma raden eller kolumnen snabbt kan du ansöka Kutools för ExcelÄr Sista raden or Sista kolumnen ukakel. Med dem kan du snabbt gå till den sista icke-tomma cellen i sista raden eller kolumnen i det aktuella kalkylbladet, och sedan är nästa cell den sista tomma raden eller tomma kolumnen.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

När du har installerat Kutools för Excel, gör så här:(Gratis nedladdning Kutools för Excel nu!)

Klicka Kutools > Välja > Välj den sista cellen > Sista raden/Sista kolumnen. Se skärmdump:

doc först sist tom 7

Sedan markeras de sista icke-tomma cellerna i den sista raden (eller kolumnen). Tryck bara på nedåtpil (eller högerpil) för att aktivera den sista tomma raden (eller kolumnen).


Relativa artiklar

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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

Beskrivning


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