Excel में किसी सेल में डुप्लीकेट को खोजने और हटाने के तीन तरीके हैं। बस वही चुनें जो आपके लिए सबसे अच्छा काम करता है।

जब डुप्लिकेट मानों या पंक्तियों को हटाने की बात आती है, तो Microsoft Excel विभिन्न विकल्पों की एक सरणी प्रदान करता है। लेकिन जब किसी दिए गए सेल में समान पाठ को हटाने की बात आती है, तो एक्सेल प्रदान करता है ... कुछ भी नहीं। कोई उपकरण नहीं, कोई विशेषता नहीं, कोई सूत्र नहीं, कुछ नहीं। क्या यह हमें अपना लक्ष्य हासिल करने से रोकेगा? किसी भी मामले में नहीं। यदि एक्सेल में वह फंक्शन नहीं है जिसकी हमें जरूरत है, तो चलिए अपना खुद का लिखते हैं :)

एक्सेल सेल में दोहराए गए शब्दों को कैसे हटाएं

समस्या : आपके पास सेल में समान शब्द या टेक्स्ट स्ट्रिंग हैं और आप दूसरी और बाद की सभी पुनरावृत्तियों को हटाना चाहते हैं।

समाधान : एक कस्टम उपयोगकर्ता-परिभाषित फ़ंक्शन या VBA मैक्रो।

सेल के भीतर डुप्लीकेट को हटाने के लिए यूज़र-डिफ़ाइंड फ़ंक्शन

सेल में डुप्लीकेट टेक्स्ट को खत्म करने के लिए, आप निम्नलिखित यूज़र-डिफ़ाइंड फ़ंक्शन (यूडीएफ) का उपयोग कर सकते हैं , नामित RemoveDupeWords :

फ़ंक्शन RemoveDupeWords(text As String , वैकल्पिक सीमांकक As String = " " ) As String Dim Dictionary as Object Dim x, part Set dictionary = CreateObject ("Scripting.Dictionary") dictionary .CompareMode = vbTextCompare फॉर प्रत्येक एक्स इन स्प्लिट (टेक्स्ट, डिलिमिटर) पार्ट = ट्रिम (एक्स) अगर पार्ट "" और डिक्शनरी नहीं है। मौजूद है (पार्ट) तो डिक्शनरी। 0 फिर RemoveDupeWords = Join(dictionary.keys,delimiter) Else RemoveDupeWords = "" एंड इफ सेट डिक्शनरी = नथिंग एंड फंक्शन

अपनी वर्कबुक में फंक्शन का कोड कैसे डालें

उपर्युक्त कोड को अपने एक्सेल में जोड़ने के लिए, आपको यह करना होगा:

1. विजुअल बेसिक एडिटर खोलने के लिए Alt + F11 दबाएं। > मॉड्यूल ।
2. उपरोक्त कोड को कोड विंडो में पेस्ट करें।

अधिक जानकारी के लिए, कृपया VBA कैसे डालें देखें एक्सेल में कोड।

RemoveDupeWords फ़ंक्शन सिंटैक्स

सेल में डुप्लिकेट टेक्स्ट को हटाने के लिए हमारे नए बनाए गए फ़ंक्शन में निम्न सिंटैक्स है:

RemoveDupeWords(text, [delimiter])

कहां :

• टेक्स्ट (आवश्यक) - एक स्ट्रिंग या सेल जिससे आप दोहराए गए टेक्स्ट को हटाना चाहते हैं।
• डिलीमीटर (वैकल्पिक) - सीमांकक जिसके द्वारा दोहराए गए पाठ को अलग किया जाता है। यदि छोड़ा जाता है, तो सीमांकक के लिए एक स्थान का उपयोग किया जाता है।

फ़ंक्शन केस-संवेदी नहीं है , जिसका अर्थ है कि लोअरकेस और अपरकेस अक्षरों को समान वर्णों के रूप में माना जाता है।

RemoveDupeWords फ़ंक्शन का उपयोग कैसे करें

एक बार फ़ंक्शन का कोड आपकी कार्यपुस्तिका में जुड़ जाने के बाद, आप इसे अपने सूत्रों में उसी तरह उपयोग कर सकते हैं जैसे आप Excel के अंतर्निहित फ़ंक्शंस का उपयोग करते हैं।

