एक्सेलमा सेल भित्र डुप्लिकेटहरू फेला पार्ने र मेटाउने तीन तरिकाहरू छन्। केवल तपाईंको लागि उत्तम काम गर्ने एउटा छान्नुहोस्।

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

एक्सेल कक्षमा दोहोरिने शब्दहरू कसरी हटाउने

समस्या : तपाईंसँग सेलमा उस्तै शब्दहरू वा पाठ स्ट्रिङहरू छन् र दोस्रो र त्यसपछिका सबै दोहोरिनेहरूलाई हटाउन चाहनुहुन्छ।

समाधान : अनुकूलन प्रयोगकर्ता-परिभाषित प्रकार्य वा VBA म्याक्रो।

सेल भित्र नक्कलहरू हटाउन प्रयोगकर्ता-परिभाषित प्रकार्य

सेलमा नक्कल पाठ हटाउनको लागि, तपाइँ निम्न प्रयोगकर्ता-परिभाषित प्रकार्य (UDF) प्रयोग गर्न सक्नुहुन्छ। , नाम दिइएको RemoveDupeWords :

फंक्शन RemoveDupeWords(पाठ स्ट्रिङको रूपमा, ऐच्छिक सीमांकक स्ट्रिङको रूपमा = "" ) स्ट्रिङ डिम शब्दकोशको रूपमा वस्तु Dim x, भाग सेट शब्दकोश = CreateObject ( "Scripting. Dictionary") शब्दकोश। .CompareMode = vbText प्रत्येक x को लागि विभाजनमा तुलना गर्नुहोस्(पाठ, सीमांकक) भाग = ट्रिम(x) यदि भाग "" र शब्दकोश होइन।अवस्थित(भाग) त्यसपछि शब्दकोश।भाग थप्नुहोस्, केही अन्त्य छैन यदि अर्को यदि शब्दकोश।गणना > 0 त्यसपछि हटाउनुहोस्DupeWords = Join(dictionary.keys,delimiter) Else RemoveDupeWords = "" End If Set शब्दकोश = Nthing End प्रकार्य

तपाईँको कार्यपुस्तिकामा प्रकार्यको कोड कसरी घुसाउने

माथिको कोड तपाईँको एक्सेलमा थप्नको लागि, तपाईंले यो गर्न आवश्यक छ:

1. भिजुअल बेसिक सम्पादक खोल्न Alt + F11 थिच्नुहोस्।
2. बायाँ फलकमा, दायाँ क्लिक गर्नुहोस् This Workbook र चयन गर्नुहोस् Insert > मोड्युल ।
3. माथिको कोड कोड विन्डोमा टाँस्नुहोस्।

थप जानकारीको लागि, कृपया VBA कसरी घुसाउने हेर्नुहोस्। Excel मा कोड।

RemoveDupeWords प्रकार्य सिन्ट्याक्स

कक्षमा डुप्लिकेट पाठ हटाउनको लागि हाम्रो नयाँ सिर्जना गरिएको प्रकार्यमा निम्न वाक्य रचना छ:

RemoveDupeWords(text, [delimiter])

कहाँ :

• पाठ (आवश्यक) - एक स्ट्रिङ वा सेल जसबाट तपाइँ दोहोर्याइएको पाठ मेटाउन चाहनुहुन्छ।
• डिलिमिटर (वैकल्पिक) - दोहोर्याइएको पाठलाई छुट्याएको परिसीमक। यदि हटाइयो भने, डिलिमिटरको लागि स्पेस प्रयोग गरिन्छ।

प्रकार्य केस-संवेदनशील छैन , यसको मतलब सानो र ठूलो अक्षरहरूलाई एउटै क्यारेक्टरको रूपमा व्यवहार गरिन्छ।

RemoveDupeWords प्रकार्य कसरी प्रयोग गर्ने

तपाईँको कार्यपुस्तिकामा फंक्शनको कोड थपिसकेपछि, तपाइँ यसलाई तपाइँको सूत्रहरूमा प्रयोग गर्न सक्नुहुन्छ जसरी तपाइँ एक्सेलको बिल्ट-इन प्रकार्यहरू प्रयोग गर्नुहुन्छ।

