VBA Excelda oxirgi qatorni toping (5 usul)

Hugh West

16-10-2023 Makroslar va amp; Excel VBA
  • Buni Baham Ko'Ring
Hugh West

VBA-da siz oxirgi qatorni topish uchun turli usullardan foydalanishingiz mumkin. Ushbu maqolada men Excelda VBA oxirgi qatorini topishning turli usullarini tushuntirib beraman.

Ushbu tushuntirishni ko'rinadigan qilish uchun men namunaviy ma'lumotlar to'plamidan foydalanaman. Ma'lumotlar to'plamida savdo ma'lumotlarini ifodalovchi 4 ta ustun mavjud. Bu ustunlar Sotuvchi, hudud, mahsulot, va Narx .

Amaliyot uchun yuklab oling

VBA Oxirgi qatorni top.xlsm

Excelda VBA oxirgi qatorni topish usullari

1. SpecialCells-dan foydalanish Oxirgi qatorni topish uchun

Siz VBA yordamida oxirgi qatorni topish uchun SpecialCells usulidan foydalanishingiz mumkin.

Birinchi navbatda Tuzuvchini oching tab >> keyin Visual Basic

yangi Microsoft Visual Basic for Applications oynasi ochiladi.

Endi, Insert >> tanlang Module

A Module ochiladi.

Keyin <2-ga quyidagi kodni yozing>Module . 

4008

Bu yerda men LastRow_SpecialCells deb nomlangan quyi protsedura yaratdim, bu erda Long turi LastRow o'zgaruvchisi e'lon qilindi.

Keyin Range.SpecialCells usuli yordamida o'zgaruvchi aniqlandi. Bu erda men diapazon sifatida A ( A:A ) ustunidan foydalandim. SpecialCells turi parametri sifatida xlCellTypeLastCell taqdim etilgan bo'lsa, bu diapazon uchun oxirgi katakchani qaytaradi (bu holatda, ustundan boshlab) A ).

Natijani ko'rsatish uchun xabarlar oynasidan foydalandim.

Shundan so'ng, Kodni saqlang va sahifaga qayting. ish varag'i.

Yana Ko'rish yorlig'ini >> dan Makrolar >> Makroslarni ko'rish

-ni tanlang. Keyin muloqot oynasi ochiladi.

Endi, Makro nomi dan LastRow_SpecialCells shuningdek Makrolar ichidagi ishchi kitobni tanlang.

Nihoyat, tanlangan Makro ni ishga tushiring.

Shunday qilib, u oxirgi qator raqamini ko'rsatadigan xabar oynasini ochadi.

2. Bo'sh bo'lmagan katakchalar uchun Rows.Count dan foydalanish

Siz VBA yordamida oxirgi qatorni topish uchun Rows.Count usulidan foydalanishingiz mumkin. .

Endi, Dasturchi yorlig'ini >> keyin Visual Basic

-ni tanlang Microsoft Visual Basic for Applications yangi oynasi ochiladi.

Endi, Insert >> tanlang Module

A Module ochiladi.

Keyin <2-ga quyidagi kodni yozing>Module . 

6277

Bu yerda men LastRow_NonEmpty nomli quyi protsedura yaratdim, bu erda Long o'zgaruvchisi LastRow. e'lon qilindi.

Endi CELLS(Rows.Count, 1) birinchi ustunda nechta qator borligini hisoblaydi. Keyin foydalanilgan End(xlUp).Row endi bu Excel diapazonidagi oxirgi ishlatilgan qatorni topadi.

Oxir-oqibat, men ko'rsatish uchun xabar oynasidan foydalandim.natija.

Keyin, Kodni saqlang va ish varag'iga qayting.

Bu yerda Ko'rish yorlig'ini >> dan Makrolar >> Makroslarni ko'rish

Endi muloqot oynasi ochiladi.

Keyin, Makro nomi dan LastRow_NonEmpty shuningdek, Makrolar ichidagi ishchi kitobni tanlang.

Nihoyat, tanlangan Makro ni ishga tushiring.

Shunday qilib, u oxirgi qator raqamini ko'rsatadigan xabar oynasini ochadi.

3. Har qanday tanlangan ustun uchun Rows.Count dan foydalanish

VBA-da tanlangan ustundan foydalanib, oxirgi qatorni topishingiz mumkin.

Birinchi navbatda , Dasturchi yorlig'ini >> keyin Visual Basic

yangi Microsoft Visual Basic for Applications oynasi ochiladi.

Endi, Insert >> tanlang Module

A Module ochiladi.

Keyin <2-ga quyidagi kodni yozing>Module . 

2874

Bu yerda men LastRow_AnyColumn nomli quyi protsedura yaratdim, bu erda Long o'zgaruvchisi LastRow. e'lon qilindi.

Keyin, Diapazonda ustun berilgan B parametr sifatida, shuningdek Rows.Count , bu berilgan ustunda nechta satr borligini hisoblaydi B . Keyinchalik, End(xlup) ishlatiladi. Qator , bu Excel diapazonidagi oxirgi ishlatilgan qatorni topadi.

Oxirgi marta men xabarlar oynasidan foydalandim.natija.

Keyin, Kodni saqlang va ish varag'iga qayting.

Keyin, Ko'rish yorlig'ini >> dan Makrolar >> tanlang Makroslarni ko'rish

Bu yerda muloqot oynasi ochiladi.

Endi, Makro nomi dan LastRow_AnyColumn shuningdek, Makrolar ichidagi ishchi kitobni tanlang.

Nihoyat, tanlangan Makro ni ishga tushiring.

Shunday qilib, u oxirgi qator raqamini ko'rsatadigan xabar oynasini ochadi.