फ़ंक्शन का नाम समान चिह्न के बाद टाइप करना प्रारंभ करें, और यह सूत्र इंटेलिजेंस में दिखाई देगा। फ़ंक्शन पर डबल-क्लिक करें, और आपके पास यह होगाएक सेल में डाला गया। तर्कों को परिभाषित करें, समापन कोष्ठक टाइप करें, एंटर दबाएं, और आपका फॉर्मूला पूरा हो गया है। B2 में निम्न सूत्र दर्ज करें, और फिर इसे आवश्यकतानुसार कई कक्षों के माध्यम से नीचे खींचें:

=RemoveDupeWords(A2, ", ")

परिणामस्वरूप, आपके पास अद्वितीय शब्दों या सबस्ट्रिंग की एक सूची होगी जो एक <द्वारा अलग की जाएगी 17>अल्पविराम और स्थान :

यदि आप अल्पविराम से अलग की गई सूची प्राप्त करना चाहते हैं, तो सीमांकक के लिए केवल अल्पविराम का उपयोग करें :

=RemoveDupeWords(A2, ",")

यदि आपके स्रोत डेटा को स्पेस से अलग किया गया है, तो दूसरा तर्क " " या छोड़ा जाना चाहिए:

=RemoveDupeWords(A2)

किसी भी अन्य एक्सेल फ़ंक्शन की तरह, जब स्रोत डेटा बदलता है तो हमारा UDF स्वचालित रूप से पुनर्गणना करता है, इसलिए आपके परिणाम हमेशा अद्यतित रहेंगे।

एक साथ कई सेल से डुप्लीकेट टेक्स्ट हटाने के लिए VBA मैक्रो

अगर आप एक ही बार में कई सेल से दोहराए गए टेक्स्ट को हटाना चाहते हैं, तो आप RemoveDupeWords फ़ंक्शन को कॉल कर सकते हैं मी एक मैक्रो के भीतर। इस मामले में, डिलीमीटर हार्डकोड किया गया है, और हर बार डिलीमीटर बदलने पर आपको मैक्रो के कोड को अपडेट करना होगा। वैकल्पिक रूप से, आप सबसे आम सीमांकक के लिए कुछ कोड विविधताएं लिख सकते हैं, जैसे कि एक स्पेस, कॉमा, या कॉमा और स्पेस, और अपने मैक्रोज़ को अर्थपूर्ण नाम दें, उदा. RemoveDupesDelimSpace .

मैक्रो का कोड इस प्रकार है:

पब्लिक सब रिमूवड्यूपवर्ड्स2() डिम सेल एज़ रेंज एज़ रेंज फॉर हर सेल इन एप्लीकेशन। सेलेक्शन सेल। अंतरिक्ष। किसी भिन्न सीमांकक का उपयोग करने के लिए, "," को इस कोड पंक्ति में अन्य वर्णों से बदलें:

cell.Value = RemoveDupeWords(cell.Value, ", ")

Note. मैक्रो के काम करने के लिए, इसका कोड और RemoveDupeWords फ़ंक्शन का कोड एक ही मॉड्यूल पर रखा जाना चाहिए।

मैक्रो का उपयोग कैसे करें

मैक्रो का कोड अपनी कार्यपुस्तिका में डालें या कोड के साथ हमारी नमूना कार्यपुस्तिका खोलें, और फिर मैक्रो को चलाने के लिए निम्न चरणों का पालन करें।

1. सेल की उस श्रेणी का चयन करें जिसमें से आप दोहराए गए पाठ को हटाना चाहते हैं।
2. मैक्रो डायलॉग बॉक्स खोलने के लिए Alt + F8 दबाएं।
3. मैक्रो की सूची में, RemoveDupeWords2 चुनें।
4. चलाएं क्लिक करें।

अधिक विवरण के लिए, कृपया कैसे करें देखें एक्सेल में एक मैक्रो चलाएं।

