वीबीए: अंतिम प्रयुक्त पंक्ति कैसे खोजें

एक्सेल शीट में अंतिम उपयोग की गई पंक्ति को खोजने के लिए आप VBA में निम्नलिखित मूल सिंटैक्स का उपयोग कर सकते हैं:

 Sub FindLastRow()
Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
End Sub

यह विशेष उदाहरण वर्तमान शीट में उपयोग की गई अंतिम पंक्ति की खोज करता है और परिणाम को सेल D2 में लौटाता है।

यदि आप इसके बजाय किसी संदेश बॉक्स की अंतिम पंक्ति प्रदर्शित करना चाहते हैं, तो आप निम्न सिंटैक्स का उपयोग कर सकते हैं:

 Sub FindLastRow()
Dim LastRow As Long
    
LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row

MsgBox " Last Row: " & LastRow
End Sub

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में इनमें से प्रत्येक विधि का उपयोग कैसे करें।

उदाहरण 1: वीबीए का उपयोग करके अंतिम पंक्ति ढूंढें और सेल में परिणाम प्रदर्शित करें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित डेटासेट है जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी है:

हम इस एक्सेल शीट में प्रयुक्त अंतिम पंक्ति को खोजने और सेल D2 में परिणाम प्रदर्शित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub FindLastRow()
Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल D2 में मान 11 है।

यह हमें बताता है कि इस विशेष शीट में प्रयुक्त अंतिम पंक्ति पंक्ति 11 है।

यह भी ध्यान देने योग्य है कि यदि आपके पास प्रयुक्त सेल से पहले खाली सेल हैं, तो यह मैक्रो हमेशा अंतिम प्रयुक्त पंक्ति ढूंढेगा।

उदाहरण के लिए, मान लीजिए कि हम मैक्रो को निम्नलिखित डेटासेट पर चलाते हैं:

सेल डी2 में 16 का मान है क्योंकि यह मान वाली अंतिम पंक्ति है।

उदाहरण 2: वीबीए का उपयोग करके अंतिम पंक्ति ढूंढें और परिणाम संदेश बॉक्स में प्रदर्शित करें

मान लीजिए कि इसके बजाय हम एक शीट में अंतिम उपयोग की गई पंक्ति ढूंढना चाहते हैं और पंक्ति संख्या को एक संदेश बॉक्स में प्रदर्शित करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub FindLastRow()
Dim LastRow As Long
    
LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row

MsgBox " Last Row: " & LastRow
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

संदेश बॉक्स हमें बताता है कि शीट में प्रयुक्त अंतिम पंक्ति पंक्ति 11 है।

नोट : आप वीबीए फाइंड विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: रेंज के औसत मूल्य की गणना कैसे करें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
वीबीए: रेंज में डुप्लिकेट मान कैसे हटाएं