Microsoft Excel ilə işləyərkən son sətirləri və ya sütunları tapmaq ümumi işdir. Son istifadə olunan sətirləri və ya sütunları tapmaq üçün klaviaturadan istifadə edirik. Ancaq mürəkkəb verilənlər bazasından son istifadə olunan cərgəni tapmalı olduğunuz bir vəziyyətdə özünüzü tapa bilərsiniz. Bu təlimatda siz praktiki nümunələr və lazımi illüstrasiyalarla Excel-də VBA-dan istifadə edərək diapazonda verilənlərlə sonuncu sıranı tapmağı öyrənəcəksiniz.

Təcrübə İş Kitabını endirin

Bu təcrübə iş kitabını endirin.

Excel VBA Makroslarından istifadə edərək diapazonda verilənlərlə sonuncu sıranı tapmağın 7 üsulu

Gələn bölmələrdə , biz sizə Excel-də VBA-dan istifadə edərək diapazonda verilənlərlə sonuncu cərgəni tapmağa kömək edəcək yeddi üsul təqdim edəcəyik. Excel biliklərinizi zənginləşdirmək üçün bütün bu üsulları öyrənib tətbiq etməyi tövsiyə edirik.

📕 Ətraflı oxuyun : Excel-də Sətirdə Dəyəri olan Son Xananı Tapın (6 Metod)

Bu dərsliyi nümayiş etdirmək üçün biz bu verilənlər dəstindən istifadə edəcəyik:

Burada bəzi oyunçuların məlumatlarından ibarət verilənlər bazamız var. Biz bundan sizə bütün üsulları öyrətmək üçün istifadə edəcəyik.

VBA Redaktorunu açın

Başlamazdan əvvəl sizə VBA Redaktorunu açmaq üçün sadə xatırlatma veririk. Excel.

Əvvəlcə, klaviaturada Alt+F11 düymələrini basın. Sonra Daxil et > Modul. Bundan sonra o, Excel-in VBA redaktorunu açacaq.

1.VBA

-dən istifadə edərək diapazonda verilənlərlə sonuncu cərgəni tapmaq üçün Range.End xassəsindən istifadə edin. İndi bu üsul əsasən diapazonun sonunu tapır. Əsasən, son istifadə olunan hüceyrə diapazonu. Verilən diapazonda verilənlərlə sonuncu sıranı tapmaq üçün bu üsuldan istifadə edə bilərik. VBA-dan istifadə etmək istədiyiniz nəticələri verəcəkdir.

📌 Addımlar

① Əvvəlcə VBA Redaktoru açın.

② Sonra aşağıdakı kodu daxil edin:

4393

③ İndi faylı yadda saxlayın. Sonra, Makro dialoq qutusunu açmaq üçün Alt+F8 düymələrini basın. aralıq_end_metodunu

④ seçin Bundan sonra Run üzərinə klikləyin.

Gördüyünüz kimi, Excel-də VBA-dan istifadə edərək diapazonda verilənlərin olduğu sonuncu cərgəni uğurla tapdıq.

2. Range.Excel-də VBA-nın Xüsusiyyətini tapın

İndi VBA-da biz verilənlər bazasından müəyyən bir dəyəri axtarmaq üçün Range.Find metodundan istifadə edirik. Lakin bu üsul diapazonda verilənlərlə sonuncu cərgəni tapmaq üçün əlverişlidir. Bu Tap & amp kimi işləyir; Excel dialoq qutusunu dəyişdirin. Aralığı. Tap metodunun çoxlu arqumentləri var. Lakin biz onların hamısından istifadə etməyəcəyik.

Range.Find metodundan istifadə etməzdən əvvəl gəlin sizə qısa məlumat verək:

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

Nə := ”*” – Ulduz hər hansı mətn və ya rəqəmi aşkar edən joker simvoldur hüceyrədə. Bu, ilk növbədə boş olmayanı araşdırmaqla eynidirxana.

