VBA Excel-ийн сүүлчийн мөрийг олох (5 арга)

Hugh West

16-10-2023 Макро & AMP; Excel VBA
  • Үүнийг Хуваалц
Hugh West

VBA дээр та сүүлийн мөрийг олохын тулд янз бүрийн аргыг ашиглаж болно. Энэ нийтлэлд би Excel-ийн сүүлийн мөрийг олох VBA аргуудын талаар тайлбарлах болно.

Энэ тайлбарыг харагдахуйц болгохын тулд би жишээ өгөгдлийн багц ашиглах болно. Өгөгдлийн багцад борлуулалтын мэдээллийг харуулсан 4 багана байна. Эдгээр багана нь Борлуулалтын ажилтан, Бүс нутаг, Бүтээгдэхүүн, ба Үнэ байна.

Дадлага хийхийн тулд татаж авах

VBA Сүүлийн мөрийг олох.xlsm

Excel дээр VBA-н сүүлчийн мөрийг олох арга

1. SpecialCells ашиглах Сүүлийн мөрийг олох

Та VBA ашиглан сүүлийн мөрийг олохын тулд SpecialCells аргыг ашиглаж болно.

Эхлээд Хөгжүүлэгчийг нээнэ үү. таб >> дараа нь Visual Basic

Microsoft Visual Basic for Applications -ийн шинэ цонх гарч ирнэ.

Одоо Оруулах >> Модуль

А Модуль нээгдэнэ.

Дараа нь <2-д дараах кодыг бичнэ үү>Модуль . 

9802

Энд би LastRow_SpecialCells нэртэй дэд процедурыг үүсгэсэн бөгөөд үүнд Урт төрлийн LastRow хувьсагчийг зарласан.

Дараа нь Range.SpecialCells аргыг ашиглан хувьсагчийг тодорхойлсон. Энд би A ( A:A ) баганыг муж болгон ашигласан. xlCellTypeLastCell -г SpecialCells -ийн төрлийн параметр болгон өгсөн бол энэ нь мужын сүүлчийн нүдийг буцаана (энэ тохиолдолд баганаас A ).

Би үр дүнг харуулахын тулд мессежийн хайрцаг ашигласан.

Үүний дараа Кодыг хадгалаад буцаж очно уу. ажлын хуудас.

Дахин Харах таб >> Макрос >> Макро харах

-г сонгосны дараа харилцах цонх гарч ирнэ.

Одоо Макро нэр аас LastRow_SpecialCells мөн Макрос доторх ажлын номыг сонгоно уу.

Эцэст нь сонгосон Макро -г ажиллуул.

Ингэснээр хамгийн сүүлийн мөрийн дугаарыг харуулсан мессежийн хайрцаг гарч ирнэ.

2. Хоосон бус нүдэнд Rows.Count ашиглах

Та Rows.Count аргыг VBA ашиглан сүүлийн мөрийг олох боломжтой. .

Одоо Хөгжүүлэгч таб >> дараа нь Visual Basic

Microsoft Visual Basic for Applications -ийн шинэ цонх гарч ирнэ.

Одоо Оруулах >> Модуль

А Модуль нээгдэнэ.

Дараа нь <2-д дараах кодыг бичнэ үү>Модуль . 

2886

Энд би LastRow_NonEmpty нэртэй дэд процедурыг үүсгэсэн бөгөөд энд Long төрлийн хувьсагч LastRow байна. зарласан.

Одоо CELLS(Rows.Count, 1) эхний баганад хэдэн мөр байгааг тоолох болно. Дараа нь ашигласан End(xlUp).Row одоо энэ нь Excel-ийн мужид хамгийн сүүлд ашигласан мөрийг олох болно.

Эцэст нь би мессежийн хайрцгийг харуулахын тулд ашигласан.үр дүн гарна.

Дараа нь Код хадгалаад ажлын хуудас руу буцна уу.

Энд Харах таб >> Макрос >> Макро харах

Одоо харилцах цонх гарч ирэх болно.

Дараа нь Макро нэр СүүлийнМөр_Хоосонгүй мөн Макро доторх ажлын номыг сонгоно уу.

Эцэст нь сонгосон Макро -г ажиллуул.

Ингэснээр хамгийн сүүлийн мөрийн дугаарыг харуулсан мессежийн хайрцаг гарч ирнэ.

3. Сонгосон баганад Rows.Count ашиглах

VBA-д сонгосон дурын баганыг ашигласнаар та сүүлийн мөрийг олох боломжтой.

Эхлээд , Хөгжүүлэгч табыг >> дараа нь Visual Basic

Microsoft Visual Basic for Applications -ийн шинэ цонх гарч ирнэ.

Одоо Оруулах >> Модуль

А Модуль нээгдэнэ.

Дараа нь <2-д дараах кодыг бичнэ үү>Модуль . 

6193

Энд би LastRow_AnyColumn нэртэй дэд процедурыг үүсгэсэн бөгөөд энд Long төрлийн хувьсагч LastRow байна. -г зарласан.

Дараа нь Мужийн багананд B параметр болон Мөр.Тоо -ыг өгөгдсөн. өгөгдсөн баганад хэдэн мөр байгааг тоолно 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>Модуль . 

7003

