किसी सेल की स्ट्रिंग में डुप्लिकेट अक्षर या शब्द कैसे हटाएं?
मान लीजिए कि प्रत्येक सेल में डुप्लिकेट अक्षर या शब्द हैं, और आप डुप्लिकेट को हटाना चाहते हैं और केवल अद्वितीय अक्षर या शब्द छोड़ना चाहते हैं। आप एक्सेल में इस समस्या को कैसे हल कर सकते हैं?
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग के डुप्लिकेट वर्ण हटाएं
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ विराम चिह्न द्वारा अलग किए गए डुप्लिकेट शब्दों को हटाएं
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग के डुप्लिकेट वर्ण हटाएं
यदि आपके पास टेक्स्ट स्ट्रिंग की एक सूची है, तो अब, आपको दिखाए गए स्क्रीनशॉट के अनुसार डुप्लिकेट वर्णों को हटाना होगा। यहां, मैं इससे निपटने के लिए वीबीए कोड के बारे में बात कर सकता हूं।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: सेल में टेक्स्ट स्ट्रिंग के डुप्लिकेट अक्षर हटाएं
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
xChar = VBA.Mid(xValue, i, 1)
If xDic.Exists(xChar) Then
Else
xDic(xChar) = ""
xOutValue = xOutValue & xChar
End If
Next
RemoveDupes1 = xOutValue
End Function
3. फिर इस कोड को सहेजें और बंद करें, वर्कशीट पर वापस जाएं और इस सूत्र को दर्ज करें =हटाया गया1(ए2) (A2 यह वह डेटा सेल है जिससे आप डुप्लिकेट हटाना चाहते हैं) अपने डेटा के अलावा एक रिक्त सेल में, स्क्रीनशॉट देखें:
4. और फिर भरण हैंडल को उस श्रेणी कक्षों पर खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, प्रत्येक कक्ष से सभी डुप्लिकेट वर्ण तुरंत हटा दिए गए हैं।
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ विराम चिह्न द्वारा अलग किए गए डुप्लिकेट शब्दों को हटाएं
यदि किसी सेल में कुछ ऐसे शब्द हैं जिन्हें कुछ विराम चिह्नों द्वारा अलग किया गया है, तो आप अपनी इच्छानुसार डुप्लिकेट शब्दों को हटा भी सकते हैं। कृपया निम्नलिखित चरणों का पालन करें:
1. नीचे पकड़ो ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: सेल के विराम चिह्न द्वारा अलग किए गए डुप्लिकेट शब्दों को हटा दें
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. फिर इस कोड को सहेजें और बंद करें, वर्कशीट पर वापस लौटें और इस सूत्र को दर्ज करें =RemoveDupes2(A2,",") अपने डेटा के बगल में एक खाली सेल में, स्क्रीनशॉट देखें:
4. फिर सूत्र को अपनी आवश्यक कोशिकाओं में कॉपी करें, और प्रत्येक कोशिका से सभी डुप्लिकेट शब्द हटा दिए गए हैं। स्क्रीनशॉट देखें:
नोट: उपरोक्त सूत्र में, A2 उस सेल को इंगित करता है जिसे आप उपयोग करना चाहते हैं, और अल्पविराम (,) विराम चिह्न के लिए है जो सेल में शब्दों को अलग करता है, आप इसे अपनी आवश्यकता के अनुसार किसी अन्य विराम चिह्न में बदल सकते हैं।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!