En la VBA vi povas uzi malsamajn metodojn por trovi la lastan vicon. En ĉi tiu artikolo, mi klarigos malsamajn metodojn de VBA trovi lastan vicon en Excel.

Por videbligi ĉi tiun klarigon, mi uzos ekzemplan datumaron. Estas 4 kolumnoj en la datumaro reprezentante vendajn informojn. Ĉi tiuj kolumnoj estas Vendisto, Regiono, Produkto, kaj Prezo .

Elŝutu Por Praktiki

Manieroj por VBA Trovi Lastan Vicon en Excel

1. Uzante SpecialCells por Trovi Lastan Vicon

Vi povas uzi la metodon SpecialCells por trovi la lastan vicon per VBA .

Unue, malfermu la Ellaboranto. langeto >> tiam elektu Visual Basic

Aperiĝos nova fenestro de Microsoft Visual Basic por Aplikoj .

Nun, de Enmeti >> elektu Modulo

A Modulo estos malfermita.

Tiam skribu la sekvan kodon en la Modulo .

7774

Ĉi tie, mi kreis subproceduron nomitan LastRow_SpecialCells , kie Long tipo de variablo LastRow estis deklarita.

Tiam difinis la variablon per la metodo Range.SpecialCells . Ĉi tie, mi uzis kolumnon A ( A:A ) kiel intervalon. Provizite xlCellTypeLastCell kiel la tipo-parametro de SpecialCells , ĉi tio resendos la lastan ĉelon por la intervalo (por ĉi tiu kazo, el kolumno A ).

Mi uzis mesaĝkeston por montri la rezulton.

Post tio, Konservu la kodon kaj reiru al la laborfolio.

Denove, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi Makroojn

Tiam, aperos dialogkesto .

Nun, el la Makronomo elektu la LastRow_SpecialCells ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Rulu la elektitan Makroon .

Tiele, ĝi aperos mesaĝkeston montrantan la lastan vican numeron.

2. Uzante Rows.Count por Ne-Malplenaj Ĉeloj

Vi povas uzi la Rows.Count metodon por trovi la lastan vicon uzante VBA .

Nun malfermu la langeton Programisto >> tiam elektu Visual Basic

Aperiĝos nova fenestro de Microsoft Visual Basic por Aplikoj .

Nun, de Enmeti >> elektu Modulo

A Modulo estos malfermita.

Tiam skribu la sekvan kodon en la Modulo .

2835

Ĉi tie, mi kreis subproceduron nomitan LastRow_NonEmpty, kie Long speco de variablo LastRow estis deklarita.

Nun, ĈELOJ(Vicoj.Nombri, 1) kalkulos kiom da vicoj estas en la unua kolumno. Tiam uzite End(xlUp).Row nun ĉi tio trovos la lastan uzatan vicon en Excel-intervalo.

Fine, mi uzis mesaĝkeston por montri larezulto.

Tiam, Konservu la kodon kaj reiru al la laborfolio.

Ĉi tie, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi Makroojn

Nun, aperos dialogkesto .

Tiam, el la Makronomo elektu la LastRow_NonEmpty ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Rulu la elektitan Makroon .

Tiele, ĝi aperos mesaĝkeston montrantan la lastan vican numeron.

3. Uzante Vicojn.Nombri por Ajna Elektita Kolumno

Uzante iun ajn elektitan kolumnon en VBA, vi povas trovi la lastan vicon.

Unue. , malfermu la langeton Programisto >> tiam elektu Visual Basic

Aperiĝos nova fenestro de Microsoft Visual Basic por Aplikoj .

Nun, de Enmeti >> elektu Modulo

A Modulo estos malfermita.

Tiam skribu la sekvan kodon en la Modulo .

8025

Ĉi tie, mi kreis subproceduron nomitan LastRow_AnyColumn, kie Long speco de variablo LastRow estis deklarita.

Tiam, en la Intervalo donita la kolumno B kiel parametro kaj ankaŭ Vicoj.Count , ĉi tiu kalkulos kiom da vicoj estas en donita kolumno B . Poste, uzata End(xlup). Vico kiu trovos la lastan uzatan vicon en Excel-intervalo.

Laste, mi uzis mesaĝkeston por montri larezulto.

Sekva, Konservu la kodon kaj reiru al la laborfolio.

