Microsoft Excel бағдарламасымен жұмыс істегенде соңғы жолдарды немесе бағандарды табу әдеттегі тапсырма болып табылады. Біз соңғы пайдаланылған жолдарды немесе бағандарды табу үшін пернетақтаны қолданамыз. Бірақ, күрделі деректер жинағынан соңғы пайдаланылған жолды табу қажет болатын жағдайға тап болуыңыз мүмкін. Бұл оқулықта тәжірибелік мысалдар мен дұрыс иллюстрациялармен Excel бағдарламасындағы VBA көмегімен ауқымдағы деректермен соңғы жолды табуды үйренесіз.

Тәжірибе жұмыс кітабын жүктеп алу

Осы тәжірибелік жұмыс кітабын жүктеп алыңыз.

Excel VBA макростарын пайдалану арқылы ауқымдағы деректермен соңғы жолды табудың 7 әдісі

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

📕 Толығырақ : Excel бағдарламасында қатардағы мәні бар соңғы ұяшықты табу (6 әдіс)

Осы оқулықты көрсету үшін біз осы деректер жинағын қолданамыз:

Мұнда бізде кейбір ойыншылардың ақпаратынан тұратын деректер жинағы бар. Біз мұны сізге барлық әдістерді үйрету үшін қолданамыз.

VBA өңдегішін ашыңыз

Бастамас бұрын, біз сізге VBA өңдегішін ашу туралы қарапайым ескертуді береміз. Excel.

Алдымен пернетақтада Alt+F11 пернелерін басыңыз. Содан кейін Кірістіру > Модуль. Осыдан кейін ол Excel бағдарламасының VBA редакторын ашады.

1.Ауқымдағы деректері бар соңғы жолды табу үшін Range.End сипатын пайдалану VBA

Енді бұл әдіс негізінен ауқымның соңын табады. Негізінен, соңғы пайдаланылған ұяшық диапазоны. Берілген ауқымдағы деректері бар соңғы жолды табу үшін осы әдісті пайдалана аламыз. VBA пайдалану сізге қажетті нәтижелерді береді.

📌 Қадамдар

① Алдымен VBA редакторын ашыңыз.

② Содан кейін келесі кодты теріңіз:

9461

③ Енді файлды сақтаңыз. Содан кейін Макрос тілқатысу терезесін ашу үшін Alt+F8 пернелерін басыңыз. ауқым_соңы_әдісі

④ таңдаңыз Одан кейін "Орындау" түймесін басыңыз.

Көріп отырғаныңыздай, Excel бағдарламасындағы VBA көмегімен ауқымдағы деректері бар соңғы жолды сәтті таптық.

2. Ауқым. Excel бағдарламасындағы VBA қасиетін табу

Қазір VBA-да деректер жиынынан белгілі бір мәнді іздеу үшін Range.Find әдісін қолданамыз. Бірақ бұл әдіс ауқымдағы деректері бар соңғы жолды табу үшін ыңғайлы. Ол Find & Excel тілқатысу терезесін ауыстырыңыз. Ауқым. Find әдісінде көптеген дәлелдер бар. Бірақ біз олардың барлығын пайдаланбаймыз.

Біз Range.Find әдісін қолданбас бұрын, сізге қысқаша ақпарат берейік:

Cells.Find(“*”, searchorder:=xlByRows, searchdirection:=xlPrevious)

Не := ”*” – Жұлдызша кез келген мәтінді немесе санды ашатын қойылмалы таңба. ұяшықта. Бұл, ең алдымен, бос емес нәрсені зерттеумен бірдейұяшық.

SearchOrder:=xlByRows – Бұл келесіге көшу алдында әрбір толық жолды қазып алу керек дегенді білдіреді. Бағыт SearchDirection аргументіне байланысты солдан оңға немесе оңнан солға ізделеді. Мұндағы қосымша опция xlByColumns болып табылады, ол соңғы бағанды ​​анықтау кезінде пайдаланылады.

SearchDirection:=xlPrevious – Бұл қай бағытты зерттеу керектігін анықтайды. xlPrevious оның оңнан солға немесе төменнен жоғарыға қарай іздейтінін білдіреді. Басқа балама – қарама-қарсы жолда ауысатын xlNext.

📌 Қадамдар

① Алдымен, VBA өңдегішін ашыңыз.

② Содан кейін келесі кодты теріңіз:

3197

③ Енді файлды сақтаңыз. Содан кейін макрос тілқатысу терезесін ашу үшін Alt+F8 пернелер тіркесімін басыңыз. аралықты_табу_әдісін таңдаңыз.

④ Одан кейін Орындау түймесін басыңыз.

Соңында ол Excel жұмыс парағындағы деректері бар соңғы жолды табады.

3. VBA көмегімен соңғы жолды табу үшін SpecialCells функциясын пайдалану

Бұл әдіс пернетақтадағы Ctrl+End пернелерін басу сияқты жұмыс істейді. Пернетақтада Ctrl+End пернелерін басқанда, қай жерде болсаңыз да, ол сізді әрқашан соңғы жолға апарады. Бірақ Excel бағдарламасында VBA кодтары арқылы деректермен соңғы пайдаланылған жолды тапқыңыз келсе, бұл код сізге міндетті болып табылады.

📌 Қадамдар

① Алдымен, VBA өңдегішін ашыңыз.

② Содан кейін келесі кодты теріңіз:

8415

