वीबीए: किसी कॉलम से अद्वितीय मान कैसे प्राप्त करें

आप Excel में किसी कॉलम से अद्वितीय मानों की सूची तुरंत प्राप्त करने के लिए VBA में AdvancedFilter फ़ंक्शन का उपयोग कर सकते हैं।

इसे करने का एक सामान्य तरीका यहां दिया गया है:

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

यह विशेष उदाहरण श्रेणी A1:A11 से अद्वितीय मानों की एक सूची निकालता है और उन्हें सेल E1 से प्रदर्शित करता है।

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

उदाहरण: VBA का उपयोग करके किसी कॉलम से अद्वितीय मान प्राप्त करें

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

मान लीजिए कि हम टीम कॉलम से अद्वितीय मानों की एक सूची निकालना चाहते हैं।

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

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

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

कॉलम ई अब मूल डेटासेट में टीम कॉलम से अद्वितीय मानों की एक सूची प्रदर्शित करता है।

ध्यान दें कि AdvancedFilter विधि केस-असंवेदनशील है।

उदाहरण के लिए, यदि हमारे पास एक ही कॉलम में टीम के नाम “MAVS” और “Mavs” हैं, तो यह विशेष मैक्रो टीम कॉलम में दिखाई देने वाले उन दो मानों में से केवल पहला लौटाएगा क्योंकि वे बिल्कुल समान वर्ण साझा करते हैं।

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

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

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

वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
वीबीए: रेंज में अद्वितीय मानों की गणना कैसे करें