विषयसूची
वीबीए में आप अंतिम पंक्ति को खोजने के लिए विभिन्न तरीकों का उपयोग कर सकते हैं। इस लेख में, मैं VBA के विभिन्न तरीकों की व्याख्या करने जा रहा हूँ, एक्सेल में अंतिम पंक्ति खोजता हूँ।
इस स्पष्टीकरण को दृश्यमान बनाने के लिए, मैं एक नमूना डेटासेट का उपयोग करने जा रहा हूँ। बिक्री जानकारी का प्रतिनिधित्व करने वाले डेटासेट में 4 कॉलम हैं। ये कॉलम हैं सेल्स पर्सन, रीजन, प्रोडक्ट, और कीमत ।
अभ्यास करने के लिए डाउनलोड करें
VBA अंतिम पंक्ति खोजें.xlsm
VBA के तरीके Excel में अंतिम पंक्ति खोजें
1. SpecialCells का उपयोग करना अंतिम पंक्ति खोजने के लिए
आप VBA का उपयोग करके अंतिम पंक्ति खोजने के लिए SpecialCells विधि का उपयोग कर सकते हैं।
सबसे पहले, डेवलपर खोलें टैब >> फिर विज़ुअल बेसिक
अनुप्रयोगों के लिए Microsoft Visual Basic की एक नई विंडो खुल जाएगी।
अब, Insert >> सेलेक्ट मॉड्यूल
एक मॉड्यूल खुल जाएगा।
फिर में निम्न कोड लिखें>मॉड्यूल ।
3010
यहां, मैंने LastRow_SpecialCells नामक एक उप प्रक्रिया बनाई है, जहां एक लंबा प्रकार वेरिएबल का LastRow घोषित किया गया है।
फिर Range.SpecialCells मेथड का उपयोग करके वेरिएबल को परिभाषित करें। यहां, मैंने कॉलम A ( A:A ) को श्रेणी के रूप में उपयोग किया है। प्रदान xlCellTypeLastCell SpecialCells के प्रकार पैरामीटर के रूप में, यह श्रेणी के लिए अंतिम सेल लौटाएगा (इस मामले के लिए, कॉलम से ए )।
मैंने परिणाम दिखाने के लिए एक संदेश बॉक्स का उपयोग किया है।
उसके बाद, कोड सहेजें और वापस जाएं वर्कशीट।
फिर से, देखें टैब >> मैक्रोज़ >> मैक्रोज़ देखें
चुनें, फिर डायलॉग बॉक्स पॉप अप होगा।
अब, मैक्रो नाम से LastRow_SpecialCells चुनें मैक्रोज़ इन के भीतर कार्यपुस्तिका भी चुनें।
अंत में, चयनित मैक्रो चलाएं।
इस प्रकार, यह अंतिम पंक्ति संख्या दिखाते हुए एक संदेश बॉक्स पॉप अप करेगा।
2. Rows.Count for Non-Empty Cells
का उपयोग करना आप Rows.Count विधि का उपयोग करके अंतिम पंक्ति को खोजने के लिए VBA का उपयोग कर सकते हैं .
अब, डेवलपर टैब >> फिर विज़ुअल बेसिक
अनुप्रयोगों के लिए Microsoft Visual Basic की एक नई विंडो खुल जाएगी।
अब, Insert >> सेलेक्ट मॉड्यूल
एक मॉड्यूल खुल जाएगा।
फिर में निम्न कोड लिखें>मॉड्यूल ।
3582
यहां, मैंने LastRow_NonEmpty नामक एक उप प्रक्रिया बनाई है, जहां एक लंबा प्रकार का चर LastRow घोषित कर दिया गया है।
अब, CELLS(Rows.Count, 1) पहले कॉलम में कितनी पंक्तियाँ हैं, इसकी गणना करेगा। फिर इस्तेमाल किया End(xlUp).Row अब यह एक एक्सेल रेंज में आखिरी इस्तेमाल की गई पंक्ति को ढूंढेगा।
अंत में, मैंने एक संदेश बॉक्स का इस्तेमाल किया है जो दिखाने के लिए हैपरिणाम।
फिर, कोड सहेजें और वर्कशीट पर वापस जाएं।
यहां, देखें टैब >> मैक्रोज़ >> मैक्रोज़ देखें
चुनें अब, एक डायलॉग बॉक्स पॉप अप होगा।
फिर, मैक्रो नाम से LastRow_NonEmpty चुनें मैक्रोज़ इन के भीतर कार्यपुस्तिका भी चुनें।
अंत में, चयनित मैक्रो चलाएं।
इस प्रकार, यह अंतिम पंक्ति संख्या दिखाते हुए एक संदेश बॉक्स पॉप अप करेगा।
3. Rows.Count for Any Selected Column
का उपयोग करके VBA में किसी भी चयनित कॉलम का उपयोग करके, आप अंतिम पंक्ति पा सकते हैं।
पहले , डेवलपर टैब >> फिर विज़ुअल बेसिक
अनुप्रयोगों के लिए Microsoft Visual Basic की एक नई विंडो खुल जाएगी।
अब, Insert >> सेलेक्ट मॉड्यूल
एक मॉड्यूल खुल जाएगा।
फिर में निम्न कोड लिखें>मॉड्यूल ।
3536
यहां, मैंने LastRow_AnyColumn नामक एक उप प्रक्रिया बनाई है, जहां एक लंबा चर का प्रकार LastRow घोषित किया गया है।
फिर, श्रेणी में कॉलम बी पैरामीटर के रूप में दिया गया है और साथ ही पंक्तियां। गणना , यह यह गिनेगा कि दिए गए कॉलम B में कितनी पंक्तियाँ हैं। इसके बाद, End(xlup) का इस्तेमाल किया। पंक्ति जो एक्सेल रेंज में अंतिम उपयोग की गई पंक्ति को खोजेगी।
अंत में, मैंने एक संदेश बॉक्स का उपयोग दिखाया हैपरिणाम।
अगला, कोड सहेजें और वर्कशीट पर वापस जाएं।
फिर, देखें टैब >> मैक्रोज़ >> मैक्रोज़ देखें
चुनें, यहां डायलॉग बॉक्स पॉप अप होगा।
अब, मैक्रो नाम से LastRow_AnyColumn चुनें मैक्रोज़ इन के भीतर कार्यपुस्तिका भी चुनें।
अंत में, चयनित मैक्रो चलाएं।
इस प्रकार, यह अंतिम पंक्ति संख्या दिखाते हुए एक संदेश बॉक्स पॉप अप करेगा।
समान रीडिंग्स:
- एक्सेल में कॉलम में वीबीए फाइंड करें (7 दृष्टिकोण)
- वीबीए (11) का उपयोग करके ढूंढें और बदलें तरीके)
- Excel में VBA का उपयोग करके सटीक मिलान खोजें (5 तरीके)
- Excel में VBA के साथ स्ट्रिंग कैसे खोजें (8 उदाहरण)
4. अंतिम पंक्ति को ढूँढने के लिए प्रयुक्त श्रेणी का उपयोग करना
आप अंतिम पंक्ति को खोजने के लिए वर्कशीट की प्रयुक्त श्रेणी संपत्ति का उपयोग कर सकते हैं VBA का उपयोग करते हुए पंक्ति।
अब, डेवलपर टैब >> फिर विज़ुअल बेसिक
चुनें, फिर अनुप्रयोगों के लिए Microsoft Visual Basic की एक नई विंडो खुल जाएगी।
अब, Insert >> चुनें मॉड्यूल
एक मॉड्यूल खोला जाएगा।
फिर, निम्नलिखित कोड को <में लिखें 2>मॉड्यूल ।
8814
यहां, मैंने LastRow_UsedRange नामक एक उप प्रक्रिया बनाई है, जहां एक लंबा चर का प्रकार LastRow घोषित किया गया है।
अगला, परिभाषित किया गया हैवेरिएबल ActiveSheet.UsedRange.Rows पद्धति का उपयोग करके ActiveSheet.UsedRange.Rows.Count को ActiveSheet.UsedRange.Rows के पैरामीटर के रूप में प्रदान किया गया, यह वापस आ जाएगा अंतिम पंक्ति।
मैंने परिणाम दिखाने के लिए एक संदेश बॉक्स का उपयोग किया है।
अब, कोड सहेजें और कार्यपत्रक पर वापस जाएं।
फिर, दृश्य टैब >> मैक्रोज़ >> चुनें मैक्रोज़ देखें
अगला, एक डायलॉग बॉक्स पॉप अप होगा।
फिर, मैक्रो से नाम LastRow_UsedRange चुनें मैक्रोज़ के भीतर कार्यपुस्तिका भी चुनें।
अंत में, चयनित मैक्रो चलाएं।>।
इस प्रकार, यह अंतिम पंक्ति संख्या दिखाते हुए एक संदेश बॉक्स पॉप अप करेगा।
5. रेंज का उपयोग करना। पंक्ति
आप रेंज.फाइंड विधि का उपयोग VBA का उपयोग करके अंतिम पंक्ति खोजने के लिए कर सकते हैं।
अब, <2 खोलें>डेवलपर टैब >> फिर विज़ुअल बेसिक
यहां, अनुप्रयोगों के लिए Microsoft Visual Basic की एक नई विंडो पॉप अप होगी।
अब, <से >> डालें सेलेक्ट मॉड्यूल
एक मॉड्यूल खुल जाएगा।
फिर मॉड्यूल में निम्न कोड लिखें।
4015
यहां, मैंने रेंज_फाइंड_मेथोड नामक एक उप प्रक्रिया बनाई है, जहां एक लंबा प्रकार का चर LastRow घोषित किया गया है .
फिर Cells.Find विधि का उपयोग करके चर को परिभाषित करें। यहाँ, घोषित 7पैरामीटर। क्या पैरामीटर में मैंने उपयोग किया ("*") जो पहले गैर-खाली सेल को खोजेगा। A1 दिया गया बाद प्रारंभ करने के लिए पैरामीटर में श्रेणी के रूप में। LookAt पैरामीटर में xlPart सेल के अंदर टेक्स्ट के किसी भी भाग को देखने के लिए प्रदान किया गया है।
LookIn:=xlFormulas पैरामीटर के लिए दिखेगा सूत्र यदि कोई हैं। SearchOrder:=xlByRows पैरामीटर दाएं-से-बाएं चलेगा और प्रत्येक पंक्ति के माध्यम से लूप अप करेगा जब तक कि यह एक गैर-खाली सेल नहीं पाता।
MatchCase:=False पैरामीटर फाइंड को अपर या लोअर केस अक्षरों पर विचार न करने के लिए कहेगा। जब एक गैर-रिक्त पाया जाता है तो यह बंद हो जाता है और पंक्ति संख्या लौटाता है।
मैंने परिणाम दिखाने के लिए एक संदेश बॉक्स का उपयोग किया है।
अब, सहेजें कोड और वर्कशीट पर वापस जाएं।
यहां, देखें टैब >> मैक्रोज़ >> मैक्रोज़ देखें
चुनें अब, एक डायलॉग बॉक्स पॉप अप होगा।
अब, मैक्रो नाम से Range_Find_Method चुनें मैक्रोज़ इन के भीतर वर्कशीट भी चुनें।
अंत में, चयनित मैक्रो चलाएं।
इस प्रकार, यह अंतिम पंक्ति संख्या दिखाते हुए एक संदेश बॉक्स पॉप अप करेगा।
निष्कर्ष
इस लेख में, मैंने VBA Excel में अंतिम पंक्ति खोजने के 5 तरीके बताए हैं। अंतिम पंक्ति खोजने के लिए आप किसी भी तरीके का पालन कर सकते हैं। यदि आपको इन विधियों के बारे में कोई भ्रम या प्रश्न है तो आप कर सकते हैंनीचे टिप्पणी करें।
