VBA मध्ये तुम्ही शेवटची पंक्ती शोधण्यासाठी वेगवेगळ्या पद्धती वापरू शकता. या लेखात, मी एक्सेलमध्ये शेवटची पंक्ती शोधण्यासाठी VBA च्या विविध पद्धती स्पष्ट करणार आहे.

हे स्पष्टीकरण दृश्यमान करण्यासाठी, मी नमुना डेटासेट वापरणार आहे. डेटासेटमध्ये विक्री माहितीचे प्रतिनिधित्व करणारे 4 स्तंभ आहेत. हे स्तंभ आहेत विक्री व्यक्ती, प्रदेश, उत्पादन, आणि किंमत .

सराव करण्यासाठी डाउनलोड करा

4147

येथे, मी LastRow_SpecialCells नावाची उप प्रक्रिया तयार केली आहे, जिथे Long प्रकार व्हेरिएबलचे LastRow घोषित केले आहे.

नंतर Range.SpecialCells पद्धत वापरून व्हेरिएबल परिभाषित केले. येथे, मी श्रेणी म्हणून स्तंभ A ( A:A ) वापरला आहे. SpecialCells च्या प्रकार पॅरामीटर म्हणून xlCellTypeLastCell प्रदान केले आहे, हे श्रेणीसाठी शेवटचा सेल देईल (या प्रकरणात, स्तंभातून A ).

मी परिणाम दर्शविण्यासाठी संदेश बॉक्स वापरला आहे.

त्यानंतर, सेव्ह करा कोड आणि परत जा वर्कशीट.

पुन्हा, पहा टॅब >> उघडा. मॅक्रो >> निवडा मॅक्रो पहा

नंतर, एक संवाद बॉक्स पॉप अप होईल.

<1

आता, मॅक्रो नावामधून LastRow_SpecialCells तसेच मॅक्रो मध्ये वर्कबुक निवडा.

शेवटी, निवडलेले मॅक्रो चालवा.

अशा प्रकारे, तो शेवटचा पंक्ती क्रमांक दर्शविणारा संदेश बॉक्स पॉप अप करेल.

2. रिकामे नसलेल्या सेलसाठी Rows.Count वापरणे

आपण VBA वापरून शेवटची पंक्ती शोधण्यासाठी Rows.Count पद्धत वापरू शकता. .

आता, डेव्हलपर टॅब उघडा >> नंतर Visual Basic

Microsoft Visual Basic for Applications ची एक नवीन विंडो पॉप अप होईल.

निवडा. आता, Insert >> मॉड्युल

A मॉड्युल निवडा.

नंतर खालील कोड <2 मध्ये लिहा>मॉड्युल .

2109

येथे, मी LastRow_NonEmpty नावाची उप प्रक्रिया तयार केली आहे, जिथे Long प्रकारचा व्हेरिएबल LastRow घोषित केले आहे.

आता, सेल(पंक्ती.गणना, 1) पहिल्या स्तंभात किती पंक्ती आहेत हे मोजेल. नंतर End(xlUp).पंक्ती वापरली आता एक्सेल श्रेणीमध्‍ये शेवटची वापरलेली पंक्ती सापडेल.

शेवटी, मी मेसेज बॉक्स दर्शविण्यासाठी वापरला आहे.परिणाम.

नंतर, कोड सेव्ह करा आणि वर्कशीटवर परत जा.

येथे, पहा टॅब >> उघडा. मॅक्रो >> निवडा मॅक्रो पहा

आता, एक संवाद बॉक्स पॉप अप होईल.

नंतर, मॅक्रो नाव मधून LastRow_NonEmpty तसेच मॅक्रो मधील वर्कबुक निवडा.

शेवटी, निवडलेले मॅक्रो चालवा.

अशा प्रकारे, तो शेवटचा पंक्ती क्रमांक दर्शविणारा संदेश बॉक्स पॉप अप करेल.

3. कोणत्याही निवडलेल्या स्तंभासाठी Rows.Count वापरणे

VBA, मधील कोणताही निवडलेला स्तंभ वापरून तुम्ही शेवटची पंक्ती शोधू शकता.

प्रथम , डेव्हलपर टॅब उघडा >> नंतर Visual Basic

Microsoft Visual Basic for Applications ची नवीन विंडो पॉप अप होईल.

निवडा. आता, Insert >> मॉड्युल

A मॉड्युल निवडा.

नंतर खालील कोड <2 मध्ये लिहा>मॉड्युल .

8076

येथे, मी LastRow_AnyColumn नावाची उप प्रक्रिया तयार केली आहे, जिथे Long प्रकारचा व्हेरिएबल LastRow घोषित केले गेले आहे.

नंतर, श्रेणी स्तंभ B एक पॅरामीटर म्हणून दिलेला आहे आणि तसेच पंक्ती.गणना , हे दिलेल्या स्तंभ B मध्ये किती पंक्ती आहेत ते मोजेल. पुढे, End(xlup) वापरले. पंक्ती जी एक्सेल श्रेणीमध्ये शेवटची वापरलेली पंक्ती शोधेल.

शेवटी, मी दर्शविण्यासाठी मेसेज बॉक्स वापरला आहेपरिणाम.

पुढे, कोड सेव्ह करा आणि वर्कशीटवर परत जा.

नंतर, पहा टॅब उघडा >> मॅक्रो >> निवडा मॅक्रो पहा

येथे, एक संवाद बॉक्स पॉप अप होईल.

<1

आता, मॅक्रो नावामधून LastRow_AnyColumn तसेच मॅक्रो मधील वर्कबुक निवडा.

