एक्सेलमधील सेलमधील डुप्लिकेट शोधण्याचे आणि हटवण्याचे तीन मार्ग आहेत. फक्त तुमच्यासाठी सर्वोत्तम काम करणारा निवडा.

जेव्हा डुप्लिकेट व्हॅल्यू किंवा पंक्ती काढून टाकण्याचा प्रश्न येतो, तेव्हा मायक्रोसॉफ्ट एक्सेल विविध पर्यायांची अ‍ॅरे ऑफर करतो. पण जेव्हा दिलेल्या सेलमधील एकसारखा मजकूर काढून टाकण्याचा विचार येतो तेव्हा, Excel प्रदान करतो... काहीही नाही. कोणतीही साधने नाहीत, वैशिष्ट्ये नाहीत, सूत्रे नाहीत, काहीही नाही. हे आपल्याला आपले ध्येय साध्य करण्यापासून रोखेल का? कोणत्याही परिस्थितीत नाही. जर एक्सेलमध्ये आम्हाला आवश्यक असलेले कार्य नसेल, तर चला स्वतःचे एक लिहू या :)

एक्सेल सेलमधील वारंवार शब्द कसे काढायचे

समस्या : तुमच्याकडे सेलमध्ये समान शब्द किंवा मजकूर स्ट्रिंग आहेत आणि तुम्हाला दुसरे आणि त्यानंतरचे सर्व रिपीट काढायचे आहेत.

सोल्यूशन : एक सानुकूल वापरकर्ता-परिभाषित कार्य किंवा VBA मॅक्रो.

सेलमधील डुप्लिकेट काढण्यासाठी वापरकर्ता-परिभाषित कार्य

सेलमधील डुप्लिकेट मजकूर काढून टाकण्यासाठी, तुम्ही खालील वापरकर्ता-परिभाषित कार्य (UDF) वापरू शकता , नावाचे RemoveDupeWords :

फंक्शन RemoveDupeWords(मजकूर स्ट्रिंग म्हणून, पर्यायी डिलिमिटर स्ट्रिंग म्हणून = "" ) स्ट्रिंग डिम डिक्शनरी ऑब्जेक्ट डिम x म्हणून, भाग सेट डिक्शनरी = CreateObject ("स्क्रिप्टिंग. डिक्शनरी") शब्दकोश .CompareMode = vbText प्रत्येक x साठी तुलना करा स्प्लिटमध्ये (मजकूर, परिसीमक) भाग = ट्रिम(x) भाग "" असल्यास आणि शब्दकोश नाही. अस्तित्वात (भाग) नंतर शब्दकोश. भाग जोडा, काहीही समाप्त नाही तर पुढे असल्यास शब्दकोश.गणना > 0 नंतरDupeWords काढा = Join(dictionary.keys,delimiter) अन्यथा RemoveDupeWords = "" End If Set शब्दकोश = Nothing End Function

तुमच्या वर्कबुकमध्ये फंक्शनचा कोड कसा घालायचा

वरील कोड तुमच्या Excel मध्ये जोडण्यासाठी, तुम्हाला हे करणे आवश्यक आहे:

1. Visual Basic Editor उघडण्यासाठी Alt + F11 दाबा.
2. डाव्या उपखंडावर, This Workbook वर उजवे क्लिक करा आणि Insert निवडा. > मॉड्युल .
3. वरील कोड कोड विंडोमध्ये पेस्ट करा.

अधिक माहितीसाठी, कृपया VBA कसे घालायचे ते पहा Excel मधील कोड.

RemoveDupeWords फंक्शन सिंटॅक्स

सेलमधील डुप्लिकेट मजकूर काढण्यासाठी आमच्या नव्याने तयार केलेल्या फंक्शनमध्ये खालील वाक्यरचना आहे:

RemoveDupeWords(text, [delimiter])

कुठे :

• मजकूर (आवश्यक) - एक स्ट्रिंग किंवा सेल ज्यामधून तुम्हाला वारंवार मजकूर हटवायचा आहे.
• डिलिमिटर (पर्यायी) - ज्या परिसीमकाने पुनरावृत्ती केलेला मजकूर विभक्त केला जातो. वगळल्यास, डिलिमिटरसाठी स्पेस वापरली जाते.