Энд би LastRow_UsedRange нэртэй дэд процедурыг үүсгэсэн бөгөөд энд Long төрлийн хувьсагч байна. LastRow -г зарласан.

Дараа нь,-г тодорхойлсон ActiveSheet.UsedRange.Rows аргыг ашиглан хувьсагч нь мөн ActiveSheet.UsedRange.Rows.Count -г ActiveSheet.UsedRange.Rows -ийн параметр болгон өгсөн бөгөөд энэ нь буцаана. сүүлийн мөр.

Би үр дүнг харуулахын тулд мессежийн хайрцаг ашигласан.

Одоо Кодыг хадгалаад ажлын хуудас руу буцна уу.

Дараа нь Харах таб >> Макрос >> Макро харах

Дараа нь харилцах цонх гарч ирэх болно.

Дараа нь Макро хэсгээс нэр LastRow_UsedRange мөн Macros in доторх ажлын номыг сонгоно уу.

Эцэст нь Ажиллуулах сонгосон Макро .

Тиймээс сүүлийн мөрийн дугаарыг харуулсан мессежийн хайрцаг гарч ирнэ.

5. Range.Find-г ашиглан сүүлчийнхийг нь олох Мөр

Та VBA ашиглан сүүлийн мөрийг олохын тулд Range.Find аргыг ашиглаж болно.

Одоо <2-г нээнэ үү>Хөгжүүлэгч таб >> дараа нь Visual Basic

Энд Microsoft Visual Basic for Applications -ийн шинэ цонх гарч ирнэ.

Одоо <-ээс 2>Оруулах >> сонго Модуль

А Модуль нээгдэнэ.

Дараа нь Модуль -д дараах кодыг бичнэ. 

3610

Энд би Range_Find_Method нэртэй дэд процедурыг үүсгэсэн бөгөөд үүнд Long төрлийн хувьсагч LastRow зарлагдсан байна. .

Дараа нь Cells.Find аргыг ашиглан хувьсагчийг тодорхойлсон. Энд 7-г зарлавпараметрүүд. Ямар параметрт би ашигласан (“*”) нь эхний хоосон бус нүдийг олох болно. A1 г эхлүүлэхийн тулд After параметрийн муж болгон өгсөн. LookAt параметрт xlPart нүд доторх текстийн аль нэг хэсгийг харах боломжтой.

LookIn:=xlFormulas параметр нь дараахыг хайх болно. хэрэв байгаа бол томъёо. SearchOrder:=xlByRows параметр нь баруунаас зүүн тийш шилжих бөгөөд хоосон бус нүдийг олох хүртэл мөр бүрийг давах болно.

MatchCase:=False параметр нь Find -г том эсвэл жижиг үсгийг авч үзэхгүй байхыг хэлэх болно. Хоосон бус зүйл олдвол зогсох ба мөрийн дугаарыг буцаана.

Би үр дүнг харуулахын тулд мессежийн хайрцаг ашигласан.

Одоо Кодыг хадгана уу. болон ажлын хуудас руу буцна уу.

Энд, Харах таб >> Макрос >> Макро харах

Одоо харилцах цонх гарч ирэх болно.

Одоо Макроны нэр аас Муж_хайх_арга мөн Макрос доторх ажлын хуудсыг сонгоно.

Эцэст нь сонгосон Макро -г ажиллуул.

Ингэснээр хамгийн сүүлийн мөрийн дугаарыг харуулсан мессежийн хайрцаг гарч ирнэ.

Дүгнэлт

Энэ нийтлэлд би VBA Excel-ийн сүүлчийн мөрийг олох 5 аргыг тайлбарласан. Та сүүлчийн мөрийг олохын тулд аль ч аргыг ашиглаж болно. Хэрэв танд эдгээр аргуудын талаар ямар нэгэн төөрөгдөл, асуулт байвал асууж болнодоор тайлбар бичнэ үү.

Өмнөх нийтлэл Excel-ийн бусад мөр бүрийг хэрхэн сонгох вэ (6 арга)
Дараагийн бичлэг Excel хүснэгт дэх хувиараа хөдөлмөр эрхлэлтийн татварын тооцоолуур (Хялбар алхамаар үүсгэх)

Хью Уэст бол салбартаа 10 гаруй жил ажилласан туршлагатай Excel-ийн сургагч багш, шинжээч юм. Нягтлан бодох бүртгэл, санхүүгийн чиглэлээр бакалавр, бизнесийн удирдлагын магистр зэрэгтэй. Хью багшлах сонирхолтой бөгөөд дагаж мөрдөх, ойлгоход хялбар заах өвөрмөц арга барилыг боловсруулсан. Түүний Excel-ийн мэдлэг чадвар нь дэлхий даяарх олон мянган оюутан, мэргэжилтнүүдэд ур чадвараа дээшлүүлж, ажил мэргэжлээрээ амжилт гаргахад тусалсан. Хью өөрийн блогоороо дамжуулан өөрийн мэдлэгээ дэлхийтэй хуваалцаж, Excel програмын үнэгүй зааварчилгаа, онлайн сургалтыг хувь хүмүүс болон бизнесүүдэд бүрэн дүүрэн ашиглахад нь туслах зорилгоор санал болгодог.