SearchOrder:=xlByRows – Bu, növbəti cərgəyə keçməzdən əvvəl hər bir cərgəni qazmaq üçün axtarış deməkdir. İstiqamət SearchDirection arqumentindən asılı olaraq soldan sağa və ya sağdan sola axtarılır. Buradakı əlavə seçim xlByColumns-dur, sonuncu sütunun yerini təyin edərkən istifadə olunur.

SearchDirection:=xlPrevious – Bu, hansı istiqaməti araşdırmaq lazım olduğunu müəyyənləşdirir. xlPrevious o deməkdir ki, o, sağdan sola və ya aşağıdan yuxarıya doğru axtarış aparacaq. Digər alternativ isə əks istiqamətdə dəyişən xlNext-dir.

📌 Addımlar

① Əvvəlcə VBA Redaktorunu açın.

② Sonra aşağıdakı kodu daxil edin:

4093

③ İndi faylı yadda saxlayın. Sonra Makro dialoq qutusunu açmaq üçün Alt+F8 düymələrini sıxın. aralıq_find_metodunu seçin.

④ Bundan sonra Çalışdır üzərinə klikləyin.

Sonunda o, Excel iş vərəqimizdə verilənlərlə sonuncu cərgəni tapacaq.

3. VBA-dan istifadə edərək Son Sıra Tapmaq üçün SpecialCells funksiyasından istifadə

Bu metod klaviaturanızda Ctrl+End düymələrini basmaq kimi işləyir. Klaviaturanızda Ctrl+End düymələrini sıxdığınız zaman harada olmağınızdan asılı olmayaraq sizi həmişə sonuncu sıraya aparacaq. Ancaq Excel-də VBA kodlarından istifadə edərək verilənlərlə son istifadə olunan sıranı tapmaq istəyirsinizsə, bu kod sizin üçün mütləqdir.

📌 Addımlar

① Əvvəlcə VBA Redaktorunu açın.

② Sonra aşağıdakı kodu yazın:

3718

③ İndi faylı yadda saxlayın. Sonra,Makro dialoq qutusunu açmaq üçün Alt+F8 düymələrini basın. xüsusi hüceyrələr_metodunu seçin.

④ Bundan sonra Çalışdır üzərinə klikləyin.

Gördüyünüz kimi, biz Excel-də VBA-dan istifadə edərək verilənlərlə sonuncu cərgəni tapmağı bacarırıq.

4. Diapazonda verilənlərlə son cərgəni tapmaq üçün UsedRange funksiyasından istifadə

VBA-da UsedRange, müəyyən bir iş vərəqində istifadə olunan diapazonu (iş vərəqində istifadə olunan və ya yüklənmiş bütün Excel xanaları) təmsil edən diapazon obyektini qaytaran iş vərəqinə sahiblikdir. Bu, iş vərəqində yuxarı solda istifadə olunan xanalar və sağda sonuncu istifadə olunan xanalar tərəfindən əhatə olunan və ya göstərilən sahəni ifadə edən xüsusiyyətdir.

📌 Addımlar

① Əvvəlcə VBA Redaktorunu açın.

② Sonra aşağıdakı kodu yazın:

9441

③ İndi faylı yadda saxlayın. Sonra Makro dialoq qutusunu açmaq üçün Alt+F8 düymələrini sıxın. usedRange_method seçin.

④ Bundan sonra Çalışdır üzərinə klikləyin.

Nəhayət, Excel-də iş vərəqində sonuncu istifadə edilmiş cərgəni uğurla görəcəksiniz.

5. Excel-də VBA-dan istifadə edərək Cədvəl Aralığından istifadə

Əgər iş vərəqinizdəki cədvəldə bu üsulla verilənlərin olduğu son sıranı tapa bilərsiniz.

📌 Addımlar

① Əvvəlcə VBA Redaktorunu açın. .

② Sonra aşağıdakı kodu daxil edin:

9100

Qeyd : Burada verilənlər bazamız işə salınarkən son sətirlə 3 əlavə edirik. 3-cü sətirdən sonra.

③ İndi faylı yadda saxlayın. Sonra Alt+F8 düymələrini basınMakro dialoq qutusunu açmaq üçün. TableRange_method seçin.