O'xshash o'qishlar:

  • VBA Excel ustunidan toping (7 yondashuv)
  • VBA (11) yordamida toping va almashtiring Yo'llar)
  • Excelda VBA-dan foydalanib aniq moslikni toping (5 usul)
  • Excelda VBA-dan stringni qanday topish mumkin (8 ta misol)

4. Oxirgi qatorni topish uchun UsedRange dan foydalanish

Oxirgi qatorni topish uchun ishchi varaqning UsedRange xususiyatidan foydalanishingiz mumkin. VBA -dan foydalanib qator.

Endi, Tuzuvchi yorlig'ini >> keyin Visual Basic

-ni tanlang. Keyin Microsoft Visual Basic for Applications yangi oynasi ochiladi.

Endi, Qo'shish >> Module

A Module ochiladi.

Keyin, <-ga quyidagi kodni yozing. 2>Module . 

9615

Bu yerda men LastRow_UsedRange nomli quyi protsedura yaratdim, bu erda Long o'zgaruvchisi LastRow e'lon qilindi.

Keyingi, belgilandi ActiveSheet.UsedRange.Rows usuli yordamida o'zgaruvchi, shuningdek, ActiveSheet.UsedRange.Rows.Count ni ActiveSheet.UsedRange.Rows parametri sifatida taqdim etadi, bu esa qaytaradi oxirgi qator.

Natijani koʻrsatish uchun xabarlar oynasidan foydalandim.

Endi, Kodni saqlab, ish varagʻiga qayting.

Keyin, Koʻrish yorligʻini >> dan Makrolar >> Makrolarni ko'rish

Keyingi, muloqot oynasi ochiladi.

Keyin, Makrodan nom LastRow_UsedRange-ni tanlang shuningdek Makrolar ichidagi ishchi kitobni tanlang.

Nihoyat, Ishga tushirish tanlangan Makro .

Shunday qilib, oxirgi qator raqami ko'rsatilgan xabar oynasi ochiladi.

5. Oxirgi qatorni topish uchun Range.Find-dan foydalanish Qator

Siz VBA yordamida oxirgi qatorni topish uchun Range.Find usulidan foydalanishingiz mumkin.

Endi <2-ni oching>Dasturchi tab >> keyin Visual Basic

Bu yerda Microsoft Visual Basic for Applications yangi oynasi ochiladi.

Endi, Qo'shish >> tanlang Module

A Module ochiladi.

Keyin Module ga quyidagi kodni yozing. 

8595

Bu yerda men Range_Find_Method nomli quyi protsedura yaratdim, bu yerda Long o'zgaruvchining turi LastRow e'lon qilingan. .

Keyin Cells.Find usuli yordamida oʻzgaruvchini aniqladi. Bu erda, e'lon qilingan 7parametrlari. Qaysi parametrdan foydalandim (“*”) birinchi bo'sh bo'lmagan katakchani topadi. A1 boshlash uchun After parametridagi diapazon sifatida berilgan. Hujayra ichidagi matnning istalgan qismini ko'rish uchun LookAt parametrida xlPart .

LookIn:=xlFormulas parametri quyidagini qidiradi. formulalar mavjud bo'lsa. SearchOrder:=xlByRows parametri oʻngdan chapga siljiydi va boʻsh boʻlmagan katak topguncha har bir satr boʻylab yuqoriga aylanadi.

MatchCase:=False parametr Find ga katta yoki kichik harflarni hisobga olmaslikni aytadi. Bo'sh joy topilsa, u to'xtaydi va qator raqamini qaytaradi.

Men natijani ko'rsatish uchun xabar oynasidan foydalandim.

Endi Kodni saqlang. va ish varag'iga qayting.

Bu yerda Ko'rish yorlig'ini >> dan Makrolar >> Makroslarni ko'rish

Endi muloqot oynasi ochiladi.

Endi, Makro nomi dan Range_Find_method shuningdek, Makrolar ichidagi ishchi varaqni tanlang.

Nihoyat, tanlangan Makro ni ishga tushiring.

Shunday qilib, u oxirgi qator raqamini ko'rsatadigan xabar oynasini ochadi.

Xulosa

Ushbu maqolada men VBA Excelda oxirgi qatorni topishning 5 ta usulini tushuntirdim. Oxirgi qatorni topish uchun har qanday usullardan foydalanishingiz mumkin. Agar sizda ushbu usullar bo'yicha chalkashlik yoki savol bo'lsa, mumkinquyida izoh qoldiring.

Oldingi xabar Excelda boshqa har bir qatorni qanday tanlash mumkin (6 usul)
Keyingi post Excel elektron jadvalida mustaqil ish uchun soliq kalkulyatori (oson qadamlar bilan yarating)

Hugh West - bu sohada 10 yildan ortiq tajribaga ega bo'lgan yuqori tajribali Excel treneri va tahlilchisi. Buxgalteriya hisobi va moliya yo‘nalishi bo‘yicha bakalavr va biznes boshqaruvi bo‘yicha magistr darajasiga ega. Xyu o'qitishga ishtiyoqi bor va unga amal qilish va tushunish oson bo'lgan o'ziga xos o'qitish usulini ishlab chiqdi. Uning Excel bo'yicha ekspert bilimlari butun dunyo bo'ylab minglab talabalar va mutaxassislarga o'z malakalarini oshirishga va o'z martabalarida muvaffaqiyat qozonishlariga yordam berdi. Xyu o'z blogi orqali o'z bilimlarini dunyo bilan baham ko'radi, jismoniy shaxslar va korxonalarga o'z salohiyatini to'liq ro'yobga chiqarishga yordam berish uchun bepul Excel darsliklari va onlayn treninglarni taklif qiladi.