VBA Nájsť posledný riadok v programe Excel (5 spôsobov)

Hugh West

16-10-2023 Makrá & Excel VBA
  • Zdieľajte To
Hugh West

Vo VBA môžete použiť rôzne metódy na nájdenie posledného riadku. V tomto článku vysvetlím rôzne metódy VBA na nájdenie posledného riadku v programe Excel.

Aby bolo toto vysvetlenie viditeľné, použijem vzorový súbor údajov. V súbore údajov sú 4 stĺpce, ktoré predstavujú informácie o predaji. Tieto stĺpce sú Predajca, región, produkt, a Cena .

Stiahnuť na precvičenie

VBA Nájsť posledný riadok.xlsm

Spôsoby vyhľadávania posledného riadku v programe Excel pomocou VBA

1. Použitie funkcie SpecialCells na vyhľadanie posledného riadku

Môžete použiť SpecialCells metóda na nájdenie posledného riadku pomocou VBA .

Najprv otvorte Vývojár karta>> potom vyberte Visual Basic

Nové okno Microsoft Visual Basic pre aplikácie sa objaví.

Teraz, od Vložte >> vybrať Modul

A Modul sa otvorí.

Potom napíšte nasledujúci kód do Modul . 

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

Tu som vytvoril čiastkovú procedúru s názvom LastRow_SpecialCells , kde a Dlhé typ premennej LastRow bola vyhlásená.

Potom definujte premennú pomocou Range.SpecialCells Tu som použil stĺpec A ( A:A ) ako rozsah. xlCellTypeLastCell ako parameter typu SpecialCells , vráti poslednú bunku rozsahu (v tomto prípade zo stĺpca A ).

Na zobrazenie výsledku som použil okno správy.

Potom, Uložiť kód a vráťte sa na pracovný hárok.

Opäť otvorte Zobraziť karta>> od Makrá >> vybrať Zobraziť makrá

Potom a dialógové okno sa objaví.

Teraz z Názov makra vyberte LastRow_SpecialCells vyberte aj zošit v rámci Makrá v .

Nakoniec, Spustiť vybrané Makro .

Zobrazí sa teda okno so správou, v ktorej sa zobrazí číslo posledného riadku.

2. Použitie Rows.Count pre neprázdne bunky

Môžete použiť Rows.Count metóda na nájdenie posledného riadku pomocou VBA .

Teraz otvorte Vývojár karta>> potom vyberte Visual Basic

Nové okno Microsoft Visual Basic pre aplikácie sa objaví.

Teraz, od Vložte >> vybrať Modul

A Modul sa otvorí.

Potom napíšte nasledujúci kód do Modul . 

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

Tu som vytvoril čiastkovú procedúru s názvom LastRow_NonEmpty, kde Dlhé typ premennej LastRow bola vyhlásená.

Teraz, CELLS(Rows.Count, 1) spočíta, koľko riadkov je v prvom stĺpci. Potom použije End(xlUp).Row teraz nájde posledný použitý riadok v rozsahu Excelu.

Nakoniec som na zobrazenie výsledku použil okno so správou.

Potom, Uložiť kód a vráťte sa na pracovný hárok.

Tu otvorte Zobraziť karta>> od Makrá >> vybrať Zobraziť makrá

Teraz, a dialógové okno sa objaví.

Potom z Názov makra vyberte LastRow_NonEmpty vyberte aj zošit v rámci Makrá v .

Nakoniec, Spustiť vybrané Makro .

Zobrazí sa teda okno so správou, v ktorej sa zobrazí číslo posledného riadku.

3. Použitie Rows.Count pre ľubovoľný vybraný stĺpec

Pomocou ľubovoľného vybraného stĺpca v VBA, nájdete posledný riadok.

Najprv otvorte Vývojár karta>> potom vyberte Visual Basic

Nové okno Microsoft Visual Basic pre aplikácie sa objaví.

Teraz, od Vložte >> vybrať Modul

A Modul sa otvorí.

Potom napíšte nasledujúci kód do Modul . 

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

Tu som vytvoril čiastkovú procedúru s názvom LastRow_AnyColumn, kde Dlhé typ premennej LastRow bola vyhlásená.

Potom v Rozsah vzhľadom na stĺpec B ako parameter a tiež Rows.Count , ktorá spočíta, koľko riadkov je v danom stĺpci B . ďalej, použité End(xlup). Riadok ktorá nájde posledný použitý riadok v rozsahu Excelu.

Na záver som použil okno správy na zobrazenie výsledku.

Ďalšie, Uložiť kód a vráťte sa na pracovný hárok.

Potom otvorte Zobraziť karta>> od Makrá >> vybrať Zobraziť makrá

Tu sa nachádza dialógové okno sa objaví.

Teraz z Názov makra vyberte LastRow_AnyColumn vyberte aj zošit v rámci Makrá v .

Nakoniec, Spustiť vybrané Makro .

Zobrazí sa teda okno so správou, v ktorej sa zobrazí číslo posledného riadku.

