VBA Excel-də Son Sıranı Tap (5 üsul)

Hugh West

16-10-2023 Makrolar & amp; Excel VBA
  • Bunu Paylaş
Hugh West

VBA-da son cərgəni tapmaq üçün müxtəlif üsullardan istifadə edə bilərsiniz. Bu məqalədə mən Excel-də VBA-nın son cərgəsini tapmağın müxtəlif üsullarını izah edəcəyəm.

Bu izahı görünən etmək üçün mən nümunə verilənlər toplusundan istifadə edəcəyəm. Datasetdə satış məlumatlarını əks etdirən 4 sütun var. Bu sütunlar Satıcı, Region, Məhsul, və Qiymət .

Təcrübə etmək üçün endirin

VBA Sonuncu sətiri tapın.xlsm

Excel-də VBA-nın sonuncu sətirini tapmağın yolları

1. Xüsusi Hüceyrələrdən istifadə Sonuncu sətri tapmaq üçün

Siz VBA istifadə edərək son cərgəni tapmaq üçün Xüsusi Hüceyrələr metodundan istifadə edə bilərsiniz.

İlk olaraq Developer'ı açın tab >> sonra seçin Visual Basic

Microsoft Visual Basic for Applications yeni pəncərəsi açılacaq.

İndi Daxil et >> seçin Module

A Module açılacaq.

Sonra <2-ə aşağıdakı kodu yazın>Module . 

2235

Burada mən LastRow_SpecialCells adlı alt prosedur yaratdım, burada Long növü LastRow dəyişəni elan edildi.

Sonra Range.SpecialCells metodundan istifadə edərək dəyişəni təyin etdi. Burada diapazon kimi A ( A:A ) sütunundan istifadə etdim. XlCellTypeLastCell SpecialCells -in tip parametri kimi təqdim edildikdə, bu, diapazon üçün sonuncu xananı qaytaracaq (bu halda, sütundan A ).

Nəticəni göstərmək üçün mesaj qutusundan istifadə etdim.

Bundan sonra Kodu yadda saxla və geri qayıdın. iş vərəqi.

Yenə də Görünüş tab >> Makrolardan >> seçin Makrolara baxın

Sonra dialoq qutusu açılacaq.

İndi Makro adından LastRow_SpecialCells həmçinin Makrolar daxilindəki iş kitabını seçin.

Nəhayət, Seçilmiş Makro -u işə salın.

Beləliklə, o, sonuncu sıra nömrəsini göstərən mesaj qutusu açacaq.

2. Qeyri-boş xanalar üçün Rows.Count istifadə

Siz VBA istifadə edərək son cərgəni tapmaq üçün Rows.Count metodundan istifadə edə bilərsiniz. .

İndi Developer tabını açın >> sonra seçin Visual Basic

Microsoft Visual Basic for Applications yeni pəncərəsi açılacaq.

İndi Daxil et >> seçin Module

A Module açılacaq.

Sonra <2-ə aşağıdakı kodu yazın>Module . 

5331

Burada mən LastRow_NonEmpty adlı alt prosedur yaratdım, burada Long dəyişən növü LastRow elan edilmişdir.

İndi CELLS(Rows.Count, 1) birinci sütunda neçə sətir olduğunu hesablayacaq. Daha sonra istifadə edilmiş End(xlUp).Row indi bu, Excel diapazonunda sonuncu istifadə edilmiş cərgəni tapacaq.

Sonda, göstərmək üçün mesaj qutusundan istifadə etdim.nəticə.

Sonra, Kodu yadda saxla və iş vərəqinə qayıdın.

Burada, Görünüş tab >> Makrolardan >> seçin Makrolara Baxın

İndi dialoq qutusu açılacaq.

Sonra, Makro adından LastRow_NonEmpty həmçinin Makrolar daxilindəki iş kitabını seçin.

Nəhayət, Seçilmiş Makro -u işə salın.

Beləliklə, o, sonuncu sıra nömrəsini göstərən mesaj qutusu açacaq.

3. İstənilən Seçilmiş Sütun üçün Rows.Count istifadə

VBA-da hər hansı seçilmiş sütundan istifadə etməklə, sonuncu sıranı tapa bilərsiniz.

Birinci , Developer tabını açın >> sonra seçin Visual Basic

Microsoft Visual Basic for Applications yeni pəncərəsi açılacaq.

İndi Daxil et >> seçin Module

A Module açılacaq.

Sonra <2-ə aşağıdakı kodu yazın>Module . 

2000

Burada mən LastRow_AnyColumn adlı alt prosedur yaratdım, burada Long dəyişən növü LastRow elan edilmişdir.

Sonra, Rəsm sütununu parametr kimi B verərək, həmçinin Rows.Count , bu verilmiş sütunda neçə sətir olduğunu hesablayacaq B . Sonra, istifadə End(xlup). Excel diapazonunda sonuncu istifadə olunan cərgəni tapacaq sətir .

Axırda mən mesaj qutusunu göstərmək üçün istifadə etdim.nəticə.

Sonra, Kodu yadda saxla və iş vərəqinə qayıdın.

Sonra Görünüş tab >> Makrolardan >> seçin Makrolara baxın

Burada dialoq qutusu açılacaq.

İndi Makro adından LastRow_AnyColumn həmçinin Makrolar daxilindəki iş kitabını seçin.

Nəhayət, Seçilmiş Makro -u işə salın.

Beləliklə, o, sonuncu sıra nömrəsini göstərən mesaj qutusu açacaq.