ध्यान दें। क्योंकि मैक्रो की कार्रवाई पूर्ववत नहीं की जा सकती , हम दृढ़ता से अनुशंसा करते हैं कि मैक्रो का उपयोग करने से ठीक पहले अपनी कार्यपुस्तिका को सहेज लें। इस तरह, अगर कुछ गलत हो जाता है, तो आप बस कार्यपुस्तिका को बंद कर सकते हैं और फिर से खोल सकते हैं, और आप ठीक उसी स्थान पर वापस आ जाएंगे जहां आप थे। या आप केवल उस कार्यपत्रक की प्रतिलिपि बना सकते हैं जो मैक्रो से प्रभावित हो सकता है।

सेल में डुप्लीकेट कैरेक्टर्स को कैसे हटाएं

समस्या : आपके पास सेल में एक ही कैरेक्टर की कई घटनाएं हैं, जबकि प्रत्येकसेल में किसी दिए गए वर्ण की केवल एक घटना होनी चाहिए।

समाधान : एक कस्टम उपयोगकर्ता-परिभाषित फ़ंक्शन या VBA मैक्रो।

> दोहराए गए वर्णों को हटाने के लिए उपयोगकर्ता-परिभाषित फ़ंक्शन

केवल पहली घटनाओं को रखते हुए सेल के भीतर डुप्लिकेट वर्णों को हटाने के लिए, आप निम्न उपयोगकर्ता-परिभाषित फ़ंक्शन का उपयोग कर सकते हैं, जिसका नाम है RemoveDupeChars :

फ़ंक्शन RemoveDupeChars (स्ट्रिंग के रूप में पाठ) स्ट्रिंग डिम डिक्शनरी के रूप में ऑब्जेक्ट डिम चार के रूप में स्ट्रिंग डिम परिणाम के रूप में स्ट्रिंग सेट डिक्शनरी = क्रिएटऑब्जेक्ट ("स्क्रिप्टिंग। डिक्शनरी") के लिए i = 1 से लेन (पाठ) चार = मध्य (पाठ, i, 1) ) यदि शब्दकोश नहीं है। मौजूद है (चार) तो शब्दकोश। चार जोड़ें, कुछ नहीं परिणाम = परिणाम और amp; char End if Next RemoveDupeChars = result Set Dictionary = कुछ भी नहीं अंत कार्य

अपनी कार्यपुस्तिका में फ़ंक्शन का कोड डालने के लिए, चरण बिल्कुल पिछले उदाहरण के समान ही हैं।

RemoveDupeChars फ़ंक्शन सिंटैक्स

इस कस्टम फ़ंक्शन का सिंटैक्स जितना संभव हो उतना सरल है - केवल एक तर्क की आवश्यकता है:

RemoveDupeChars(text)

कहाँ text एक स्ट्रिंग या सेल है जिससे आप चाहते हैं डुप्लिकेट वर्णों को हटाने के लिए।

फ़ंक्शन केस-संवेदी है और लोअरकेस और अपरकेस अक्षरों को अलग-अलग वर्णों के रूप में मानता है।

RemoveDupeChars फ़ंक्शन का उपयोग कैसे करें

हमने जो कुछ भी RemoveDupeWords के उपयोग के बारे में कहा वह RemoveDupeChars के लिए सत्य है। तो, बिना जाएसिद्धांत में बहुत अधिक, चलिए सीधे एक उदाहरण पर आते हैं।

A2 से शुरू होने वाले कॉलम A से डुप्लिकेट वर्णों को हटाने के लिए, इस सूत्र को B2 में दर्ज करें और इसे कॉपी करें:

=RemoveDupeChars(A2)

जैसा कि आप नीचे दी गई छवि में देख सकते हैं, फ़ंक्शन अक्षरों, अंकों और विशेष प्रतीकों सहित विभिन्न प्रकार के वर्णों को सफलतापूर्वक संभालता है:

युक्ति। यदि आपके वर्ण एक दूसरे से कुछ परिसीमक जैसे स्पेस, अल्पविराम या हाइफ़न द्वारा अलग किए गए हैं, तो पिछले उदाहरण में दिखाए गए अनुसार RemoveDupeWords फ़ंक्शन का उपयोग करें।