Podobné čítanie:

  • Vyhľadávanie v stĺpci v programe Excel pomocou VBA (7 prístupov)
  • Vyhľadávanie a nahrádzanie pomocou VBA (11 spôsobov)
  • Vyhľadanie presnej zhody pomocou VBA v programe Excel (5 spôsobov)
  • Ako nájsť reťazec pomocou VBA v programe Excel (8 príkladov)

4. Použitie UsedRange na vyhľadanie posledného riadku

Môžete použiť UsedRange vlastnosť pracovného hárka na vyhľadanie posledného riadku pomocou VBA .

Teraz otvorte Vývojár karta>> potom vyberte Visual Basic

Potom sa zobrazí nové okno Microsoft Visual Basic pre aplikácie sa objaví.

Teraz, od Vložte >> vybrať Modul

A Modul sa otvorí.

Potom napíšte nasledujúci kód do Modul . 

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

Tu som vytvoril čiastkovú procedúru s názvom LastRow_UsedRange, kde Dlhé typ premennej LastRow bola vyhlásená.

Ďalej definujte premennú pomocou príkazu ActiveSheet.UsedRange.Rows metóda tiež poskytla ActiveSheet.UsedRange.Rows.Count ako parameter ActiveSheet.UsedRange.Rows , vráti sa posledný riadok.

Na zobrazenie výsledku som použil okno správy.

Teraz, Uložiť kód a vráťte sa na pracovný hárok.

Potom otvorte Zobraziť karta>> od Makrá >> vybrať Zobraziť makrá

Ďalej dialógové okno sa objaví.

Potom z Názov makra vyberte LastRow_UsedRange vyberte aj zošit v rámci Makrá v .

Nakoniec, Spustiť vybrané Makro .

Zobrazí sa teda okno so správou, v ktorej sa zobrazí číslo posledného riadku.

5. Použitie príkazu Range.Find na vyhľadanie posledného riadku

Môžete použiť Range.Find metóda na nájdenie posledného riadku pomocou VBA .

Teraz otvorte Vývojár karta>> potom vyberte Visual Basic

Tu sa zobrazí nové okno Microsoft Visual Basic pre aplikácie sa objaví.

Teraz, od Vložte >> vybrať Modul

A Modul sa otvorí.

Potom napíšte nasledujúci kód do Modul . 

 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 "Last Row: " & LastRow End Sub

Tu som vytvoril čiastkovú procedúru s názvom Range_Find_Method, kde Dlhé typ premennej LastRow bola vyhlásená.

Potom definujte premennú pomocou Cells.Find tu deklarovaných 7 parametrov. V Čo som použil parameter ("*"), ktorý nájde prvú neprázdnu bunku. A1 ako rozsah v Po stránke parameter na začiatok. V LookAt poskytnutý parameter xlČasť na zobrazenie ľubovoľnej časti textu vo vnútri bunky.

LookIn:=xlFormulas parameter vyhľadá vzorce, ak nejaké existujú. SearchOrder:=xlByRows parameter sa bude pohybovať sprava doľava a tiež prechádza každý riadok, kým nenájde neprázdnu bunku.

MatchCase:=False parameter povie. Nájsť neberie do úvahy veľké alebo malé písmená. Keď sa nájde iné ako prázdne písmeno, zastaví sa a vráti číslo riadku.

Na zobrazenie výsledku som použil okno správy.

Teraz, Uložiť kód a vráťte sa na pracovný hárok.

Tu otvorte Zobraziť karta>> od Makrá >> vybrať Zobraziť makrá

Teraz, a dialógové okno sa objaví.

Teraz z Názov makra vyberte Metóda Range_Find_Method vyberte aj pracovný hárok v rámci Makrá v .

Nakoniec, Spustiť vybrané Makro .

Zobrazí sa teda okno so správou, v ktorej sa zobrazí číslo posledného riadku.

Záver

V tomto článku som vysvetlil 5 spôsobov, ako VBA nájsť posledný riadok v programe Excel. Môžete použiť ktorúkoľvek z metód na nájdenie posledného riadku. V prípade, že máte akékoľvek nejasnosti alebo otázky týkajúce sa týchto metód, môžete ich komentovať nižšie.

Predchádzajúci príspevok Ako vybrať každý druhý riadok v programe Excel (6 spôsobov)
Ďalší príspevok Daňová kalkulačka pre samostatne zárobkovo činné osoby v tabuľkovom procesore Excel (Vytvorenie jednoduchými krokmi)

Hugh West je veľmi skúsený tréner a analytik Excelu s viac ako 10-ročnými skúsenosťami v tomto odvetví. Má bakalársky titul v odbore účtovníctvo a financie a magisterský titul v odbore Business Administration. Hugh má vášeň pre vyučovanie a vyvinul jedinečný vyučovací prístup, ktorý sa dá ľahko sledovať a pochopiť. Jeho odborné znalosti Excelu pomohli tisíckam študentov a profesionálov na celom svete zlepšiť svoje zručnosti a vyniknúť vo svojej kariére. Hugh sa prostredníctvom svojho blogu delí o svoje znalosti so svetom a ponúka bezplatné výukové programy Excelu a online školenia, ktoré jednotlivcom a firmám pomôžu naplno využiť ich potenciál.