VBA Најдете го последниот ред во Excel (5 начини)

Hugh West

16-10-2023 Макроа & засилувач; Excel VBA
  • Споделете Го Ова
Hugh West

Во VBA можете да користите различни методи за да го пронајдете последниот ред. Во оваа статија, ќе објаснам различни методи на VBA пронаоѓање на последниот ред во Excel.

За да го направам ова објаснување видливо, ќе користам примерок на база на податоци. Има 4 колони во базата на податоци што ги претставуваат информациите за продажба. Овие колони се Продавач, регион, производ, и Цена .

Преземете за да вежбате

VBA Најдете го последниот ред.xlsm

Начини за VBA да го пронајдете последниот ред во Excel

1. Користење SpecialCells за да го пронајдете последниот ред

Можете да го користите методот SpecialCells за да го пронајдете последниот ред користејќи VBA .

Прво, отворете го Програмер таб >> потоа изберете Visual Basic

Ќе се појави нов прозорец на Microsoft Visual Basic за апликации .

Сега, од Вметни >> изберете Модул

Ќе се отвори Модул .

Потоа напишете го следниот код во Модул . 

7955

Тука, создадов подпроцедура наречена LastRow_SpecialCells , каде што тип Long променливата LastRow е декларирана.

Потоа се дефинира променливата користејќи го методот Range.SpecialCells . Овде, ја користев колоната A ( A:A ) како опсег. Даден xlCellTypeLastCell како тип параметар на SpecialCells , ова ќе ја врати последната ќелија за опсегот (за овој случај, од колоната A ).

Користев поле за пораки за да го прикажам резултатот.

Потоа, Зачувајте го кодот и вратете се на работен лист.

Повторно, отворете ја картичката Преглед >> од Макроа >> изберете Прикажи макроа

Потоа, ќе се појави дијалог поле .

Сега, од името на макрото изберете ја LastRow_SpecialCells исто така изберете ја работната книга во Макроа во .

Конечно, Стартувај го одбраното Макро .

Така, ќе се појави поле за порака што го прикажува бројот на последниот ред.

2. Користење на Rows.Count за непразни ќелии

Можете да го користите методот Rows.Count за да го пронајдете последниот ред користејќи VBA .

Сега, отворете ја картичката Програмер >> потоа изберете Visual Basic

Ќе се појави нов прозорец на Microsoft Visual Basic за апликации .

Сега, од Вметни >> изберете Модул

Ќе се отвори Модул .

Потоа напишете го следниот код во Модул . 

1139

Овде, создадов подпроцедура наречена LastRow_NonEmpty, каде што типот на променлива Long LastRow е декларирано.

Сега, CELLS(Rows.Count, 1) ќе брои колку редови има во првата колона. Потоа се користи End(xlUp).Ред сега ова ќе го најде последниот користен ред во опсегот на Excel.

На крајот, користев поле за пораки за да го прикажамрезултат.

Потоа, Зачувајте го кодот и вратете се на работниот лист.

Овде, отворете ја картичката Преглед >> од Макроа >> изберете Прикажи макроа

Сега, ќе се појави дијалог поле .

Потоа, од Името на макрото изберете го LastRow_NonEmpty исто така изберете ја работната книга во Макроа во .

Конечно, Стартувај го одбраното Макро .

Така, ќе се појави поле за пораки што го прикажува бројот на последниот ред.

3. Користење на Rows.Count за која било избрана колона

Со користење на која било избрана колона во VBA, можете да го најдете последниот ред.

Прво , отворете ја картичката Програмер >> потоа изберете Visual Basic

Ќе се појави нов прозорец на Microsoft Visual Basic за апликации .

Сега, од Вметни >> изберете Модул

Ќе се отвори Модул .

Потоа напишете го следниот код во Модул . 

2571

Овде, создадов подпроцедура наречена LastRow_AnyColumn, каде што Long тип на променлива LastRow е декларирано.

Потоа, во Опсег дадена е колоната B како параметар и исто така Редови. Број , ова ќе брои колку редови има во дадена колона B . Следно, се користи End(xlup). Ред кој ќе го најде последниот користен ред во опсегот на Excel.

Последниот, користев поле за пораки за да го прикажамрезултат.

Следно, Зачувајте го кодот и вратете се на работниот лист.

Потоа, отворете ја картичката Преглед >> од Макроа >> изберете Прикажи макроа

Тука, ќе се појави дијалог поле .

Сега, од името на макрото изберете ја LastRow_AnyColumn исто така изберете ја работната книга во Макроа во .

Конечно, Стартувај го одбраното Макро .