शेवटी, निवडलेले मॅक्रो चालवा.

अशा प्रकारे, तो शेवटचा पंक्ती क्रमांक दर्शविणारा संदेश बॉक्स पॉप अप करेल.

समान रीडिंग्स:

• VBA Excel मध्ये कॉलममध्ये शोधा (7 दृष्टीकोन)
• VBA वापरून शोधा आणि बदला (11) मार्ग)
• एक्सेलमध्ये VBA वापरून अचूक जुळणी शोधा (5 मार्ग)
• एक्सेलमध्ये VBA सह स्ट्रिंग कशी शोधावी (8 उदाहरणे)

4. शेवटची पंक्ती शोधण्यासाठी UsedRange वापरणे

तुम्ही शेवटची पंक्ती शोधण्यासाठी वर्कशीटची UsedRange गुणधर्म वापरू शकता. VBA वापरून पंक्ती.

आता, डेव्हलपर टॅब >> उघडा. नंतर Visual Basic

नंतर, Microsoft Visual Basic for Applications ची नवीन विंडो पॉप अप होईल.

आता, इन्सर्ट >> वरून मॉड्युल

A मॉड्युल निवडा.

नंतर, खालील कोड <मध्ये लिहा 2>मॉड्युल .

9631

येथे, मी LastRow_UsedRange नावाची उप प्रक्रिया तयार केली आहे, जिथे Long प्रकारचा व्हेरिएबल LastRow घोषित केले आहे.

पुढे, परिभाषित करा ActiveSheet.UsedRange.Rows पद्धत वापरून व्हेरिएबल देखील प्रदान केले आहे ActiveSheet.UsedRange.Rows.Rows च्या पॅरामीटर म्हणून ActiveSheet.UsedRange.Rows.Count , हे परत करेल शेवटची पंक्ती.

मी परिणाम दर्शविण्यासाठी संदेश बॉक्स वापरला आहे.

आता, सेव्ह कोड आणि वर्कशीटवर परत जा.

नंतर, पहा टॅब उघडा >> मॅक्रो >> निवडा मॅक्रो पहा

पुढे, एक संवाद बॉक्स पॉप अप होईल.

नंतर, मॅक्रो वरून नाव LastRow_UsedRange तसेच मॅक्रो मधील मध्ये वर्कबुक निवडा.

शेवटी, चालवा निवडलेले मॅक्रो >.

अशा प्रकारे, शेवटचा पंक्ती क्रमांक दर्शविणारा संदेश बॉक्स पॉप अप करेल.

5. रेंज वापरणे.अंतिम शोधण्यासाठी शोधा पंक्ती

आपण VBA वापरून शेवटची पंक्ती शोधण्यासाठी श्रेणी. शोधा पद्धत वापरू शकता.

आता, <2 उघडा>विकासक टॅब >> नंतर Visual Basic

येथे, Microsoft Visual Basic for Applications ची एक नवीन विंडो पॉप अप होईल.

आता, वरून घाला >> Module

A Module ओपन होईल.

नंतर Module मध्ये खालील कोड लिहा.

7400

येथे, मी Range_Find_Method नावाची उप प्रक्रिया तयार केली आहे, जिथे Long प्रकारचा व्हेरिएबल LastRow घोषित केला आहे. .

नंतर Cells.Find पद्धत वापरून व्हेरिएबल परिभाषित केले. येथे, 7 घोषित केलेपॅरामीटर्स मी कोणते पॅरामीटर वापरले (“*”) ज्यामध्ये पहिला नॉन-रिक्त सेल सापडेल. A1 प्रारंभ करण्यासाठी नंतर पॅरामीटरमध्ये श्रेणी म्हणून दिले. सेलमधील मजकूराचा कोणताही भाग पाहण्यासाठी LookAt प्रचलित xlPart पॅरामीटरमध्ये.

LookIn:=xlFormulas पॅरामीटर शोधेल सूत्रे असतील तर. SearchOrder:=xlByRows पॅरामीटर उजवीकडून डावीकडे सरकेल आणि रिकामे नसलेला सेल सापडेपर्यंत प्रत्येक पंक्तीमधून लूप अप देखील होईल.

MatchCase:=False पॅरामीटर शोधा वरच्या किंवा लहान अक्षरांचा विचार करू नये हे सांगेल. रिक्त नसलेले आढळल्यास ते थांबते आणि पंक्ती क्रमांक परत करते.

मी परिणाम दर्शविण्यासाठी संदेश बॉक्स वापरला आहे.

आता, सेव्ह कोड आणि वर्कशीटवर परत जा.

येथे, पहा टॅब >> उघडा. मॅक्रो >> निवडा मॅक्रो पहा

आता, एक संवाद बॉक्स पॉप अप होईल.

आता, मॅक्रो नावामधून श्रेणी_शोध_पद्धती तसेच मॅक्रो मधील वर्कशीट निवडा.

शेवटी, निवडलेले मॅक्रो चालवा.

अशा प्रकारे, तो शेवटचा पंक्ती क्रमांक दर्शविणारा संदेश बॉक्स पॉप अप करेल.

निष्कर्ष

या लेखात, मी एक्सेलमधील शेवटची पंक्ती VBA शोधण्याचे ५ मार्ग स्पष्ट केले आहेत. शेवटची पंक्ती शोधण्यासाठी तुम्ही कोणत्याही पद्धतीचा अवलंब करू शकता. या पद्धतींबाबत तुम्हाला काही गोंधळ किंवा प्रश्न असल्यास तुम्ही करू शकताखाली टिप्पणी द्या.