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

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

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

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

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

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

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

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

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

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

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

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

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

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

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

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

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

सेल A14 में मान 5 है क्योंकि यह मानों वाला अंतिम कॉलम है।

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

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

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

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

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

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

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

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

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

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