समान चिन्ह पछि प्रकार्यको नाम टाइप गर्न सुरु गर्नुहोस्, र यो सूत्र intellisense मा देखा पर्नेछ। प्रकार्यमा डबल-क्लिक गर्नुहोस्, र तपाइँसँग यो हुनेछएक कक्ष मा सम्मिलित। तर्कहरू परिभाषित गर्नुहोस्, बन्द हुने कोष्ठक टाइप गर्नुहोस्, इन्टर थिच्नुहोस्, र तपाईंको सूत्र पूरा भयो।

उदाहरणका लागि, अल्पविराम र A2 बाट स्पेसद्वारा छुट्याएका नक्कल शब्दहरू मेटाउन, B2 मा तलको सूत्र प्रविष्ट गर्नुहोस्, र त्यसपछि यसलाई धेरै कक्षहरू मार्फत तल तान्नुहोस् आवश्यक अनुसार:

=RemoveDupeWords(A2, ", ")

परिणामको रूपमा, तपाईंसँग अद्वितीय शब्द वा सबस्ट्रिङहरूको सूची हुनेछ अल्पविराम र स्पेस :

यदि तपाइँ अल्पविराम-विभाजित सूची प्राप्त गर्न चाहनुहुन्छ भने, डिलिमिटरको लागि केवल अल्पविराम प्रयोग गर्नुहोस्। :

=RemoveDupeWords(A2, ",")

यदि तपाइँको स्रोत डेटा स्पेस द्वारा विभाजित गरिएको छ भने, दोस्रो तर्क " " वा मेटिएको हुनुपर्छ:

=RemoveDupeWords(A2)

अन्य एक्सेल प्रकार्य जस्तै, स्रोत डेटा परिवर्तन हुँदा हाम्रो UDF ले स्वचालित रूपमा पुन: गणना गर्दछ, त्यसैले तपाईंको परिणामहरू सधैं अद्यावधिक हुनेछन्।

VBA म्याक्रो एकै पटक धेरै कक्षहरूबाट नक्कल पाठ मेटाउन

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

म्याक्रोको कोड निम्नानुसार छ:

सार्वजनिक उप RemoveDupeWords2() अनुप्रयोगमा प्रत्येक कक्षको लागि दायराको रूपमा डिम सेल। चयन कक्ष। मान = हटाउनुहोस् डुपवर्ड्स(सेल। मान, ", " ) अर्को अन्त्य उप

माथिको कोडमा, सीमांकक अल्पविराम र स्पेस । फरक डेलिमिटर प्रयोग गर्न, ", " लाई यो कोड लाइनमा अर्को क्यारेक्टर(हरू) को साथ बदल्नुहोस्:

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

नोट। म्याक्रोले काम गर्नको लागि, यसको कोड र RemoveDupeWords प्रकार्यको कोड एउटै मोड्युलमा राख्नुपर्छ।

म्याक्रो कसरी प्रयोग गर्ने

आफ्नो कार्यपुस्तिकामा म्याक्रोको कोड घुसाउनुहोस् वा कोडको साथ हाम्रो नमूना कार्यपुस्तिका खोल्नुहोस्, र त्यसपछि म्याक्रो चलाउन निम्न चरणहरू गर्नुहोस्।

1. तपाईँ दोहोरिएको पाठ हटाउन चाहनुहुने कक्षहरूको दायरा चयन गर्नुहोस्।
2. म्याक्रो संवाद बक्स खोल्न Alt + F8 थिच्नुहोस्।
3. म्याक्रोहरूको सूचीमा, RemoveDupeWords2 चयन गर्नुहोस्।
4. चलाउनुहोस् मा क्लिक गर्नुहोस्।

थप विवरणहरूको लागि, कृपया हेर्नुहोस् कसरी गर्ने एक्सेलमा म्याक्रो चलाउनुहोस्।