Така, ќе се појави поле за пораки што го прикажува бројот на последниот ред.

Слични читања:

  • Пронајди VBA во колона во Excel (7 пристапи)
  • Најди и замени користејќи VBA (11 Начини)
  • Најдете точно совпаѓање користејќи VBA во Excel (5 начини)
  • Како да најдете низа со VBA во Excel (8 примери)

4. Користење на UsedRange за наоѓање на последниот ред

Можете да го користите својството UsedRange на работниот лист за да го пронајдете последниот ред користејќи VBA .

Сега, отворете ја картичката Програмер >> потоа изберете Visual Basic

Потоа, ќе се појави нов прозорец на Microsoft Visual Basic за апликации .

Сега, од Вметни >> изберете Модул

Ќе се отвори Модул .

Потоа, напишете го следниов код во Модул . 

3287

Овде, создадов подпроцедура наречена LastRow_UsedRange, каде што типот на променлива Long LastRow е деклариран.

Следно, дефинирано епроменлива користејќи го методот ActiveSheet.UsedRange.Rows исто така е обезбедена ActiveSheet.UsedRange.Rows.Count како параметар на ActiveSheet.UsedRange.Rows , ова ќе го врати последен ред.

Користев поле за пораки за да го прикажам резултатот.

Сега, Зачувајте го кодот и вратете се на работниот лист.

Потоа, отворете ја картичката Преглед >> од Макроа >> изберете Прикажи макроа

Следно, ќе се појави дијалог поле .

Потоа, од макро име изберете го LastRow_UsedRange исто така изберете ја работната книга во Макроа во .

Конечно, Изврши одбраното Макро .

Така, ќе се појави поле за пораки што го прикажува бројот на последниот ред.

5. Користејќи Range.Find за да го пронајдете последното Ред

Можете да го користите методот Range.Find за да го пронајдете последниот ред користејќи VBA .

Сега, отворете го Програмер таб >> потоа изберете Visual Basic

Овде, ќе се појави нов прозорец на Microsoft Visual Basic за апликации .

Сега, од Вметни >> изберете Модул

Ќе се отвори Модул .

Потоа напишете го следниов код во Модул . 

6874

Овде, создадов подпроцедура наречена Range_Find_Method, каде што е деклариран тип на променлива Long LastRow .

Потоа ја дефиниравме променливата користејќи го методот Cells.Find . Еве, декларирано 7параметри. Во Кој параметар користев („*“) кој ќе ја најде првата непразна ќелија. Даден е A1 како опсег во параметарот По за почеток. Во параметарот LookAt обезбеден е xlPart за да се погледне кој било дел од текстот внатре во ќелијата.

LookIn:=xlFormulas ќе бара формули доколку ги има. SearchOrder:=xlByRows параметарот ќе се движи оддесно налево и исто така ќе се врти низ секој ред додека не најде непразна ќелија.

MatchCase:=False параметарот ќе му каже на Find да не ги зема предвид големите или малите букви. Кога ќе се најде непразно, тој запира и го враќа бројот на редот.

Користев поле за пораки за да го прикажам резултатот.

Сега, Зачувај го кодот и вратете се на работниот лист.

Овде, отворете ја картичката Преглед >> од Макроа >> изберете Прикажи макроа

Сега, ќе се појави дијалог поле .

Сега, од Името на макрото изберете го Range_Find_Method исто така изберете го работниот лист во Макроа во .

Конечно, Стартувај го одбраното Макро .

Така, ќе се појави поле за пораки што го прикажува бројот на последниот ред.

Заклучок

Во оваа статија, објаснив 5 начини за VBA да го пронајдете последниот ред во Excel. Можете да следите кој било од методите за да го пронајдете последниот ред. Во случај да имате некоја конфузија или прашање во врска со овие методи, можетекоментирајте долу.

Претходен пост Како да го изберете секој друг ред во Excel (6 начини)
Следен пост Калкулатор за даноци за самовработување во табеларни пресметки на Excel (Креирај со лесни чекори)

Хју Вест е високо искусен тренер и аналитичар на Excel со повеќе од 10 години искуство во индустријата. Има диплома за сметководство и финансии и магистер по бизнис администрација. Хју има страст за предавање и има развиено уникатен пристап на наставата кој е лесен за следење и разбирање. Неговото стручно познавање на Excel им помогна на илјадници студенти и професионалци ширум светот да ги подобрат своите вештини и да се истакнат во нивните кариери. Преку својот блог, Хју го споделува своето знаење со светот, нудејќи бесплатни упатства за Excel и онлајн обука за да им помогне на поединците и бизнисите да го достигнат својот целосен потенцијал.