वीबीए: डुप्लिकेट मान कैसे हटाएं
VBA में डुप्लिकेट मान हटाने के लिए आप निम्न विधियों का उपयोग कर सकते हैं:
विधि 1: किसी कॉलम के आधार पर डुप्लिकेट मान हटाएँ
Sub RemoveDuplicates()
Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
यह विशेष उदाहरण श्रेणी के पहले कॉलम में डुप्लिकेट मानों के आधार पर श्रेणी A1:C11 में डुप्लिकेट पंक्तियों को हटा देता है।
हेडर:=xlहां तर्क निर्दिष्ट करता है कि श्रेणी में पहली पंक्ति एक हेडर लाइन है और डुप्लिकेट की जांच करते समय इस पर विचार नहीं किया जाना चाहिए।
विधि 2: एकाधिक स्तंभों के आधार पर डुप्लिकेट मान हटाएँ
Sub RemoveDuplicates()
Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub
यह विशेष उदाहरण श्रेणी के पहले दो स्तंभों में डुप्लिकेट मानों के आधार पर श्रेणी A1:C11 में डुप्लिकेट पंक्तियों को हटा देता है।
निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में निम्नलिखित डेटा सेट के साथ अभ्यास में इनमें से प्रत्येक विधि का उपयोग कैसे करें:
उदाहरण 1: किसी कॉलम के आधार पर डुप्लिकेट मान हटाएं
हम पहले कॉलम में डुप्लिकेट मान वाली पंक्तियों को हटाने के लिए निम्नलिखित मैक्रो बना सकते हैं:
Sub RemoveDuplicates()
Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:
ध्यान दें कि डेटासेट के पहले कॉलम में डुप्लिकेट मान वाली प्रत्येक पंक्ति हटा दी गई है।
उदाहरण 2: एकाधिक कॉलम के आधार पर डुप्लिकेट मान हटाएं
हम उन पंक्तियों को हटाने के लिए निम्नलिखित मैक्रो बना सकते हैं जिनमें पहले दो कॉलम में डुप्लिकेट मान हैं:
Sub RemoveDuplicates()
Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub
जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:
ध्यान दें कि डेटासेट के पहले दो कॉलम में डुप्लिकेट मान वाली प्रत्येक पंक्ति हटा दी गई है।
नोट : आप VBA रिमूवडुप्लिकेट्स विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।
अतिरिक्त संसाधन
निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:
वीबीए: किसी श्रेणी में मान कैसे जोड़ें
वीबीए: रेंज के औसत मूल्य की गणना कैसे करें
वीबीए: रेंज में अद्वितीय मानों की गणना कैसे करें