नोट। किनभने म्याक्रोको कार्य अनडू गर्न सकिँदैन , हामी दृढताका साथ म्याक्रो प्रयोग गर्नु अघि तपाईंको कार्यपुस्तिका बचत गर्न सिफारिस गर्दछौं। यस तरिकाले, यदि केहि गलत भयो भने, तपाइँ केवल कार्यपुस्तिका बन्द गर्न र पुन: खोल्न सक्नुहुन्छ, र तपाइँ ठ्याक्कै जहाँ हुनुहुन्थ्यो त्यहाँ फर्कनुहुनेछ। वा तपाईले म्याक्रोद्वारा प्रभावित हुन सक्ने कार्यपत्र(हरू) को प्रतिलिपि मात्र बनाउन सक्नुहुन्छ।

कसरी सेलमा नक्कल क्यारेक्टरहरू हटाउने

समस्या : तपाईंसँग सेलमा एउटै क्यारेक्टरको धेरै घटनाहरू छन्, जबकि प्रत्येककक्षमा दिइएको क्यारेक्टरको एकल घटना मात्र समावेश हुनुपर्छ।

समाधान : अनुकूलन प्रयोगकर्ता-परिभाषित प्रकार्य वा VBA म्याक्रो।

दोहोरिने क्यारेक्टरहरू मेटाउन प्रयोगकर्ता-परिभाषित प्रकार्य

प्रथम घटनाहरू मात्र राख्दै कक्ष भित्र नक्कल गरिएका क्यारेक्टरहरू हटाउन, तपाईंले निम्न प्रयोगकर्ता-परिभाषित प्रकार्य प्रयोग गर्न सक्नुहुन्छ, नाम RemoveDupeChars :

फंक्शन हटाउनुहोस्DupeChars(पाठ स्ट्रिङको रूपमा) स्ट्रिङ डिम शब्दकोशको रूपमा वस्तु डिम चारको रूपमा स्ट्रिङ डिम परिणामको रूपमा स्ट्रिङ सेट शब्दकोश = CreateObject ("स्क्रिप्टिङ। डिक्शनरी") को लागि i = 1 लेन(टेक्स्ट) char = Mid(text, i, 1) ) यदि शब्दकोश होइन।अवस्थित(char) त्यसपछि शब्दकोश।चार थप्नुहोस्, केही नतिजा = परिणाम र; char End यदि अर्को RemoveDupeChars = परिणाम सेट गर्नुहोस् शब्दकोश = कुनै पनि अन्त्य प्रकार्य

तपाईँको कार्यपुस्तिकामा प्रकार्यको कोड घुसाउनको लागि, चरणहरू ठ्याक्कै अघिल्लो उदाहरणमा जस्तै छन्।

RemoveDupeChars प्रकार्य सिन्ट्याक्स

यस अनुकूल प्रकार्यको सिन्ट्याक्स सम्भवतः सरल छ - केवल एउटा तर्क आवश्यक छ:

RemoveDupeChars(text)

जहाँ text तपाईँले चाहेको स्ट्रिङ वा सेल हो। डुप्लिकेट क्यारेक्टरहरू हटाउन।

फंक्शन केस-सेन्सिटिभ हो र लोअरकेस र अपरकेस अक्षरहरूलाई फरक क्यारेक्टरको रूपमा व्यवहार गर्दछ।

RemoveDupeChars प्रकार्य कसरी प्रयोग गर्ने

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

A2 मा सुरु भएको स्तम्भ A बाट डुप्लिकेट क्यारेक्टरहरू मेटाउन, B2 मा यो सूत्र प्रविष्ट गर्नुहोस् र यसलाई तल प्रतिलिपि गर्नुहोस्:

=RemoveDupeChars(A2)

तपाईँले तलको छविमा देख्न सक्नुहुन्छ, प्रकार्यले अक्षर, अंक र विशेष प्रतीकहरू सहित विभिन्न क्यारेक्टर प्रकारहरूलाई सफलतापूर्वक ह्यान्डल गर्छ:

