VBA एक्सेल में RemoveDuplicates
एक्सेल में अक्सर डुप्लिकेट मान की आवश्यकता नहीं होती है, खासकर जब आप अद्वितीय मानों को गिनना चाहते हैं। हमारे पास आमतौर पर काम करने के लिए डेटा का एक अलग सेट होता है, और हम इसमें डुप्लिकेट मानों का एक गुच्छा देखते हैं।
मुझे आशा है कि आप एक्सेल वर्कशीट में डुप्लिकेट को हटाने से परिचित हैं, अगर चिंता की कोई बात नहीं है। हम आपके लिए एक सरल उदाहरण दिखाएंगे। VBA में, हम भी हटाए गए डुप्लिकेट विधि का प्रदर्शन कर सकते हैं।
इसलिए, इसने "क्षेत्र" शीर्षक के सभी डुप्लिकेट मानों को हटा दिया है। इसी तरह, हम इस कार्य को VBA कोड की मदद से कर सकते हैं।
VBA कोडिंग में डुप्लिकेट मान कैसे निकालें?
पहले डुप्लिकेट मानों को हटाने के लिए, हमें उस सीमा का उल्लेख करना होगा जिसे हम संदर्भित कर रहे हैं। तब हम "डुप्लिकेट हटाएं" विधि का उपयोग कर सकते हैं। तो सिंटैक्स निम्नानुसार होगा।
(कॉलम): चयन के किस कॉलम में हमें डुप्लिकेट निकालने की आवश्यकता है? हमें चयनित सीमा के कॉलम नंबर का उल्लेख करना होगा।
(हैडर): आपके द्वारा चयनित रेंज में हेडर हैं या नहीं। हमारे पास यहां काम करने के लिए तीन विकल्प हैं।
- xlYes: यदि डेटा में हेडर हैं, तो आप इसका चयन कर सकते हैं।
- xlNo: यदि डेटा में हेडर नहीं हैं, तो आप इसका चयन कर सकते हैं।
- xlGuess: यह विकल्प एक्सेल को डेटा के हेडर का अनुमान लगाने की अनुमति देगा।
तो इन मापदंडों का उपयोग करके, हम अपने पसीने को तोड़ने के बिना केवल एक बटन के क्लिक के साथ डुप्लिकेट को हटा सकते हैं।
नीचे के भाग में, मैं आपको डुप्लिकेट को हटाने के लिए VBA के कुछ उदाहरण दिखाऊंगा। अपने दम पर कोड लिखने के लिए सावधानी से चरणों का पालन करें।
VBA कोडिंग में डुप्लिकेट मान निकालें के उदाहरण
नीचे मान VBA में निकालें डुप्लिकेट के उदाहरण हैं।
VBA डुप्लिकेट निकालें - उदाहरण # 1
इस उदाहरण के लिए नीचे दिए गए आंकड़ों पर भी विचार करें।
उपरोक्त आंकड़ों से, हमें "क्षेत्र" कॉलम डुप्लिकेट को हटाने की आवश्यकता है, इसलिए कोड लिखने के लिए नीचे दिए गए चरणों का पालन करें।
चरण 1: एक मैक्रो कोड को एक नाम देकर उपप्रकार शुरू करें।
चरण 2: VBA रेंज ऑब्जेक्ट का उपयोग करके डेटा की श्रेणी का उल्लेख करें ।
कोड:
उप Remove_Duplicates_Example1 () रेंज ("A1: C9")। अंत उप
चरण 3: रेंज एक्सेस VBA " RemoveDuplicates " विधि का उल्लेख करने के बाद ।
कोड:
उप Remove_Duplicates_Example1 () रेंज ("A1: C9")।
चरण 4: पहला तर्क जिसमें हमें डुप्लिकेट मानों को हटाने की आवश्यकता है। इस उदाहरण में, पहले कॉलम से, हमें डुप्लिकेट को निकालने की आवश्यकता है।
कोड:
सब Remove_Duplicates_Example1 () रेंज ("A1: C9")। Remove कॉलम का कॉलम: = 1, एंड सब
चरण 5: अगली बात यह है कि डेटा में हेडर है या नहीं। इस मामले में, हमारे पास हेडर हैं, इसलिए "xlYes" चुनें।
कोड:
सब Remove_Duplicates_Example1 () रेंज ("A1: C9")।
इस कोड को चलाएं। यह VBA चयनित क्षेत्र से डुप्लिकेट को हटा देगा।
This is an explicit way of referring to the range of cells. If you wish to select the range on our own and then remove duplicates, then we need to use the variable to work with. In the below example, I will show you how to use variables in VBA.
VBA Remove duplicates - Example #2
In the above example, we have specifically supplied the range of cells. Now we will see how to work with the selection of our own cells.
For example, I have a few sets of data, as shown in the below image.
Each time I cannot specify the range of cells explicitly, so we will assign the selection as the range.
Step 1: Declare the variable as Range.
Code:
Sub Remove_Duplicates_Example2() Dim Rng As Range End Sub
Step 2: Range is an object. We will set the range as our selection.
Code:
Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection End Sub
Step 3: Now, instead of a range of cells, we can use the variable “rng.”
Code:
Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub
Before we run the code, we need to select the range of cells first. Then we can remove duplicates from the selected range of cells.
VBA Remove Duplicates from Multiple Columns - Example #3
We can also use VBA to remove duplicate values from excel columns as well. In order to remove multiple columns, we need to use Array and mention the column numbers.
For example, look at the example data image.
हमने पहले कॉलम और चौथे कॉलम में वैल्यू डुप्लिकेट किए हैं। इसलिए हम इन कॉलमों को हटा देंगे। डुप्लिकेट को निकालने के लिए VBA के नीचे दिए गए कोड का उपयोग करें।
कोड:
सब Remove_Duplicates_Example3 () डिम Rng As Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates कॉलम: = Array (1, 4), Header: - xlYes End Sub
आप यहाँ इस VBA Remove Duplicates Excel को डाउनलोड कर सकते हैं। VBA निकालें डुप्लिकेट एक्सेल टेम्पलेट