Tiam malfermu la Vidi langeton >> el Makrooj >> elektu Vidi Makroojn

Ĉi tie, aperos dialogkesto .

Nun, el la Makronomo elektu la LastRow_AnyColumn ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Rulu la elektitan Makroon .

Tiele, ĝi aperos mesaĝkeston montrantan la lastan vican numeron.

Similaj Legadoj:

• VBA Trovu en Kolumno en Excel (7 Aliroj)
• Trovu kaj Anstataŭigi Uzanta VBA (11 Vojoj)
• Trovu Precizan Kongruon Uzante VBA en Excel (5 Manieroj)
• Kiel Trovi Ŝnuron kun VBA en Excel (8 Ekzemploj)

4. Uzante UsedRange por Trovi Lastan Vicon

Vi povas uzi la posedaĵon UsedRange de la laborfolio por trovi la lastan vico uzante VBA .

Nun malfermu la langeton Programisto >> tiam elektu Visual Basic

Tiam, nova fenestro de Microsoft Visual Basic for Applications aperos.

Nun, el Enmeti >> elektu Modulo

A Modulo estos malfermita.

Tiam, skribu la sekvan kodon en la Modulo .

6577

Ĉi tie, mi kreis subproceduron nomitan LastRow_UsedRange, kie Long speco de variablo LastRow estis deklarita.

Sekva, difinis lavariablo uzante la metodon ActiveSheet.UsedRange.Rows ankaŭ provizis ActiveSheet.UsedRange.Rows.Count kiel la parametron de ActiveSheet.UsedRange.Rows , ĉi tio redonos la lasta vico.

Mi uzis mesaĝkeston por montri la rezulton.

Nun, Konservu la kodon kaj reiru al la laborfolio.

>Tiam malfermu la langeton Vidi >> el Makrooj >> elektu Vidi Makroojn

Sekve, aperos dialogkesto .

Tiam, el la Makroo. nomo elektu la LastRow_UsedRange ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Ruli la elektitan Makro >.

Tiel, ĝi aperos mesaĝkeston montrantan la lastan vican numeron.

5. Uzante Range.Trovu por Trovi Lastan Vico

Vi povas uzi la Range.Find metodon por trovi la lastan vicon uzante VBA .

Nun, malfermu la Programisto langeto >> tiam elektu Visual Basic

Ĉi tie, nova fenestro de Microsoft Visual Basic for Applications aperos.

Nun, de Enigu >> elektu Modulo

A Modulo estos malfermita.

Tiam skribu la jenan kodon en la Modulo .

1655

Ĉi tie, mi kreis subproceduron nomitan Range_Find_Method, kie Longa speco de variablo LastRow estis deklarita .

Tiam difinis la variablon per la metodo Cells.Find . Ĉi tie, deklaris 7parametroj. En Kion parametro mi uzis ("*") kiu trovos la unuan nemalplenan ĉelon. Donita A1 kiel la intervalo en la Post parametro por komenci. En la LookAt parametro provizita xlPart por rigardi ajnan parton de la teksto ene de la ĉelo.

LookIn:=xlFormulas parametro serĉos formuloj se ekzistas. SearchOrder:=xlByRows parametro movos dekstren-maldekstren kaj ankaŭ cirklas supren tra ĉiu vico ĝis ĝi trovas nemalplenan ĉelon.

MatchCase:=Malvera parametro diros al Trovu ne konsideri majusklojn aŭ minusklojn. Kiam ne malplena estas trovita, ĝi haltas kaj resendas la vicnumeron.

Mi uzis mesaĝkeston por montri la rezulton.

Nun, Konservu la kodon. kaj reiru al la laborfolio.

Ĉi tie, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi Makroojn

Nun, dialogokadro aperos.

Nun, el la Makronomo elektu la Range_Find_Method ankaŭ elektu la laborfolion ene de Makrooj en .

Fine, Rulu la elektitan Makroon .

Tiele, ĝi aperos mesaĝkeston montrantan la lastan vican numeron.

Konkludo

En ĉi tiu artikolo, mi klarigis 5 manierojn por VBA trovi la lastan vicon en Excel. Vi povas sekvi iun ajn el la metodoj por trovi la lastan vicon. Se vi havas ajnan konfuzon aŭ demandon pri ĉi tiuj metodoj, vi povaskomentu sube.