टिप। यदि तपाईंका क्यारेक्टरहरू केही डिलिमिटर जस्तै स्पेस, अल्पविराम वा हाइफनद्वारा एकअर्काबाट छुट्याएका छन् भने, अघिल्लो उदाहरणमा देखाइए अनुसार RemoveDupeWords प्रकार्य प्रयोग गर्नुहोस्।

सेलबाट उही क्यारेक्टरहरू हटाउन VBA म्याक्रो

जस्तै RemoveDupeWords , RemoveDupeChars प्रकार्यलाई म्याक्रो भित्रबाट पनि कल गर्न सकिन्छ:

सार्वजनिक Sub RemoveDupeChars2() अनुप्रयोगमा प्रत्येक कक्षको लागि दायराको रूपमा डिम सेल। चयन कक्ष। मान = RemoveDupeChars(cell.Value) Next End Sub

किनभने यो UDF ले कुनै पनि डेलिमिटर प्रयोग गर्दैन, तपाईंले यसमा कुनै पनि समायोजन गर्नु पर्दैन। कोड।

नोट। म्याक्रोले काम गर्नको लागि, यसको कोड र RemoveDupeChars UDF को कोड VBA सम्पादकमा एउटै मोड्युलमा राख्नुपर्छ।

म्याक्रो कसरी प्रयोग गर्ने

तपाईंले आफ्नो कार्यपुस्तिकामा म्याक्रोको कोड पहिल्यै घुसाउनु भएको छ वा कोड समावेश भएको हाम्रो नमूना कार्यपुस्तिका खोल्नुभएको छ, यसरी म्याक्रो सुरु गर्नुहोस्।

1. कक्षहरूको दायरा चयन गर्नुहोस् जसबाट तपाइँ दोहोर्याइएको क्यारेक्टरहरू हटाउन चाहनुहुन्छ।
2. म्याक्रो संवाद खोल्न Alt + F8 थिच्नुहोस्।बक्स।
3. म्याक्रोहरूको सूचीमा, RemoveDupeChars2 चयन गर्नुहोस्।
4. रन मा क्लिक गर्नुहोस्।

अल्टिमेट सुइटको साथ डुप्लिकेट सबस्ट्रिङहरू हटाउनुहोस्

यो ट्युटोरियलको सुरुमा, यो उल्लेख गरिएको थियो कि माइक्रोसफ्ट एक्सेलमा सेल भित्र नक्कलहरू हटाउनको लागि इनबिल्ट सुविधा छैन। तर हाम्रो अल्टिमेट सुइटले गर्छ!

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

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

1. तपाईंको स्रोत डेटा चयन गर्नुहोस् र डुप्लिकेट सबस्ट्रिङहरू हटाउनुहोस् उपकरण।
2. डिलिमिटर निर्दिष्ट गर्नुहोस्।
3. लगातार सीमांककहरू लाई एक (पूर्वनिर्धारित) को रूपमा व्यवहार गर्ने कि परिभाषित गर्नुहोस्।
4. केस-संवेदनशील वा केस-असंवेदनशील खोज गर्ने कि गर्ने छनौट गर्नुहोस्।
5. हटाउनुहोस् क्लिक गर्नुहोस्।

सम्पन्न! VBA वा सूत्रहरूसँग कुनै फिडलिंग छैन, केवल द्रुत र सटीक परिणामहरू।

यो अद्भुत एड-इनको बारेमा थप जान्नको लागि, कृपया यसको गृह पृष्ठमा जानुहोस्। वा अझ राम्रो, तलको मूल्याङ्कन संस्करण डाउनलोड गर्नुहोस् र यसलाई प्रयास गर्नुहोस्!

यस्तै सेलमा डुप्लिकेट पाठ हटाउने तरिका हो।पढ्नुभएकोमा म तपाईंलाई धन्यवाद दिन्छु र अर्को हप्ता हाम्रो ब्लगमा भेट्ने आशा गर्छु!

उपलब्ध डाउनलोडहरू

सेलमा नक्कलहरू हटाउनका लागि उदाहरणहरू (.xlsm फाइल)

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