VBA Excel бағдарламасындағы соңғы жолды табу (5 әдіс)

Hugh West

16-10-2023 Макростар & Excel VBA
  • Мұны Бөлісіңіз
Hugh West

VBA жүйесінде соңғы жолды табу үшін әртүрлі әдістерді қолдануға болады. Бұл мақалада мен Excel бағдарламасындағы соңғы жолды VBA табудың әртүрлі әдістерін түсіндіремін.

Бұл түсініктеме көрінетін болуы үшін, үлгі деректер жинағын қолданатын боламын. Деректер жиынында сату туралы ақпаратты көрсететін 4 баған бар. Бұл бағандар Сатушы, аймақ, өнім, және Баға .

Жаттығу үшін жүктеп алыңыз

VBA Соңғы жолды табу.xlsm

Excel бағдарламасында VBA соңғы жолды табу жолдары

1. SpecialCells пайдалану Соңғы жолды табу үшін

Соңғы жолды VBA арқылы табу үшін SpecialCells әдісін пайдалануға болады.

Алдымен Әзірлеуші ​​​​ ашыңыз қойынды >> содан кейін Visual Basic

Microsoft Visual Basic for Applications жаңа терезесі ашылады.

Енді Кірістіру >> Модуль

А Модуль ашылады.

Содан кейін <2 ішіне келесі кодты жазыңыз>Модуль . 

9306

Мұнда мен LastRow_SpecialCells деп аталатын ішкі процедураны жасадым, мұнда Ұзын түрі LastRow айнымалысы жарияланды.

Содан кейін Range.SpecialCells әдісі арқылы айнымалы мән анықталды. Мұнда мен диапазон ретінде A ( A:A ) бағанын қолдандым. SpecialCells түр параметрі ретінде xlCellTypeLastCell берілген, бұл ауқым үшін соңғы ұяшықты қайтарады (бұл жағдайда, бағаннан A ).

Нәтижені көрсету үшін хабар терезесін пайдаландым.

Одан кейін Кодты сақтап, келесіге оралыңыз. жұмыс парағы.

Қайтадан Көру қойындысын >> бастап Макростар >> Макростарды көру

Содан кейін диалогтық терезе қалқымалы болады.

Енді Макрос атауы тан Соңғы қатар_Арнайы ұяшықтар сонымен қатар Макростар ішіндегі жұмыс кітабын таңдаңыз.

Соңында, таңдалған макросты іске қосыңыз.

Осылайша ол соңғы жол нөмірін көрсететін хабар терезесін ашады.

2. Бос емес ұяшықтар үшін Rows.Count пайдалану

Соңғы жолды VBA арқылы табу үшін Rows.Count әдісін пайдалануға болады. .

Енді Әзірлеуші ​​ қойындысын >> содан кейін Visual Basic

Microsoft Visual Basic for Applications жаңа терезесі ашылады.

Енді Кірістіру >> Модуль

А Модуль ашылады.

Содан кейін <2 ішіне келесі кодты жазыңыз>Модуль . 

8697

Мұнда мен LastRow_NonEmpty деп аталатын ішкі процедураны жасадым, мұнда Long айнымалы түрі LastRow жарияланды.

Енді CELLS(Rows.Count, 1) бірінші бағанда қанша жол бар екенін санайды. Содан кейін пайдаланылған End(xlUp).Row енді бұл Excel ауқымындағы соңғы пайдаланылған жолды табады.

Соңында, мен көрсету үшін хабар терезесін пайдаландым.нәтиже.

Содан кейін Кодты сақтап, жұмыс парағына оралыңыз.

Осы жерден Көру қойындысын >> бастап Макростар >> Макростарды көру

Енді диалогтық терезе пайда болады.

Содан кейін Макрос атауы тан Соңғы қатар_Бос емес сондай-ақ Макростар ішіндегі жұмыс кітабын таңдаңыз.

Соңында, таңдалған макросты іске қосыңыз.

Осылайша, ол соңғы жол нөмірін көрсететін хабар терезесін ашады.

3. Кез келген таңдалған баған үшін Rows.Count пайдалану

VBA ішіндегі кез келген таңдалған бағанды ​​пайдалану арқылы соңғы жолды таба аласыз.

Бірінші , Әзірлеуші ​​ қойындысын >> содан кейін Visual Basic

Microsoft Visual Basic for Applications жаңа терезесі ашылады.

Енді Кірістіру >> Модуль

А Модуль ашылады.

Содан кейін <2 ішіне келесі кодты жазыңыз>Модуль . 

7854

Мұнда мен LastRow_AnyColumn деп аталатын ішкі процедураны жасадым, мұнда Long айнымалы LastRow түрі бар жарияланды.

Содан кейін Ауқымында параметр ретінде B бағаны берілген және Rows.Count , бұл берілген B бағанында қанша жол бар екенін санайды. Содан кейін End(xlup) пайдаланылады. Excel ауқымындағы соңғы пайдаланылған жолды табатын жол.

Соңында мен келесіні көрсету үшін хабар терезесін пайдаландым.нәтиже.

Кейін, Кодты сақтап, жұмыс парағына оралыңыз.

Содан кейін Көру қойындысын >> бастап Макростар >> Макростарды көру

Осы жерден диалогтық терезе қалқымалы болады.

Енді Макрос атауы таңдаңыз Соңғы жол_Кез келген баған сонымен қатар Макростар ішіндегі жұмыс кітабын таңдаңыз.

Соңында, таңдалған макросты іске қосыңыз.

Осылайша, ол соңғы жол нөмірін көрсететін хабар терезесін ашады.