फंक्शन केस-सेन्सेटिव्ह नाही आहे, म्हणजे लोअरकेस आणि अपरकेस अक्षरे समान वर्ण म्हणून हाताळली जातात.

RemoveDupeWords फंक्शन कसे वापरावे

एकदा फंक्शनचा कोड तुमच्या वर्कबुकमध्ये जोडला गेला की, तुम्ही एक्सेलची अंगभूत फंक्शन्स वापरता त्याप्रमाणे तुम्ही ते तुमच्या सूत्रांमध्ये वापरू शकता.

फक्त समान चिन्हानंतर फंक्शनचे नाव टाइप करणे सुरू करा आणि ते इंटेलिसेंस फॉर्म्युलामध्ये दिसेल. फंक्शनवर डबल-क्लिक करा आणि ते तुमच्याकडे असेलसेलमध्ये घातले. वितर्क परिभाषित करा, क्लोजिंग कंस टाइप करा, एंटर दाबा आणि तुमचे सूत्र पूर्ण होईल.

उदाहरणार्थ, स्वल्पविरामाने विभक्त केलेले डुप्लिकेट शब्द आणि A2 मधून स्पेस हटवण्यासाठी, B2 मध्ये खालील सूत्र प्रविष्ट करा आणि नंतर आवश्यक तितक्या सेलमधून खाली ड्रॅग करा:

=RemoveDupeWords(A2, ", ")

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

तुम्हाला स्वल्पविरामाने विभक्त केलेली यादी मिळवायची असेल तर डिलिमिटरसाठी फक्त स्वल्पविराम वापरा. :

=RemoveDupeWords(A2, ",")

जर तुमचा स्रोत डेटा स्पेस ने विभक्त केला असेल, तर दुसरा आर्ग्युमेंट " " किंवा वगळलेला असावा:

=RemoveDupeWords(A2)

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

एकाहून अधिक सेलमधून डुप्लिकेट मजकूर एकाच वेळी हटवण्यासाठी VBA मॅक्रो

तुम्ही एकाच वेळी एकाधिक सेलमधून पुनरावृत्ती केलेला मजकूर काढू इच्छित असाल, तर तुम्ही RemoveDupeWords फंक्शनला कॉल करू शकता. m मॅक्रोमध्ये. या प्रकरणात, परिसीमक हार्डकोड केलेले आहे आणि प्रत्येक वेळी परिसीमक बदलताना तुम्हाला मॅक्रोचा कोड अद्यतनित करावा लागेल. वैकल्पिकरित्या, तुम्ही सर्वात सामान्य सीमांककांसाठी काही कोड भिन्नता लिहू शकता, म्हणा, एक स्पेस, स्वल्पविराम, किंवा स्वल्पविराम आणि जागा, आणि तुमच्या मॅक्रोला अर्थपूर्ण नावे देऊ शकता, उदा. RemoveDupesDelimSpace .

मॅक्रोचा कोड खालीलप्रमाणे आहे:

Application.Selection cell.Value = RemoveDupeWords(cell.Value, ", " ) मधील प्रत्येक सेलसाठी श्रेणी म्हणून सार्वजनिक उप RemoveDupeWords2() डिम सेल जागा. भिन्न परिसीमक वापरण्यासाठी, ", " या कोड ओळीतील दुसर्‍या वर्णाने बदला:

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

टीप. मॅक्रोने कार्य करण्यासाठी, त्याचा कोड आणि RemoveDupeWords फंक्शनचा कोड एकाच मॉड्यूलवर ठेवला पाहिजे.

मॅक्रो कसे वापरावे

तुमच्या स्वतःच्या वर्कबुकमध्ये मॅक्रोचा कोड घाला किंवा कोडसह आमचे नमुना वर्कबुक उघडा, आणि नंतर मॅक्रो चालवण्यासाठी खालील पायऱ्या करा.