③ Енді файлды сақтаңыз. Содан кейін,макрос тілқатысу терезесін ашу үшін Alt+F8 пернелерін басыңыз. арнайы ұяшықтар_әдісі таңдаңыз.

④ Одан кейін Орындау түймесін басыңыз.

Көріп отырғаныңыздай, Excel бағдарламасындағы VBA көмегімен деректермен соңғы жолды сәтті таба алдық.

4. Ауқымдағы деректері бар соңғы жолды табу үшін UsedRange функциясын пайдалану

VBA ішіндегі UsedRange - белгілі бір жұмыс парағында пайдаланылған ауқымды (жұмыс парағында пайдаланылған немесе жүктелген барлық Excel ұяшықтары) көрсететін ауқым нысанын қайтаратын жұмыс парағының иелігі. Бұл жұмыс парағындағы жоғарғы сол жақ пайдаланылған ұяшықтармен және соңғы оң жақ пайдаланылған ұяшықтармен қамтылған немесе көрсетілген аумақты білдіретін сипат.

📌 Қадамдар

① Алдымен, VBA өңдегішін ашыңыз.

② Содан кейін келесі кодты теріңіз:

8781

③ Енді файлды сақтаңыз. Содан кейін макрос тілқатысу терезесін ашу үшін Alt+F8 пернелер тіркесімін басыңыз. usedRange_method таңдаңыз.

④ Одан кейін Орындау түймесін басыңыз.

Соңында Excel бағдарламасындағы жұмыс парағында соңғы пайдаланылған жолды сәтті көресіз.

5. Excel бағдарламасында VBA көмегімен кесте ауқымын пайдалану

Егер сізде кестеде осы әдіс арқылы деректері бар соңғы жолды таба аласыз.

📌 Қадамдар

① Алдымен VBA өңдегішін ашыңыз. .

② Содан кейін келесі кодты теріңіз:

1668

Ескертпе : Мұнда деректер жинағы басталған кезде соңғы жолмен 3 қосамыз. 3-жолдан кейін.

③ Енді файлды сақтаңыз. Содан кейін Alt+F8 пернелер тіркесімін басыңызМакрос диалогтық терезесін ашу үшін. TableRange_method.

④ Одан кейін Орындау түймесін басыңыз.

Көріп отырғаныңыздай, Excel бағдарламасындағы деректері бар соңғы жолды табу үшін VBA кодтарындағы кесте диапазоны әдісін сәтті қолдандық.

6. Табу үшін атаулы диапазонды пайдалану Ауқымдағы деректері бар соңғы жол

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

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

📌 Қадамдар

① Алдымен, VBA өңдегішін ашыңыз. .

② Содан кейін келесі кодты теріңіз:

5485

Ескертпе : Соңғы қатарға 1 қосып жатырмыз, себебі біздің ауқым 1-жолдан кейін басталды. .

③ Енді файлды сақтаңыз. Содан кейін Макрос тілқатысу терезесін ашу үшін Alt+F8 басыңыз. nameRange_method.

④ Одан кейін "Орындау" түймесін басыңыз.

Көріп отырғаныңыздай, біз соңғы жолды VBA арқылы деректермен сәтті таба алдық.

7. Excel бағдарламасындағы VBA CurrentRegion функциясы

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

📌 Қадамдар

① Алдымен, VBA өңдегішін ашыңыз.

② Содан кейін келесі кодты теріңіз:

6927

Ескертпе : Ауқым бірінші ұяшық болуы керек.деректер жинағы. Таңдауыңызға сәйкес жолдар санын қосыңыз. Мұнда біз 3-ті қостық, себебі деректер жиыны 3-жолдан кейін басталды.

③ Енді файлды сақтаңыз. Содан кейін макрос тілқатысу терезесін ашу үшін Alt+F8 пернелер тіркесімін басыңыз. Ағымдағы аймақ_әдісі

④ таңдаңыз Одан кейін Іске қосу түймесін басыңыз.

Көріп отырғаныңыздай, біз VBA кодын пайдаланып деректері бар соңғы жолды сәтті таптық.

💬 Есте сақтау керек нәрселер

✎ Range.End ғана жұмыс істейді. бір жол немесе баған. Деректер жиынында бос ұяшықтар көп болса, деректері бар соңғы жолды табу қиын болады.

✎ Кейде кодты іске қосу үшін әдістеріңізге кейбір мәндерді қосу керек болады. тегіс. Соңғы ұяшықты табу үшін жол нөмірлерін қостық. Сондықтан, деректер жинағыңыз қай жерден басталғанын есте сақтауыңыз керек.

Қорытынды

Қорытындылай келе, бұл оқулық ауқымдағы деректері бар соңғы жолды табу үшін сізге пайдалы білім берді деп үміттенемін. Excel бағдарламасында VBA пайдалану. Осы нұсқаулардың барлығын үйреніп, деректер жиыныңызға қолдануды ұсынамыз. Тәжірибелік жұмыс кітабын жүктеп алыңыз және оларды өзіңіз көріңіз. Сондай-ақ, түсініктеме бөлімінде кері байланыс қалдырыңыз. Сіздің құнды пікіріңіз бізді осындай оқулықтар жасауға ынталандырады.

Excel-ге қатысты әртүрлі мәселелер мен шешімдер үшін Exceldemy.com веб-сайтымызды тексеруді ұмытпаңыз.

Жаңа әдістерді үйреніп, өсе беріңіз!