Ұқсас оқулар:

  • VBA Excel бағанында табу (7 тәсіл)
  • VBA (11) арқылы табу және ауыстыру Жолдар)
  • Excel бағдарламасында VBA көмегімен дәл сәйкестікті табу (5 әдіс)
  • Excel бағдарламасында VBA көмегімен жолды қалай табуға болады (8 мысал)

4. Соңғы жолды табу үшін UsedRange пайдалану

Соңғы жолды табу үшін жұмыс парағының UsedRange сипатын пайдалануға болады. VBA арқылы жол.

Енді Әзірлеуші ​​ қойындысын ашыңыз >> содан кейін Visual Basic

Содан кейін Microsoft Visual Basic for Applications жаңа терезесі ашылады.

Енді, Кірістіру >> Модуль

А Модуль ашылады.

Содан кейін <ішіне келесі кодты жазыңыз. 2>Модуль . 

7843

Мұнда мен LastRow_UsedRange деп аталатын ішкі процедураны жасадым, мұнда айнымалының Long түрі LastRow жарияланды.

Келесі, анықталған ActiveSheet.UsedRange.Rows әдісін қолданатын айнымалы мән сонымен қатар ActiveSheet.UsedRange.Rows.Count параметрі ретінде ActiveSheet.UsedRange.Rows береді, бұл қайтарады соңғы жол.

Нәтижені көрсету үшін хабар терезесін пайдаландым.

Енді Кодты сақтап, жұмыс парағына оралыңыз.

Содан кейін Көру қойындысын >> бастап Макростар >> Макростарды көру

Содан кейін диалогтық терезе пайда болады.

Содан кейін Макрос name LastRow_UsedRange сонымен қатар Макростар ішіндегі жұмыс кітабын таңдаңыз.

Соңында, Орындау таңдалған Макрос .

Осылайша, ол соңғы жол нөмірін көрсететін хабар терезесін ашады.

5. Соңғысын табу үшін Range.Find пайдалану Жол

Сіз VBA көмегімен соңғы жолды табу үшін Range.Find әдісін пайдалана аласыз.

Енді Әзірлеуші ​​ қойындысы >> содан кейін Visual Basic

Осы жерден Microsoft Visual Basic for Applications жаңа терезесі ашылады.

Енді, Кірістіру >> Модуль

А Модуль ашылады.

Содан кейін Модуль ішіне келесі кодты жазыңыз. 

9640

Мұнда мен Range_Find_Method деп аталатын ішкі процедураны жасадым, мұнда айнымалының Long түрі LastRow жарияланған. .

Содан кейін айнымалы мәнді Cells.Find әдісі арқылы анықтады. Мұнда 7 деп жарияландыпараметрлері. Қандай параметрін қолдандым («*»), ол бірінші бос емес ұяшықты табады. A1 бастау үшін Кейін параметріндегі ауқым ретінде берілген. LookAt параметрінде xlPart ұяшық ішіндегі мәтіннің кез келген бөлігін қарау үшін берілген.

LookIn:=xlFormulas параметрі келесіні іздейді. формулалар бар болса. SearchOrder:=xlByRows параметр оңнан солға жылжиды және бос емес ұяшықты тапқанша әр жол бойымен жоғары қарай жылжиды.

MatchCase:=False параметр Табу > бас немесе кіші әріптерді ескермеу керектігін айтады. Бос емес орын табылғанда, ол тоқтап, жол нөмірін қайтарады.

Нәтижені көрсету үшін хабар терезесін пайдаландым.

Енді Кодты сақтау және жұмыс парағына оралыңыз.

Осы жерден Көру қойындысын >> бастап Макростар >> Макростарды көру

Енді диалогтық терезе пайда болады.

Енді, Макрос атауы таңдаңыз Ауқым_Табу_әдісі сонымен қатар Макростар ішіндегі жұмыс парағын таңдаңыз.

Соңында, таңдалған макросты іске қосыңыз.

Осылайша ол соңғы жол нөмірін көрсететін хабар терезесін ашады.

Қорытынды

Бұл мақалада мен VBA Excel бағдарламасында соңғы жолды табудың 5 әдісін түсіндірдім. Соңғы жолды табу үшін кез келген әдістерді қолдануға болады. Егер сізде осы әдістерге қатысты қандай да бір түсінбеушілік немесе сұрақ туындасатөменде пікір қалдырыңыз.

Алдыңғы пост Excel бағдарламасындағы әрбір басқа жолды қалай таңдауға болады (6 әдіс)
Келесі пост Excel электрондық кестесіндегі өзін-өзі жұмыспен қамтуға арналған салық калькуляторы (оңай қадамдармен жасаңыз)

Хью Уэст – салада 10 жылдан астам тәжірибесі бар жоғары тәжірибелі Excel тренері және талдаушысы. «Бухгалтерлік есеп және қаржы» мамандығы бойынша бакалавр дәрежесі және іскерлік әкімшілендіру магистрі дәрежесі бар. Хью оқытуға құмар және ұстануға және түсінуге оңай бірегей оқыту әдісін әзірледі. Оның Excel бағдарламасындағы сараптамалық білімі бүкіл әлем бойынша мыңдаған студенттер мен мамандарға біліктіліктерін арттыруға және мансаптық жетістіктерге жетуге көмектесті. Блогы арқылы Хью өз білімін әлеммен бөліседі, жеке адамдар мен бизнеске толық әлеуетін ашуға көмектесу үшін тегін Excel оқулықтары мен онлайн тренингтерін ұсынады.