VBA Finn siste rad i Excel (5 måter)

Hugh West

16-10-2023 Makroer & Excel VBA
  • Dele Denne
Hugh West

I VBA kan du bruke forskjellige metoder for å finne den siste raden. I denne artikkelen skal jeg forklare forskjellige metoder for VBA-finn siste rad i Excel.

For å gjøre denne forklaringen synlig, skal jeg bruke et eksempeldatasett. Det er 4 kolonner i datasettet som representerer salgsinformasjon. Disse kolonnene er Selger, Region, Produkt, og Pris .

Last ned for å øve

VBA Finn siste rad.xlsm

Måter å VBA finne siste rad i Excel

1. Bruke SpecialCells for å finne siste rad

Du kan bruke SpecialCells -metoden for å finne den siste raden ved å bruke VBA .

Åpne først Utvikleren fanen >> velg deretter Visual Basic

Et nytt vindu med Microsoft Visual Basic for Applications vil dukke opp.

Nå, fra Sett inn >> velg Modul

En Modul vil bli åpnet.

Skriv deretter følgende kode i Modul . 

9321

Her har jeg laget en underprosedyre kalt LastRow_SpecialCells , der en Lang -type av variabel LastRow er deklarert.

Deretter definerte variabelen ved å bruke Range.SpecialCells -metoden. Her har jeg brukt kolonne A ( A:A ) som rekkevidde. Forutsatt xlCellTypeLastCell som typeparameter for SpecialCells , vil dette returnere den siste cellen for området (i dette tilfellet, fra kolonnen A ).

Jeg har brukt en meldingsboks for å vise resultatet.

Deretter Lagre koden og gå tilbake til regneark.

Igjen, åpne Vis -fanen >> fra Makroer >> velg Vis makroer

Deretter dukker det opp en dialogboks .

Nå, fra Makronavnet velg LastRow_SpecialCells velg også arbeidsboken i Makroer i .

Til slutt, Kjør den valgte Makroen .

Dermed vil det komme opp en meldingsboks som viser det siste radnummeret.

2. Bruk av Rows.Count for ikke-tomme celler

Du kan bruke Rows.Count -metoden for å finne den siste raden ved å bruke VBA .

Åpne nå Utvikler -fanen >> velg deretter Visual Basic

Et nytt vindu med Microsoft Visual Basic for Applications vil dukke opp.

Nå, fra Sett inn >> velg Modul

En Modul vil bli åpnet.

Skriv deretter følgende kode i Modul . 

7434

Her har jeg opprettet en underprosedyre kalt LastRow_NonEmpty, der en Lang type variabel LastRow er erklært.

Nå vil CELLS(Rows.Count, 1) telle hvor mange rader det er i den første kolonnen. Deretter brukte jeg End(xlUp).Row nå vil dette finne den sist brukte raden i et Excel-område.

Til slutt har jeg brukt en meldingsboks for å viseresultat.

Deretter Lagre koden og gå tilbake til regnearket.

Her åpner du Vis -fanen >> fra Makroer >> velg Vis makroer

Nå dukker det opp en dialogboks .

Deretter, fra Makronavnet velg LastRow_NonEmpty velg også arbeidsboken i Makroer i .

Til slutt, Kjør den valgte Makroen .

Dermed vil det komme opp en meldingsboks som viser det siste radnummeret.

3. Bruke Rows.Count for en hvilken som helst valgt kolonne

Ved å bruke hvilken som helst valgt kolonne i VBA, kan du finne den siste raden.

Først , åpne Utvikler fanen >> velg deretter Visual Basic

Et nytt vindu med Microsoft Visual Basic for Applications vil dukke opp.

Nå, fra Sett inn >> velg Modul

En Modul vil bli åpnet.

Skriv deretter følgende kode i Modul . 

1884

Her har jeg laget en underprosedyre kalt LastRow_AnyColumn, der en Lang type variabel LastRow er erklært.

Deretter, i Område gitt kolonnen B som en parameter og også Rows.Count , denne vil telle hvor mange rader det er i en gitt kolonne B . Deretter brukte du End(xlup). Rad som vil finne den sist brukte raden i et Excel-område.

Sist har jeg brukt en meldingsboks for å viseresultat.

Deretter Lagre koden og gå tilbake til regnearket.

Åpne deretter Vis -fanen >> fra Makroer >> velg Vis makroer

Her dukker det opp en dialogboks .

Nå, fra Makronavnet velg LastRow_AnyColumn velg også arbeidsboken i Makroer i .

Til slutt, Kjør den valgte makroen .

Dermed vil det komme opp en meldingsboks som viser det siste radnummeret.