सेल से समान वर्णों को हटाने के लिए VBA मैक्रो

RemoveDupeWords की तरह, RemoveDupeChars फ़ंक्शन को मैक्रो के भीतर से भी कॉल किया जा सकता है:

सार्वजनिक Sub RemoveDupeChars2() एप्लिकेशन में प्रत्येक सेल के लिए रेंज के रूप में मंद सेल। सेलेक्शन सेल। वैल्यू = रिमूवड्यूपचार्स (सेल। वैल्यू) नेक्स्ट एंड सब

क्योंकि यह UDF किसी भी सीमांकक का उपयोग नहीं करता है, आपको इसमें कोई समायोजन नहीं करना होगा कोड।

ध्यान दें। कार्य करने के लिए मैक्रो के लिए, इसका कोड और RemoveDupeChars UDF का कोड VBA संपादक में एक ही मॉड्यूल पर रखा जाना चाहिए।

मैक्रो का उपयोग कैसे करें

यह मानते हुए कि आपने अपनी कार्यपुस्तिका में मैक्रो का कोड पहले ही डाल दिया है या कोड वाली हमारी नमूना कार्यपुस्तिका खोल ली है, मैक्रो को इस तरह लॉन्च करें।

1. सेल की उस श्रेणी का चयन करें जिसमें से आप दोहराए गए वर्णों को हटाना चाहते हैं। मैक्रो डायलॉग खोलने के लिए
2. Alt + F8 दबाएंbox.
3. मैक्रोज़ की सूची में, RemoveDupeChars2 चुनें।
4. Run क्लिक करें।

अल्टीमेट सूट के साथ डुप्लीकेट सबस्ट्रिंग हटाएं

इस ट्यूटोरियल की शुरुआत में, यह उल्लेख किया गया था कि माइक्रोसॉफ्ट एक्सेल में सेल के भीतर डुप्लिकेट को हटाने के लिए एक इनबिल्ट फीचर नहीं है। लेकिन हमारा अल्टीमेट सूट करता है!

आप इसे डुप्लिकेट रिमूवर ड्रॉप-डाउन मेनू में एबलबिट्स डेटा टैब पर, डेडअप<2 में पा सकते हैं> समूह। यदि आपके एक्सेल में डुप्लिकेट सबस्ट्रिंग हटाएं विकल्प दिखाई नहीं देता है, तो सुनिश्चित करें कि आपके पास अल्टीमेट सूट का नवीनतम संस्करण स्थापित है (निःशुल्क परीक्षण यहां डाउनलोड किया जा सकता है)।

5 सेकंड में कई सेल से दोहराए गए शब्दों या पाठ को हटाने के लिए (एक सेकंड प्रति चरण :), आपको यही करना है:

1. अपना स्रोत डेटा चुनें और <लॉन्च करें 1>डुप्लिकेट सबस्ट्रिंग हटाएं टूल।
2. डिलीमीटर निर्दिष्ट करें।
3. निर्धारित करें कि लगातार डिलीमीटर को एक (डिफ़ॉल्ट) मानना ​​है या नहीं।
4. चुनें कि केस-संवेदी या केस-संवेदी खोज करना है या नहीं।
5. निकालें क्लिक करें।

हो गया! VBA या फ़ार्मुलों के साथ कोई खिलवाड़ नहीं, बस त्वरित और सटीक परिणाम।

इस भयानक ऐड-इन के बारे में अधिक जानने के लिए, कृपया इसके होम पेज पर जाएँ। या इससे भी बेहतर, नीचे एक मूल्यांकन संस्करण डाउनलोड करें और इसे आज़माएं!

सेल में डुप्लीकेट टेक्स्ट को हटाने का यही तरीका है।मैं आपको पढ़ने के लिए धन्यवाद देता हूं और आशा करता हूं कि अगले सप्ताह आपको हमारे ब्लॉग पर देखूंगा!

उपलब्ध डाउनलोड

सेल में डुप्लीकेट हटाने के उदाहरण (.xlsm फ़ाइल)

अल्टीमेट सुइट 14 -दिन पूरी तरह कार्यात्मक संस्करण (.exe फ़ाइल)