مەزمۇن جەدۋىلى
VBA دا ئوخشىمىغان ئۇسۇللارنى ئىشلىتىپ ئاخىرقى قۇرنى تاپالايسىز. بۇ ماقالىدە مەن VBA نىڭ Excel دا ئاخىرقى قۇرنى تېپىشنىڭ ئوخشىمىغان ئۇسۇللىرىنى چۈشەندۈرمەكچى.
بۇ چۈشەندۈرۈشنى كۆرسىتىش ئۈچۈن ، مەن ئەۋرىشكە سانلىق مەلۇمات جەدۋىلىنى ئىشلىتىمەن. سانلىق مەلۇمات جەدۋىلىدە سېتىش ئۇچۇرىغا ۋەكىللىك قىلىدىغان 4 ئىستون بار. بۇ ئىستونلار ساتقۇچى ، رايون ، مەھسۇلات ، ۋە باھاسى .
مەشىق قىلىش ئۈچۈن چۈشۈرۈش
VBA ئەڭ ئاخىرقى قۇرنى تېپىش. Xlsmئاخىرقى قۇرنى تېپىش
سىز VC ئارقىلىق ئاخىرقى قۇرنى تېپىش ئۈچۈن SpecialCells ئۇسۇلىنى قوللانسىڭىز بولىدۇ.
ئالدى بىلەن ، ئاچقۇچىنى ئېچىڭ. بەتكۈچ & gt; & gt; ئاندىن Visual Basic
نى تاللاڭ Microsoft Visual Basic قوللىنىشچان پروگراممىلار نىڭ يېڭى كۆزنىكى چىقىدۇ.
ھازىر ، دىن & gt; & gt; بۆلەك
A مودۇل ئېچىلىدۇ.
ئاندىن تۆۋەندىكى كودنى <2 گە يېزىڭ> مودۇل.
9432ئۆزگەرگۈچى مىقدار LastRow ئېلان قىلىندى.
ئاندىن Range.SpecialCells ئۇسۇلى ئارقىلىق ئۆزگەرگۈچى مىقدارنى بەلگىلىدى. بۇ يەردە ، مەن A ( A: A ) نى ئىستون قىلىپ ئىشلەتتىم. xlCellTypeLastCell نى SpecialCells نىڭ تىپى پارامېتىرى بىلەن تەمىنلىگەندە ، بۇ دائىرىنىڭ ئاخىرقى كاتەكچىسىنى قايتۇرىدۇ (بۇ ئەھۋال ئۈچۈن ، ئىستوندىن) A ).
مەن ئۇچۇر ساندۇقىنى ئىشلىتىپ نەتىجىنى كۆرسەتتىم. خىزمەت جەدۋىلى.
يەنە ، كۆرۈش بەتكۈچىنى ئېچىڭ & gt; & gt; دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
نى تاللاڭ ، ئاندىن سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن LastRow_SpecialCells نى تاللاڭ ، دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، تاللانغان تاللانغان ماكرو نى ئىجرا قىلىڭ.
شۇنداق قىلىپ ، ئۇ ئاخىرقى قۇر نومۇرىنى كۆرسىتىدىغان ئۇچۇر قۇتىسى چىقىدۇ. 2. قۇر ئىشلىتىش. بوش بولمىغان ھۈجەيرىلەرنى ھېسابلاش
سىز قۇر. ھېسابلاش ئۇسۇلىنى ئىشلىتىپ ، VBA ئارقىلىق ئاخىرقى قۇرنى تاپالايسىز. .
ھازىر ، ئاچقۇچى بەتكۈچىنى ئېچىڭ & gt; & gt; ئاندىن Visual Basic
نى تاللاڭ Microsoft Visual Basic قوللىنىشچان پروگراممىلار نىڭ يېڭى كۆزنىكى چىقىدۇ.
ھازىر ، دىن & gt; & gt; بۆلەك
A بۆلەك ئېچىلىدۇ.
ئاندىن تۆۋەندىكى كودنى <2 گە يېزىڭ> مودۇل. ئېلان قىلىندى.
ھازىر ، CELLS (قۇر. ھېسابلاش ، 1) بىرىنچى ئىستوندا قانچە قۇر بارلىقىنى سانايدۇ. ئاندىن End (xlUp) نى ئىشلىتىڭ. ھازىر قۇر ، بۇ Excel دائىرىسىدە ئەڭ ئاخىرقى ئىشلىتىلگەن قۇرنى تاپالايدۇ.
ئاخىرىدا ، مەن ئۇچۇر رامكىسى ئىشلىتىپ ، كۆرسەتمەكچىنەتىجە.
ئاندىن ، كودنى ساقلاڭ ۋە خىزمەت جەدۋىلىگە قايتىڭ. دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
نى تاللاڭ ، ھازىر ، سۆزلىشىش رامكىسى چىقىدۇ.
ئاندىن ، ماكرو ئىسمى دىن LastRow_NonEmpty نى تاللاڭ دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، تاللانغان تاللانغان ماكرو نى ئىجرا قىلىڭ.
شۇنداق قىلىپ ، ئۇ ئاخىرقى قۇر نومۇرىنى كۆرسىتىدىغان ئۇچۇر قۇتىسى چىقىدۇ. <2 ، ئاچقۇچى بەتكۈچىنى ئېچىڭ & gt; & gt; ئاندىن Visual Basic
نى تاللاڭ Microsoft Visual Basic قوللىنىشچان پروگراممىلار نىڭ يېڭى كۆزنىكى چىقىدۇ.
ھازىر ، دىن & gt; & gt; بۆلەك
A بۆلەك ئېچىلىدۇ.
ئاندىن تۆۋەندىكى كودنى <2 گە يېزىڭ> مودۇل. ئېلان قىلىندى. بېرىلگەن ئىستوندا قانچە قۇر بارلىقىنى سانايدۇ B . كېيىنكى ، ئىشلىتىلگەن End (xlup). Excel دائىرىسىدە ئەڭ ئاخىرقى ئىشلىتىلگەن قۇرنى تاپقىلى بولىدىغان قۇر .نەتىجە. دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
نى تاللاڭ ، بۇ يەردە سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن LastRow_AnyColumn نى تاللاڭ ، دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، تاللانغان تاللانغان ماكرو نى ئىجرا قىلىڭ.
شۇنداق قىلىپ ، ئۇ ئاخىرقى قۇر نومۇرىنى كۆرسىتىدىغان ئۇچۇر قۇتىسى چىقىدۇ. مۇشۇنىڭغا ئوخشاش ئوقۇشلۇقلار:
- VBA Excel دىكى ئىستوندىن تېپىش (7 خىل ئۇسۇل)
- ئۇسۇللار)
- Excel دىكى VBA نى ئىشلىتىپ ھەقىقىي مۇسابىقىنى تېپىڭ (5 خىل ئۇسۇل) 5> قۇر VBA نى ئىشلىتىپ قۇر.
ھازىر ، ئاچقۇچى بەتكۈچىنى ئېچىڭ & gt; & gt; ئاندىن Visual Basic
نى تاللاڭ ، ئاندىن Microsoft Visual Basic قوللىنىشچان پروگراممىلارنىڭ يېڭى كۆزنىكى ئېچىلىدۇ.
ھازىر ، دىن & gt; & gt; بۆلەك
A بۆلەك ئېچىلىدۇ.
ئاندىن ، تۆۋەندىكى كودنى مودۇل . LastRow ئېلان قىلىندى.
كېيىنكى قەدەمدەئۆزگەرگۈچى مىقدار ActiveSheet. ئاخىرقى قۇر.
مەن ئۇچۇر ساندۇقىنى ئىشلىتىپ نەتىجىنى كۆرسەتتىم> ئاندىن ، كۆرۈش بەتكۈچىنى ئېچىڭ & gt; & gt; دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
نى تاللاڭ ، كېيىنكى قەدەمدە ، سۆزلىشىش رامكىسى چىقىدۇ.
ئاندىن ، ماكرودىن ئىسمى LastRow_UsedRange نى تاللاڭ دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، تاللانغان ماكرو <5 نى ئىجرا قىلىڭ>.
شۇنداق قىلىپ ، ئۇ ئەڭ ئاخىرقى قۇر نومۇرىنى كۆرسىتىدىغان ئۇچۇر قۇتىسى چىقىدۇ. قۇر
سىز دائىرە. ئۇسۇلىنى تېپىپ ، VBA ئارقىلىق ئاخىرقى قۇرنى تاپالايسىز.
ھازىر ، <2 نى ئېچىڭ> ئاچقۇچى بەتكۈچ & gt; & gt; ئاندىن Visual Basic
نى تاللاڭ ، بۇ يەردە Microsoft Visual Basic قوللىنىشچان پروگراممىلار نىڭ يېڭى كۆزنىكى ئېچىلىدۇ.
ھازىر ، <دىن 2> & gt; & gt; بۆلەكنى تاللاڭ
A بۆلەك ئېچىلىدۇ.
ئاندىن تۆۋەندىكى كودنى بۆلەك گە يېزىڭ.
7057
بۇ يەردە ، مەن Range_Find_Method دەپ ئاتىلىدىغان تارماق تەرتىپنى قۇردىم ، بۇ يەردە ئۇزۇن ئۆزگەرگۈچى مىقدار LastRow ئېلان قىلىندى. .
ئاندىن ئۆزگەرگۈچى مىقدارنى كاتەكچىلەر ئارقىلىق تېپىڭ. تېپىش. بۇ يەردە ، 7 دەپ ئېلان قىلىندىپارامېتىرلىرى. مەن ئىشلەتكەن پارامېتىردا («*») تۇنجى بوش بولمىغان كاتەكچىنى تاپالايدۇ. A1 نى باشلاش ئۈچۈن پارامېتىردىن كېيىنكى دائىرىسى. LookAt پارامېتىرىدا xlPart تەمىنلەنگەن بولۇپ ، تېكستنىڭ كاتەكچىنىڭ ئىچىدىكى ھەر قانداق يېرىنى كۆرگىلى بولىدۇ.
LookIn: = xlFormulas پارامېتىرى ئىزدەيدۇ ئەگەر بار بولسا فورمۇلا. SearchOrder: = xlByRows پارامېتىرى ئوڭدىن سولغا يۆتكىلىدۇ ، شۇنداقلا بوش بولمىغان كاتەكچىنى تاپقۇچە ھەر بىر قۇردىن ھالقىپ ئۆتىدۇ.
پارامېتىر تېپىش نى چوڭ ياكى كىچىك ھەرپلەرنى ئويلاشماسلىقنى ئېيتىدۇ. بوش بولمىغان تېپىلغاندا ئۇ توختاپ رەت نومۇرىنى قايتۇرىدۇ.
مەن ئۇچۇر ساندۇقىنى ئىشلىتىپ نەتىجىنى كۆرسەتتىم.
ھازىر ، كودنى ساقلاڭ ۋە خىزمەت جەدۋىلىگە قايتىڭ.
بۇ يەردە ، كۆرۈش بەتكۈچىنى ئېچىڭ & gt; & gt; دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
نى تاللاڭ ، ھازىر ، سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن Range_Find_Method نى تاللاڭ ، دىكى ماكرو ئىچىدىكى خىزمەت جەدۋىلىنى تاللاڭ.
ئاخىرىدا ، تاللانغان تاللانغان ماكرو نى ئىجرا قىلىڭ.
شۇنداق قىلىپ ، ئۇ ئاخىرقى قۇر نومۇرىنى كۆرسىتىدىغان ئۇچۇر قۇتىسى چىقىدۇ. خۇلاسە
بۇ ماقالىدە ، Excel دىكى ئەڭ ئاخىرقى قۇرنى تېپىش ئۈچۈن VBA نىڭ 5 خىل ئۇسۇلىنى چۈشەندۈردۈم. ئاخىرقى قۇرنى تېپىش ئۈچۈن ھەر قانداق ئۇسۇلنى قوللانسىڭىز بولىدۇ. بۇ ئۇسۇللارغا قارىتا سىزدە قالايمىقانچىلىق ياكى سوئال بولسائاستىغا باھا بېرىڭ.