Lignende avlesninger:

  • VBA Finn i kolonne i Excel (7 tilnærminger)
  • Finn og erstatt ved å bruke VBA (11) Måter)
  • Finn eksakt samsvar ved å bruke VBA i Excel (5 måter)
  • Hvordan finne streng med VBA i Excel (8 eksempler)

4. Bruke UsedRange for å finne siste rad

Du kan bruke egenskapen UsedRange til regnearket for å finne den siste rad med VBA .

Åpne nå Utvikler -fanen >> velg deretter Visual Basic

Deretter vil et nytt vindu med Microsoft Visual Basic for Applications dukke opp.

Nå, fra Sett inn >> velg Modul

En Modul vil bli åpnet.

Skriv deretter følgende kode i Modul . 

7112

Her har jeg laget en underprosedyre kalt LastRow_UsedRange, der en Long variabeltype LastRow er erklært.

Deretter definerer duvariabel ved bruk av ActiveSheet.UsedRange.Rows -metoden også gitt ActiveSheet.UsedRange.Rows.Count som parameteren for ActiveSheet.UsedRange.Rows , vil dette returnere siste rad.

Jeg har brukt en meldingsboks for å vise resultatet.

Nå Lagre koden og gå tilbake til regnearket.

Åpne deretter Vis -fanen >> fra Makroer >> velg Vis makroer

Deretter vises en dialogboks .

Deretter fra makroen navn velg LastRow_UsedRange velg også arbeidsboken i Makroer i .

Til slutt Kjør den valgte Makroen .

Dermed vil det dukke opp en meldingsboks som viser det siste radnummeret.

5. Bruke Range.Find for å finne siste Rad

Du kan bruke Range.Find -metoden for å finne den siste raden ved å bruke VBA .

Åpne nå Utvikler fanen >> velg deretter Visual Basic

Her vil et nytt vindu med Microsoft Visual Basic for Applications dukke opp.

Nå, fra Sett inn >> velg Modul

En Modul vil bli åpnet.

Skriv deretter følgende kode i Modul . 

8637

Her har jeg opprettet en underprosedyre kalt Range_Find_Method, der en Lang type variabel LastRow har blitt erklært .

Deretter definerte variabelen ved å bruke Cells.Find -metoden. Her erklærte 7parametere. I Hvilken parameter brukte jeg ("*") som vil finne den første ikke-tomme cellen. Gitt A1 som området i parameteren Etter for å starte. I LookAt parameteren gitt xlPart for å se på hvilken som helst del av teksten inne i cellen.

LookIn:=xlFormulas vil parameteren se etter formler hvis det er noen. SearchOrder:=xlByRows parameter vil bevege seg fra høyre til venstre og går også opp gjennom hver rad til den finner en ikke-tom celle.

MatchCase:=False parameteren vil fortelle Finn om ikke å vurdere store eller små bokstaver. Når en ikke-blank blir funnet, stopper den og returnerer radnummeret.

Jeg har brukt en meldingsboks for å vise resultatet.

Nå, Lagre koden og gå tilbake til regnearket.

Her åpner du Vis -fanen >> fra Makroer >> velg Vis makroer

Nå dukker det opp en dialogboks .

Velg nå fra Makronavnet Range_Find_Method velg også regnearket i Makroer i .

Til slutt, Kjør den valgte Makroen .

Derfor vil det komme opp en meldingsboks som viser det siste radnummeret.

Konklusjon

I denne artikkelen har jeg forklart 5 måter å VBA finne den siste raden i Excel. Du kan følge en av metodene for å finne den siste raden. I tilfelle du har noen forvirring eller spørsmål angående disse metodene, kan dukommentar nedenfor.

Forrige innlegg Hvordan velge annenhver rad i Excel (6 måter)
Neste innlegg Selvstendig næringsskattekalkulator i Excel-regneark (Opprett med enkle trinn)

Hugh West er en svært erfaren Excel-trener og analytiker med over 10 års erfaring i bransjen. Han har en bachelorgrad i regnskap og finans og en mastergrad i bedriftsøkonomi. Hugh har en lidenskap for undervisning og har utviklet en unik undervisningstilnærming som er enkel å følge og forstå. Hans ekspertkunnskap om Excel har hjulpet tusenvis av studenter og fagfolk over hele verden med å forbedre sine ferdigheter og utmerke seg i karrieren. Gjennom bloggen sin deler Hugh sin kunnskap med verden, og tilbyr gratis Excel-opplæringer og nettbasert opplæring for å hjelpe enkeltpersoner og bedrifter å nå sitt fulle potensial.