④ Bundan sonra Çalışdır üzərinə klikləyin.

Gördüyünüz kimi, Excel-də verilənlərlə sonuncu sıranı tapmaq üçün VBA kodlarında cədvəl diapazonu metodundan uğurla istifadə etdik.

6. Tapmaq üçün Adlandırılmış Aralığın istifadəsi Diapazonda verilənlərlə Son Sıra

Bu üsul Excel-də çox istifadə edilmir. Lakin, biz hesab edirik ki, biliyinizi zənginləşdirmək üçün bunu öyrənməlisiniz.

Data dəstinizin adlandırılmış diapazonu varsa, bu kodu istifadə edə bilərsiniz. Aşağıdakı ekran görüntüsünə nəzər salın. Onun içində adlandırılmış diapazon var.

📌 Addımlar

① Əvvəlcə VBA Redaktorunu açın. .

② Sonra aşağıdakı kodu daxil edin:

1193

Qeyd : Biz LastRow-a 1 əlavə edirik, çünki diapazonumuz 1-ci sətirdən sonra başlamışdır. .

③ İndi faylı yadda saxlayın. Sonra, Makro dialoq qutusunu açmaq üçün Alt+F8 düymələrini basın. nameRange_method seçin.

④ Bundan sonra Run üzərinə klikləyin.

Gördüyünüz kimi, biz VBA-dan istifadə edərək verilənlərlə sonuncu cərgəni tapmağı bacardıq.

7. Excel-də VBA-nın CurrentRegion funksiyası

VBA-nın CurrentRegion metodundan da istifadə edə bilərsiniz. Excel-də ən son istifadə olunan sıranı tapmaq üçün. Çətin olsa da, istəsəniz bundan öz xeyrinizə istifadə edə bilərsiniz.

📌 Addımlar

① Əvvəlcə VBA Redaktorunu açın.

② Sonra aşağıdakı kodu daxil edin:

9024

Qeyd : Aralıq xananın ilk xanası olmalıdır.məlumat dəstiniz. Və seçiminizə uyğun olaraq sıra nömrənizi əlavə edin. Datasetimiz 3-cü sətirdən sonra başladığı üçün burada 3 əlavə etdik.

③ İndi faylı yadda saxlayın. Sonra Makro dialoq qutusunu açmaq üçün Alt+F8 düymələrini sıxın. MövcudRegion_metod

④ seçin Bundan sonra Run üzərinə klikləyin.

Gördüyünüz kimi, biz VBA kodundan istifadə edərək verilənlərlə sonuncu cərgəni uğurla tapdıq.

💬 Xatırlamalılar

✎ Range.End yalnız işləyir tək sətir və ya sütun. Datasetinizdə çoxlu boş xanalar varsa, verilənlərin olduğu sonuncu cərgəni tapmaq çətin olacaq.

✎ Bəzən kodu işə salmaq üçün metodlarınıza bəzi dəyərlər əlavə etməlisiniz. rəvan. Sonuncu xananı tapmaq üçün sıra nömrələrini əlavə etdik. Beləliklə, siz verilənlər bazanızın haradan başladığını yadda saxlamalısınız.

Nəticə

Nəticədə ümid edirəm ki, bu dərslik sizə diapazonda verilənlərlə sonuncu cərgəni tapmaq üçün faydalı biliklər təqdim etdi. Excel-də VBA-dan istifadə. Bütün bu təlimatları öyrənib məlumat dəstinizə tətbiq etməyi tövsiyə edirik. Təcrübə iş kitabını yükləyin və bunları özünüz sınayın. Həmçinin, şərh bölməsində rəy bildirməkdən çekinmeyin. Dəyərli rəyiniz bizi bu kimi dərsliklər yaratmaq üçün motivasiya edir.

Excel ilə bağlı müxtəlif problemlər və həllər üçün Exceldemy.com vebsaytımıza baxmağı unutmayın.

Yeni üsulları öyrənməyə və böyüməyə davam edin!