VBA Etsi viimeinen rivi Excelissä (5 tapaa)

Hugh West

16-10-2023 Makrot &; Excel VBA
  • Jaa Tämä
Hugh West

VBA: ssa voit käyttää erilaisia menetelmiä viimeisen rivin löytämiseksi. Tässä artikkelissa selitän VBA: n eri menetelmiä viimeisen rivin löytämiseksi Excelissä.

Selityksen havainnollistamiseksi käytän esimerkkitietokokonaisuutta. Tietokokonaisuudessa on neljä saraketta, jotka edustavat myyntitietoja. Nämä sarakkeet ovat seuraavat Myyntihenkilö, alue, tuote, ja Hinta .

Lataa harjoitella

VBA Etsi viimeinen rivi.xlsm

Tapoja VBA löytää viimeinen rivi Excelissä

1. SpecialCellsin käyttäminen viimeisen rivin etsimiseen

Voit käyttää SpecialCells menetelmä löytää viimeisen rivin käyttämällä VBA .

Avaa ensin Kehittäjä Valitse sitten välilehti>> ja valitse Visual Basic

Uusi ikkuna Microsoft Visual Basic for Applications tulee esiin.

Nyt, alkaen Lisää >> Valitse Moduuli

A Moduuli avataan.

Kirjoita sitten seuraava koodi tiedostoon Moduuli . 

 Sub LastRow_SpecialCells() Dim LastRow As Long LastRow = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LastRow End Sub

Tässä olen luonut aliproseduurin nimeltä LastRow_SpecialCells , jossa a Pitkä muuttujan tyyppi LastRow on ilmoitettu.

Määrittele sitten muuttuja käyttämällä Range.SpecialCells Tässä olen käyttänyt saraketta A ( A:A ) alueeksi. Tarjotaan xlCellTypeLastCell tyyppiparametrina SpecialCells , tämä palauttaa alueen viimeisen solun (tässä tapauksessa sarakkeesta A ).

Olen käyttänyt viestiruutua näyttämään tuloksen.

Sen jälkeen, Tallenna koodi ja palaa takaisin laskentataulukkoon.

Avaa jälleen Näytä tab>> alkaen Makrot >> Valitse Näytä makrot

Sitten a valintaikkuna tulee esiin.

Nyt, alkaen Makron nimi valitse LastRow_SpecialCells valitse myös työkirja Makrot .

Vihdoinkin, Suorita valittu Makro .

Näin se avaa viestiruudun, jossa näkyy viimeisen rivin numero.

2. Rows.Countin käyttäminen ei-tyhjien solujen kohdalla

Voit käyttää Rows.Count menetelmä löytää viimeisen rivin käyttämällä VBA .

Avaa nyt Kehittäjä Valitse sitten välilehti>> ja valitse Visual Basic

Uusi ikkuna Microsoft Visual Basic for Applications tulee esiin.

Nyt, alkaen Lisää >> Valitse Moduuli

A Moduuli avataan.

Kirjoita sitten seuraava koodi tiedostoon Moduuli . 

 Sub LastRow_NonEmpty() Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox LastRow End Sub

Tässä olen luonut aliproseduurin nimeltä LastRow_NonEmpty, jossa a Pitkä muuttujan tyyppi LastRow on ilmoitettu.

Nyt, CELLS(Rows.Count, 1) laskee, kuinka monta riviä ensimmäisessä sarakkeessa on. Sitten käytetään komentoa End(xlUp).Row nyt tämä löytää Excel-alueen viimeisen käytetyn rivin.

Lopulta olen käyttänyt viestiruutua näyttämään tuloksen.

Sitten, Tallenna koodi ja palaa takaisin laskentataulukkoon.

Avaa tässä kohtaa Näytä tab>> alkaen Makrot >> Valitse Näytä makrot

Nyt, a valintaikkuna tulee esiin.

Sitten, alkaen Makron nimi valitse LastRow_NonEmpty valitse myös työkirja Makrot .

Vihdoinkin, Suorita valittu Makro .

Näin se avaa viestiruudun, jossa näkyy viimeisen rivin numero.

3. Rows.Countin käyttäminen mille tahansa valitulle sarakkeelle

Käyttämällä mitä tahansa valittua saraketta VBA, löydät viimeisen rivin.

Avaa ensin Kehittäjä Valitse sitten välilehti>> ja valitse Visual Basic

Uusi ikkuna Microsoft Visual Basic for Applications tulee esiin.

Nyt, alkaen Lisää >> Valitse Moduuli

A Moduuli avataan.

Kirjoita sitten seuraava koodi tiedostoon Moduuli . 

 Sub LastRow_AnyColumn() Dim LastRow As Long LastRow = Range("B" & Rows.Count).End(xlUp).Row MsgBox LastRow End Sub

Tässä olen luonut aliproseduurin nimeltä LastRow_AnyColumn, jossa a Pitkä muuttujan tyyppi LastRow on ilmoitettu.

Sitten, vuonna Valikoima sarakkeen B parametrina ja myös Rows.Count , tämä laskee, kuinka monta riviä tietyssä sarakkeessa on. B . Seuraava, käytetty End(xlup). Row joka etsii Excel-alueen viimeisen käytetyn rivin.

Lopuksi olen käyttänyt viestiruutua näyttämään tuloksen.

Seuraava, Tallenna koodi ja palaa takaisin laskentataulukkoon.

Avaa sitten Näytä tab>> alkaen Makrot >> Valitse Näytä makrot

Täällä, a valintaikkuna tulee esiin.

Nyt, alkaen Makron nimi valitse LastRow_AnyColumn valitse myös työkirja Makrot .

Vihdoinkin, Suorita valittu Makro .

Näin se avaa viestiruudun, jossa näkyy viimeisen rivin numero.