Oxşar oxunuşlar:

  • VBA Excel-də Sütunda tapın (7 yanaşma)
  • VBA-dan istifadə edərək tapın və dəyişdirin (11) Yollar)
  • Excel-də VBA-dan istifadə edərək Dəqiq Uyğunluğu Tapın (5 üsul)
  • Excel-də VBA ilə sətirləri necə tapmaq olar (8 Nümunə)

4. Sonuncu sətri tapmaq üçün UsedRange-dən istifadə

Sonuncu sıranı tapmaq üçün iş vərəqinin UsedRange xassəsindən istifadə edə bilərsiniz. VBA istifadə edərək sıra.

İndi Developer tab >> sonra Visual Basic

Sonra Microsoft Visual Basic for Applications -ın yeni pəncərəsi açılacaq.

İndi Daxil et >> seçin Module

A Module açılacaq.

Sonra Module . 

5041

Burada mən LastRow_UsedRange adlı alt prosedur yaratdım, burada Long dəyişən növü LastRow elan edildi.

Sonra, müəyyən edildi ActiveSheet.UsedRange.Rows metodundan istifadə edən dəyişən, həmçinin ActiveSheet.UsedRange.Rows.Count parametri olaraq ActiveSheet.UsedRange.Rows təmin edir, bu, son sıra.

Nəticəni göstərmək üçün mesaj qutusundan istifadə etdim.

İndi kodu yadda saxla və iş vərəqinə qayıdın.

Sonra Görünüş tab >> Makrolardan >> seçin Makrolara baxın

Sonra dialoq qutusu açılacaq.

Sonra Makrodan ad LastRow_UsedRange seçin həmçinin Makrolar daxilindəki iş kitabını seçin.

Nəhayət, İşlə seçilmiş Makro .

Beləliklə, o, sonuncu sıra nömrəsini göstərən mesaj qutusu açacaq.

5. Sonuncunu tapmaq üçün Range.Find-dan istifadə edin. Sətir

Siz VBA istifadə edərək son sıranı tapmaq üçün Range.Find metodundan istifadə edə bilərsiniz.

İndi <2-ni açın>Developer tab >> sonra Visual Basic

Burada yeni Microsoft Visual Basic for Applications pəncərəsi açılacaq.

İndi <-dən 2>Daxil edin >> seçin Module

A Module açılacaq.

Sonra aşağıdakı kodu Module yazın. 

6779

Burada mən Range_Find_Method adlı alt prosedur yaratdım, burada Long dəyişən növü LastRow elan edilib .

Sonra Cells.Find metodundan istifadə edərək dəyişəni təyin etdi. Burada 7 elan edildiparametrlər. Hansı parametrindən istifadə etdim (“*”) ilk boş olmayan xananı tapacaq. A1 başlamaq üçün After parametrində diapazon kimi verilmişdir. LookAt parametrində xlPart xana daxilində mətnin istənilən hissəsinə baxmaq üçün.

LookIn:=xlFormulas parametri axtaracaq. düsturlar varsa. SearchOrder:=xlByRows parametr sağdan sola hərəkət edəcək və həmçinin boş olmayan xana tapana qədər hər cərgədə dönəcək.

MatchCase:=False parametr Tap -a böyük və ya kiçik hərfləri nəzərə almamağı əmr edəcək. Qeyri-boş tapılanda o dayanır və sətir nömrəsini qaytarır.

Nəticəni göstərmək üçün mesaj qutusundan istifadə etmişəm.

İndi kodu saxlayın. və iş vərəqinə qayıdın.

Burada Görünüş tab >> Makrolardan >> seçin Makrolara baxın

İndi dialoq qutusu açılacaq.

İndi Makro adı seçin Range_Tap_Metodu həmçinin Makrolar daxilindəki iş vərəqini seçin.

Nəhayət, Seçilmiş Makro -u işə salın.

Beləliklə, o, sonuncu sıra nömrəsini göstərən mesaj qutusu açacaq.

Nəticə

Bu məqalədə mən VBA Excel-də sonuncu cərgəni tapmağın 5 yolunu izah etdim. Sonuncu sıranı tapmaq üçün hər hansı bir üsula əməl edə bilərsiniz. Bu üsullarla bağlı hər hansı bir çaşqınlıq və ya sualınız varsa, edə bilərsinizaşağıda şərh edin.

Əvvəlki yazı Excel-də hər bir digər sətri necə seçmək olar (6 üsul)
Növbəti yazı Excel Cədvəlində Öz-özünə Məşğulluq Vergisi Kalkulyatoru (Asan Addımlarla Yaradın)

Hugh West sənayedə 10 ildən çox təcrübəyə malik yüksək təcrübəli Excel təlimçisi və analitikidir. Mühasibat uçotu və maliyyə üzrə bakalavr dərəcəsi və Biznesin idarə edilməsi üzrə magistr dərəcəsinə malikdir. Hugh tədrisə həvəslidir və izləmək və başa düşmək asan olan unikal tədris yanaşması işləyib hazırlayıb. Onun Excel üzrə ekspert biliyi bütün dünyada minlərlə tələbə və mütəxəssisə öz bacarıqlarını təkmilləşdirməyə və karyeralarında üstün olmağa kömək etmişdir. Hugh öz bloqu vasitəsilə biliklərini dünya ilə bölüşür, fərdlərə və müəssisələrə öz potensiallarını tam şəkildə çatdırmaq üçün pulsuz Excel dərsləri və onlayn təlimlər təklif edir.