1. सेल्सची श्रेणी निवडा ज्यामधून तुम्हाला वारंवार मजकूर काढायचा आहे.
2. मॅक्रो डायलॉग बॉक्स उघडण्यासाठी Alt + F8 दाबा.
3. मॅक्रोच्या सूचीमध्ये, RemoveDupeWords2 निवडा.
4. चालवा क्लिक करा.

अधिक तपशीलांसाठी, कृपया कसे करायचे ते पहा Excel मध्ये मॅक्रो चालवा.

टीप. कारण मॅक्रोची क्रिया पूर्ववत केली जाऊ शकत नाही , आम्ही मॅक्रो वापरण्यापूर्वी तुमची कार्यपुस्तिका जतन करण्याची जोरदार शिफारस करतो. अशा प्रकारे, काहीतरी चूक झाल्यास, आपण कार्यपुस्तिका बंद करून पुन्हा उघडू शकता आणि आपण जिथे होता तिथे परत याल. किंवा तुम्ही मॅक्रो द्वारे प्रभावित होऊ शकणार्‍या वर्कशीटची प्रत बनवू शकता.

सेलमधील डुप्लिकेट वर्ण कसे काढायचे

समस्या : तुमच्याकडे सेलमध्ये एकाच वर्णाच्या अनेक घटना आहेत, तर प्रत्येकसेलमध्ये दिलेल्या वर्णाची फक्त एकच घटना असावी.

सोल्यूशन : एक सानुकूल वापरकर्ता-परिभाषित कार्य किंवा VBA मॅक्रो.

पुनरावर्ती वर्ण हटवण्यासाठी वापरकर्ता-परिभाषित कार्य

सेलमधील डुप्लिकेट वर्ण काढून टाकण्यासाठी, फक्त प्रथम घटना ठेवण्यासाठी, तुम्ही खालील वापरकर्ता-परिभाषित फंक्शन वापरू शकता, नावाचे RemoveDupeChars :

फंक्शन काढून टाकाDupeChars(मजकूर स्ट्रिंग) ) जर डिक्शनरी नसेल.अस्तित्वात(चार) नंतर डिक्शनरी.कॅर जोडा, काहीही परिणाम नाही = परिणाम & char End If Next RemoveDupeChars = परिणाम सेट डिक्शनरी = काहीही एंड फंक्शन

तुमच्या वर्कबुकमध्ये फंक्शनचा कोड टाकण्यासाठी, स्टेप्स मागील उदाहरणाप्रमाणेच आहेत.

RemoveDupeChars फंक्शन सिंटॅक्स

या सानुकूल फंक्शनचे वाक्यरचना शक्य तितके सोपे आहे - फक्त एक युक्तिवाद आवश्यक आहे:

RemoveDupeChars(text)

जेथे टेक्स्ट एक स्ट्रिंग किंवा सेल आहे जिथून तुम्हाला हवे आहे डुप्लिकेट वर्ण काढून टाकण्यासाठी.

फंक्शन केस-सेन्सिटिव्ह आहे आणि लोअरकेस आणि अपरकेस अक्षरे भिन्न वर्ण म्हणून हाताळते.

RemoveDupeChars फंक्शन कसे वापरावे

RemoveDupeWords च्या वापराबद्दल आम्ही जे काही सांगितले ते RemoveDupeChars साठी खरे आहे. तर, न जातासिद्धांतामध्ये खूप जास्त आहे, चला थेट उदाहरणाकडे जाऊ या.

A2 मधील स्तंभ A मधून डुप्लिकेट वर्ण हटविण्यासाठी, B2 मध्ये हे सूत्र प्रविष्ट करा आणि ते खाली कॉपी करा:

=RemoveDupeChars(A2)

तुम्ही खालील इमेजमध्ये पाहू शकता, फंक्शन अक्षरे, अंक आणि विशेष चिन्हांसह विविध वर्ण प्रकार यशस्वीरित्या हाताळते:

टीप. जर तुमची अक्षरे स्पेस, स्वल्पविराम किंवा हायफन सारख्या काही डिलिमिटर द्वारे एकमेकांपासून विभक्त झाली असतील, तर मागील उदाहरणात दर्शविल्याप्रमाणे रिमूव्हड्यूपवर्ड्स फंक्शन वापरा.