Samanlaisia lukemia:

  • VBA Etsi sarakkeesta Excelissä (7 lähestymistapaa)
  • Etsi ja korvaa VBA:n avulla (11 tapaa)
  • Etsi tarkka vastaavuus VBA:n avulla Excelissä (5 tapaa)
  • Miten löytää merkkijono VBA: lla Excelissä (8 esimerkkiä)

4. Viimeisen rivin etsiminen UsedRange-ohjelman avulla

Voit käyttää UsedRange ominaisuuden avulla viimeisen rivin löytämiseksi käyttämällä VBA .

Avaa nyt Kehittäjä Valitse sitten välilehti>> ja valitse Visual Basic

Tämän jälkeen avautuu uusi ikkuna Microsoft Visual Basic for Applications tulee esiin.

Nyt, alkaen Lisää >> Valitse Moduuli

A Moduuli avataan.

Kirjoita sitten seuraava koodi tiedostoon Moduuli . 

 Sub LastRow_UsedRange() Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row MsgBox "Viimeinen rivi: " & LastRow End Sub

Tässä olen luonut aliproseduurin nimeltä LastRow_UsedRange, jossa a Pitkä muuttujan tyyppi LastRow on ilmoitettu.

Seuraavaksi määritellään muuttuja käyttämällä ActiveSheet.UsedRange.Rows -rivit menetelmä myös säädetty ActiveSheet.UsedRange.Rows.Count -rivien lukumäärä parametrina ActiveSheet.UsedRange.Rows -rivit , tämä palauttaa viimeisen rivin.

Olen käyttänyt viestiruutua näyttämään tuloksen.

Nyt, Tallenna koodi ja palaa takaisin laskentataulukkoon.

Avaa sitten Näytä tab>> alkaen Makrot >> Valitse Näytä makrot

Seuraavaksi valintaikkuna tulee esiin.

Sitten, alkaen Makron nimi valitse LastRow_UsedRange valitse myös työkirja Makrot .

Vihdoinkin, Suorita valittu Makro .

Näin se avaa viestiruudun, jossa näkyy viimeisen rivin numero.

5. Viimeisen rivin etsiminen Range.Findin avulla

Voit käyttää Range.Find menetelmä löytää viimeisen rivin käyttämällä VBA .

Avaa nyt Kehittäjä Valitse sitten välilehti>> ja valitse Visual Basic

Täällä, uusi ikkuna Microsoft Visual Basic for Applications tulee esiin.

Nyt, alkaen Lisää >> Valitse Moduuli

A Moduuli avataan.

Kirjoita sitten seuraava koodi tiedostoon Moduuli . 

 Sub Range_Find_Method() Dim LastRow As Long On Error Resume Next LastRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 MsgBox "Viimeinen rivi: " & LastRow End Sub

Tässä olen luonut aliproseduurin nimeltä Range_Find_Method, jossa a Pitkä muuttujan tyyppi LastRow on ilmoitettu.

Määrittele sitten muuttuja käyttämällä Cells.Find Tässä on ilmoitettu 7 parametria. Mikä parametrina käytin ("*"), joka löytää ensimmäisen ei-tyhjän solun. Given A1 kuin alue Jälkeen parametrin avulla. LookAt annettu parametri xlPart voit tarkastella mitä tahansa solun sisällä olevaa tekstin osaa.

LookIn:=xlFormulas parametri etsii kaavoja, jos sellaisia on. SearchOrder:=xlByRows (hakujärjestys) parametri liikkuu oikealta vasemmalle ja käy silmukalla läpi jokaisen rivin, kunnes se löytää ei-tyhjän solun.

MatchCase:=False parametri kertoo Etsi Kun löydetään muu kuin tyhjä kirjain, se pysähtyy ja palauttaa rivinumeron.

Olen käyttänyt viestiruutua näyttämään tuloksen.

Nyt, Tallenna koodi ja palaa takaisin laskentataulukkoon.

Avaa tässä kohtaa Näytä tab>> alkaen Makrot >> Valitse Näytä makrot

Nyt, a valintaikkuna tulee esiin.

Nyt, alkaen Makron nimi valitse Range_Find_Method valitse myös työarkki Makrot .

Vihdoinkin, Suorita valittu Makro .

Näin se avaa viestiruudun, jossa näkyy viimeisen rivin numero.

Päätelmä

Tässä artikkelissa olen selittänyt 5 tapaa, joilla voit VBA viimeisen rivin löytäminen Excelissä. Voit seurata mitä tahansa menetelmää viimeisen rivin löytämiseksi. Jos sinulla on epäselvyyksiä tai kysymyksiä näistä menetelmistä, voit kommentoida alla.

Edellinen viesti Kuinka valita jokainen toinen rivi Excelissä (6 tapaa)
Seuraava postaus Itsenäisen työn verolaskuri Excel-taulukkolaskentaohjelmassa (Luo helpoin askelin)

Hugh West on erittäin kokenut Excel-kouluttaja ja analyytikko, jolla on yli 10 vuoden kokemus alalta. Hän on koulutukseltaan laskentatoimen ja rahoituksen kandidaatti sekä kauppatieteiden maisteri. Hughilla on intohimo opettamiseen, ja hän on kehittänyt ainutlaatuisen opetusmenetelmän, jota on helppo seurata ja ymmärtää. Hänen asiantuntemuksensa Excelistä on auttanut tuhansia opiskelijoita ja ammattilaisia ​​maailmanlaajuisesti parantamaan taitojaan ja menestymään urallaan. Blogissaan Hugh jakaa tietämyksensä maailman kanssa tarjoamalla ilmaisia ​​Excel-opetusohjelmia ja verkkokoulutusta auttaakseen yksilöitä ja yrityksiä saavuttamaan täyden potentiaalinsa.