VBA Знайдзіце апошні радок у Excel (5 спосабаў)

Hugh West

16-10-2023 Макрасы & Excel VBA
  • Падзяліцца Гэтым
Hugh West

У VBA вы можаце выкарыстоўваць розныя метады для пошуку апошняга радка. У гэтым артыкуле я збіраюся растлумачыць розныя метады VBA пошуку апошняга радка ў Excel.

Каб зрабіць гэтае тлумачэнне бачным, я буду выкарыстоўваць узор набору даных. У наборы дадзеных ёсць 4 слупкі, якія прадстаўляюць інфармацыю аб продажах. Гэтыя слупкі: Прадавец, рэгіён, прадукт, і Цана .

Спампуйце для практыкі

VBA Find Last Row.xlsm

Спосабы VBA Find Last Row у Excel

1. Выкарыстанне SpecialCells каб знайсці апошні радок

Вы можаце выкарыстоўваць метад SpecialCells , каб знайсці апошні радок з дапамогай VBA .

Спачатку адкрыйце Developer табуляцыя >> затым выберыце Visual Basic

З'явіцца новае акно Microsoft Visual Basic для прыкладанняў .

Цяпер з Уставіць >> абярыце Модуль

Будзе адкрыты Модуль .

Затым напішыце наступны код у Модуль . 

2470

Тут я стварыў падпрацэдуру пад назвай 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 для прыкладанняў .

Цяпер з Уставіць >> абярыце Модуль

Будзе адкрыты Модуль .

Затым напішыце наступны код у Модуль . 

9635

Тут я стварыў падпрацэдуру пад назвай LastRow_NonEmpty, дзе тып Long зменнай LastRow быў абвешчаны.

Цяпер CELLS(Rows.Count, 1) падлічыць, колькі радкоў знаходзіцца ў першым слупку. Затым выкарыстаў End(xlUp).Row цяпер гэта будзе знайсці апошні выкарыстаны радок у дыяпазоне Excel.

У рэшце рэшт, я выкарыстаў акно паведамлення, каб паказацьвынік.

Затым Захавайце код і вярніцеся да працоўнага аркуша.

Тут адкрыйце ўкладку Прагляд >> з Макрасы >> абярыце Прагляд макрасаў

Цяпер адкрыецца дыялогавае акно .

Затым з назвы макраса выберыце LastRow_NonEmpty таксама выберыце кнігу ў Макрасы ў .

Нарэшце, Запусціце выбраны Макрас .

Такім чынам, з'явіцца ўсплывальнае акно паведамлення з нумарам апошняга радка.

3. Выкарыстанне Rows.Count для любога выбранага слупка

Выкарыстоўваючы любы выбраны слупок у VBA, вы можаце знайсці апошні радок.

Першы , адкрыйце ўкладку Распрацоўшчык >> затым выберыце Visual Basic

З'явіцца новае акно Microsoft Visual Basic для прыкладанняў .

Цяпер з Уставіць >> абярыце Модуль

Будзе адкрыты Модуль .

Затым напішыце наступны код у Модуль . 

9274

Тут я стварыў падпрацэдуру пад назвай LastRow_AnyColumn, дзе тып Long зменнай LastRow быў абвешчаны.

Тады ў Дыяпазоне з улікам слупка B у якасці параметра, а таксама Rows.Count , гэта падлічыць, колькі радкоў ёсць у дадзеным слупку 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 для прыкладанняў .

Цяпер з Уставіць >> абярыце Модуль

Будзе адкрыты Модуль .

Затым напішыце наступны код у Модуль . 

4707

Тут я стварыў падпрацэдуру пад назвай 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 для прыкладанняў .

Цяпер з Уставіць >> абярыце Модуль

Будзе адкрыты Модуль .

Затым напішыце наступны код у Модуль . 

4904

Тут я стварыў падпрацэдуру пад назвай 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 і онлайн-трэнінгі, каб дапамагчы прыватным асобам і прадпрыемствам цалкам раскрыць свой патэнцыял.