सेलमधून समान वर्ण काढण्यासाठी VBA मॅक्रो

जसे रिमूव्हड्यूपवर्ड्स , रिमूव्हड्यूपचार्स फंक्शनला मॅक्रोमधून देखील कॉल केले जाऊ शकते:

सार्वजनिक Sub RemoveDupeChars2() Application.Selection cell.Value = RemoveDupeChars(cell.Value) मधील प्रत्येक सेलसाठी श्रेणी म्हणून डिम सेल कोड.

टीप. मॅक्रोने कार्य करण्यासाठी, त्याचा कोड आणि RemoveDupeChars UDF चा कोड VBA संपादकातील समान मॉड्यूलवर ठेवला पाहिजे.

मॅक्रो कसे वापरावे

तुम्ही तुमच्या वर्कबुकमध्ये मॅक्रोचा कोड आधीच टाकला आहे किंवा कोड असलेले आमचे नमुना वर्कबुक उघडले आहे असे गृहीत धरून, मॅक्रो अशा प्रकारे लाँच करा.

1. सेल्सची एक श्रेणी निवडा ज्यामधून तुम्ही वारंवार वर्ण काढू इच्छिता.
2. मॅक्रो संवाद उघडण्यासाठी Alt + F8 दाबा.बॉक्स.
3. मॅक्रोच्या सूचीमध्ये, RemoveDupeChars2 निवडा.
4. चालवा क्लिक करा.

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

या ट्युटोरियलच्या सुरुवातीला, मायक्रोसॉफ्ट एक्सेलमध्ये सेलमधील डुप्लिकेट काढून टाकण्यासाठी इनबिल्ट वैशिष्ट्य नसल्याचा उल्लेख केला होता. पण आमचा अल्टिमेट सूट करतो!

तुम्ही ते डेडुप टॅबवरील डुप्लिकेट रिमूव्हर ड्रॉप-डाउन मेनूमध्ये शोधू शकता> गट. तुमच्या एक्सेलमध्ये डुप्लिकेट सबस्ट्रिंग काढा पर्याय दिसत नसल्यास, तुमच्याकडे अल्टीमेट सूटची नवीनतम आवृत्ती स्थापित असल्याची खात्री करा (येथे विनामूल्य चाचणी डाउनलोड केली जाऊ शकते).

पुनरावृत्तीचे शब्द किंवा मजकूर एकाधिक सेलमधून 5 सेकंदात काढण्यासाठी (एक सेकंद प्रति चरण :), तुम्हाला हे करणे आवश्यक आहे:

1. तुमचा स्रोत डेटा निवडा आणि <लाँच करा 1>डुप्लिकेट सबस्ट्रिंग्स टूल काढून टाका.
2. डिलिमिटर निर्दिष्ट करा.
3. लग डीलिमिटर ला एक (डीफॉल्ट) म्हणून हाताळायचे की नाही ते परिभाषित करा.
4. केस-संवेदनशील किंवा केस-संवेदनशील शोध करायचे ते निवडा.
5. काढा क्लिक करा.

पूर्ण झाले! VBA किंवा फॉर्म्युलेसह कोणतेही हलगर्जीपणा नाही, फक्त द्रुत आणि अचूक परिणाम.

या अप्रतिम अॅड-इनबद्दल अधिक जाणून घेण्यासाठी, कृपया त्याच्या मुख्यपृष्ठास भेट द्या. किंवा आणखी चांगले, खालील मूल्यमापन आवृत्ती डाउनलोड करा आणि ते वापरून पहा!

सेलमधील डुप्लिकेट मजकूर कसा काढायचा ते असे आहे.वाचल्याबद्दल मी तुमचा आभारी आहे आणि तुम्हाला पुढील आठवड्यात आमच्या ब्लॉगवर भेटण्याची आशा आहे!

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

सेलमधील डुप्लिकेट काढून टाकण्यासाठी उदाहरणे (.xlsm फाइल)

अल्टीमेट सूट 14 -दिवस पूर्ण-कार्यक्षम आवृत्ती (.exe फाइल)