मुख्य सामग्री पर जाएं

एक्सेल टेक्स्ट स्ट्रिंग्स से अक्षर, शब्द, संख्याएँ हटाता है

लेखक: ज़ियाओयांग अंतिम संशोधित: 2022-12-07

मान लीजिए, आपके पास टेक्स्ट स्ट्रिंग्स की एक लंबी सूची है जिसमें अक्षर, संख्याएं या अन्य विशिष्ट प्रतीक हैं। कुछ मामलों में, आपको स्थिति के आधार पर कुछ वर्णों को हटाने की आवश्यकता हो सकती है, जैसे कि टेक्स्ट स्ट्रिंग्स से दाएं, बाएं या मध्य से, या स्ट्रिंग्स की सूची से कुछ अवांछित वर्णों, संख्याओं को हटा दें। एक-एक करके समाधान ढूंढने से आपको सिरदर्द हो जाएगा, यह ट्यूटोरियल एक्सेल में वर्णों, शब्दों या संख्याओं को हटाने के लिए सभी प्रकार की विधियों को एकत्रित करता है।

विषय - सूची:

1. टेक्स्ट स्ट्रिंग के बाएँ, दाएँ या मध्य से अक्षर हटाएँ

2. टेक्स्ट स्ट्रिंग्स से अवांछित/विशेष वर्ण हटाएँ

3. विशिष्ट वर्ण से पहले या बाद में वर्ण/पाठ हटाएँ

4. टेक्स्ट स्ट्रिंग्स से शब्द हटाएँ


टेक्स्ट स्ट्रिंग के बाएँ, दाएँ या मध्य से अक्षर हटाएँ

एक्सेल वर्कशीट में टेक्स्ट स्ट्रिंग के बाएँ, दाएँ या मध्य से कुछ वर्णों को हटाना हममें से अधिकांश के लिए एक सामान्य काम हो सकता है। यह अनुभाग इस कार्य को हल करने के लिए कुछ त्वरित और आसान तरकीबें पेश करेगा।

1.1 टेक्स्ट स्ट्रिंग्स से पहले n अक्षर हटाएँ

यदि आपको टेक्स्ट स्ट्रिंग्स की सूची से पहले n वर्णों को हटाने की आवश्यकता है, तो निम्नलिखित विधियाँ आपके काम आ सकती हैं।

 सूत्रों का उपयोग करके

आम तौर पर, टेक्स्ट स्ट्रिंग की शुरुआत से वर्णों को हटाने के लिए, आप या तो REPLACE फ़ंक्शन या RIGHT और LEN फ़ंक्शन के संयोजन का उपयोग कर सकते हैं।

पहले N वर्णों को हटाने के लिए REPLACE फ़ंक्शन:

=REPLACE(string, 1, num_chars, "")
  • स्ट्रिंग: वह टेक्स्ट स्ट्रिंग जिसमें से आप अक्षर हटाना चाहते हैं;
  • num_chars: जितने अक्षर आप हटाना चाहते हैं।

उदाहरण के लिए, कोशिकाओं से पहले 2 अक्षर हटाने के लिए, कृपया नीचे दिए गए सूत्र का उपयोग करें, और फिर सूत्र को अन्य कोशिकाओं में कॉपी करने के लिए भरण हैंडल को खींचें, स्क्रीनशॉट देखें:

=REPLACE(A4, 1, 2, "")

पहले N वर्णों को हटाने के लिए RIGHT और LEN फ़ंक्शन:

=RIGHT(string, LEN(string) - num_chars)
  • स्ट्रिंग: वह टेक्स्ट स्ट्रिंग जिसमें से आप अक्षर हटाना चाहते हैं;
  • num_chars: जितने अक्षर आप हटाना चाहते हैं।

कोशिकाओं से पहले 2 अक्षर हटाने के लिए, कृपया निम्नलिखित सूत्र लागू करें:

=RIGHT(A4,LEN(A4)-2)


 उपयोगकर्ता परिभाषित फ़ंक्शन का उपयोग करके

कोशिकाओं से पहले n वर्णों को हटाने के लिए, आप इस कार्य को हल करने के लिए एक उपयोगकर्ता परिभाषित फ़ंक्शन भी बना सकते हैं। कृपया निम्नलिखित चरणों का पालन करें:

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।

वीबीए कोड: टेक्स्ट स्ट्रिंग्स से पहले एन अक्षर हटाएं

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. फिर वर्कशीट पर वापस जाएँ, और फिर यह सूत्र दर्ज करें: =पहले हटाएंx(A4,2) एक रिक्त सेल में, और फिर अपनी आवश्यकतानुसार परिणाम प्राप्त करने के लिए भरण हैंडल को नीचे खींचें, स्क्रीनशॉट देखें:

नोट: इस सूत्र में: A4 वह सेल है जिससे आप अक्षर हटाना चाहते हैं; जो नंबर 2 यह उन वर्णों की संख्या को इंगित करता है जिन्हें आप टेक्स्ट स्ट्रिंग की शुरुआत से हटाना चाहते हैं।


1.2 टेक्स्ट स्ट्रिंग्स से अंतिम n अक्षर हटाएँ

टेक्स्ट स्ट्रिंग्स के दाईं ओर से विशिष्ट संख्या में वर्णों को हटाने के लिए, आप एक सूत्र या उपयोगकर्ता परिभाषित फ़ंक्शन का भी उपयोग कर सकते हैं।

 सूत्र का उपयोग करके

टेक्स्ट स्ट्रिंग्स से अंतिम n वर्णों को हटाने के लिए, आप LEFT और LEN फ़ंक्शंस के आधार पर एक सूत्र का उपयोग कर सकते हैं।

अंतिम N वर्णों को हटाने के लिए LEFT और LEN फ़ंक्शन:

=LEFT(string, LEN(string) - num_chars)
  • स्ट्रिंग: वह टेक्स्ट स्ट्रिंग जिसमें से आप अक्षर हटाना चाहते हैं;
  • num_chars: जितने अक्षर आप हटाना चाहते हैं।

टेक्स्ट स्ट्रिंग के अंत से 3 अक्षर हटाने के लिए, कृपया इस सूत्र का उपयोग करें, और फिर सूत्र को अन्य कक्षों में कॉपी करने के लिए भरण हैंडल को खींचें, स्क्रीनशॉट देखें:

=LEFT(A4, LEN(A4) - 3)


 उपयोगकर्ता परिभाषित फ़ंक्शन का उपयोग करके

यहां, एक उपयोगकर्ता परिभाषित फ़ंक्शन भी आपको कोशिकाओं की सूची से अंतिम एन वर्णों को हटाने में मदद कर सकता है, कृपया ऐसा करें:

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।

वीबीए कोड: टेक्स्ट स्ट्रिंग्स से अंतिम एन अक्षर हटाएं

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. फिर वर्कशीट पर वापस लौटें, और यह सूत्र दर्ज करें: =निकालेंx(A4,3) एक रिक्त सेल में, और फिर अपनी आवश्यकतानुसार परिणाम प्राप्त करने के लिए भरण हैंडल को नीचे खींचें, स्क्रीनशॉट देखें:

नोट: इस सूत्र में: A4 वह सेल है जिससे आप अक्षर हटाना चाहते हैं; जो नंबर 3 उन वर्णों की संख्या को इंगित करता है जिन्हें आप टेक्स्ट स्ट्रिंग के अंत से हटाना चाहते हैं।


1.3 एक शक्तिशाली सुविधा का उपयोग करके पहले, अंतिम एन वर्ण या निश्चित स्थिति वर्ण हटाएं

आपके लिए विभिन्न सूत्रों को याद रखना, बाएँ, दाएँ या पाठ स्ट्रिंग की विशिष्ट स्थिति से वर्णों को हटाना कष्टदायक हो सकता है। एक्सेल के लिए कुटूल एक शक्तिशाली सुविधा का समर्थन करता है - स्थिति के अनुसार हटाएँ. इस छोटे से टूल से आप बिना किसी फॉर्मूले को याद किए कुछ ही क्लिक में इन कार्यों को संभाल सकते हैं।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. उन कक्षों का चयन करें जिन्हें आप वर्ण हटाना चाहते हैं, और फिर क्लिक करें कुटूल > टेक्स्ट > स्थिति के अनुसार हटाएँ, स्क्रीनशॉट देखें:

2. में स्थिति के अनुसार हटाएँ संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:

2.1 कोशिकाओं से पहले n अक्षर हटाएँ:

  • In नंबर टेक्स्टबॉक्स में, उन वर्णों की संख्या टाइप करें जिन्हें आप स्ट्रिंग्स से हटाना चाहते हैं। इस उदाहरण में, मैं पहले 2 अक्षर हटा दूंगा।
  • चुनते हैं बाएं से में विकल्प पद अनुभाग।
  • तब दबायें Ok or लागू करें नीचे दिखाए गए स्क्रीनशॉट के अनुसार परिणाम प्राप्त करने के लिए बटन।

2.2 कक्षों से अंतिम n अक्षर हटाएँ:

  • In नंबर टेक्स्टबॉक्स में, उन वर्णों की संख्या टाइप करें जिन्हें आप स्ट्रिंग्स से हटाना चाहते हैं। इस उदाहरण में, मैं अंतिम 3 अक्षर हटा दूंगा।
  • चुनते हैं दायें से में विकल्प पद अनुभाग।
  • तब दबायें Ok or लागू करें नीचे दिखाए गए स्क्रीनशॉट के अनुसार परिणाम प्राप्त करने के लिए बटन।

2.3 कोशिकाओं की विशिष्ट स्थिति से n अक्षर हटाएँ:

उदाहरण के लिए, यदि आपको टेक्स्ट स्ट्रिंग्स की एक निश्चित स्थिति से विशिष्ट संख्या में वर्णों को हटाने की आवश्यकता है, तो 3 वर्णों को हटाना स्ट्रिंग के तीसरे वर्ण से शुरू होता है।

  • In नंबर टेक्स्टबॉक्स में, उन वर्णों की संख्या टाइप करें जिन्हें आप स्ट्रिंग्स से हटाना चाहते हैं। इस उदाहरण में, मैं एक निश्चित स्थिति से 3 अक्षर हटा दूंगा।
  • चुनते हैं निर्दिष्ट करें विकल्प, और टेक्स्टबॉक्स में वह संख्या टाइप करें जिससे आप वर्ण प्रारंभ करना चाहते हैं पद अनुभाग। यहां, मैं तीसरे किरदार से किरदार हटा दूंगा।
  • तब दबायें Ok or लागू करें नीचे दिखाए गए स्क्रीनशॉट के अनुसार परिणाम प्राप्त करने के लिए बटन।

अभी एक्सेल के लिए कुटूल डाउनलोड करें और निःशुल्क परीक्षण करें!


1.4 सूत्र के साथ पाठ स्ट्रिंग से पहले n और अंतिम n दोनों वर्ण हटाएं

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

=MID(string, left_chars + 1, LEN(string) - (left_chars + right_chars)
  • स्ट्रिंग: वह टेक्स्ट स्ट्रिंग जिसमें से आप अक्षर हटाना चाहते हैं;
  • बाएँ_अक्षर: बाईं ओर से हटाए जाने वाले वर्णों की संख्या;
  • दाएँ_अक्षर: दाईं ओर से हटाए जाने वाले वर्णों की संख्या.

उदाहरण के लिए, आपको एक ही समय में टेक्स्ट स्ट्रिंग से पहले 7 अक्षर और अंतिम 5 अक्षर हटाने की आवश्यकता है, कृपया निम्न सूत्र को एक रिक्त कक्ष में दर्ज करें:

=MID(A4, 7+1, LEN(A4) - (7+5))

नोट: इस सूत्र में: A4 वह सेल है जिससे आप अक्षर हटाना चाहते हैं; जो नंबर 7 यह उन वर्णों की संख्या है जिन्हें आप बाईं ओर से हटाना चाहते हैं; जो नंबर 5 यह उन वर्णों की संख्या है जिन्हें आप दाईं ओर से हटाना चाहते हैं।

और फिर, भरण हैंडल को नीचे खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, और आपको नीचे दिखाए गए स्क्रीनशॉट के अनुसार परिणाम मिलेगा:


टेक्स्ट स्ट्रिंग्स से अवांछित/विशेष वर्ण हटाएँ

एक्सेल में कहीं और से डेटा आयात करते समय, आपके वर्कशीट में बहुत सारे विशेष या अवांछित अक्षर चिपकाए जा सकते हैं। इन अवांछित वर्णों जैसे #@$%^&, रिक्त स्थान, संख्याएं, गैर-संख्यात्मक संख्याएं, लाइन ब्रेक इत्यादि को हटाने के लिए, यह अनुभाग आपकी सहायता के लिए कुछ उपयोगी तरीके प्रदान करेगा।

2.1 टेक्स्ट स्ट्रिंग्स से कुछ विशेष वर्ण हटाएँ

यदि टेक्स्ट स्ट्रिंग्स के भीतर कुछ विशेष वर्ण हैं जैसे %^&*(), तो इस प्रकार के वर्णों को हटाने के लिए, आप नीचे दी गई तीन तरकीबें लागू कर सकते हैं।

 SUBSTITUTE फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से कई विशेष वर्ण हटाएं

आम तौर पर, एक्सेल में, आप प्रत्येक विशिष्ट वर्ण को बिना किसी चीज़ के बदलने के लिए कई SUBSTITUTE फ़ंक्शंस को नेस्ट कर सकते हैं, सामान्य सिंटैक्स है:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(string_cell, char1, ""), char2, ""), char3, "")
  • स्ट्रिंग_सेल: सेल में वह टेक्स्ट स्ट्रिंग है जिससे आप विशेष वर्ण हटाना चाहते हैं;
  • char1, char2, char3: वे अवांछित पात्र जिन्हें आप हटाना चाहते हैं.

अब, कृपया नीचे दिए गए फॉर्मूले को एक रिक्त कक्ष में कॉपी या दर्ज करें:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, "#", ""), "&", ""), "*", ""), "%", "")

और फिर, भरण हैंडल को उन कक्षों तक नीचे खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, और आपके द्वारा निर्दिष्ट सभी अवांछित वर्ण एक ही बार में हटा दिए जाएंगे, स्क्रीनशॉट देखें:

टिप्स: यदि अधिक वर्ण हैं जिन्हें आप हटाना चाहते हैं, तो आपको सूत्र के अंदर अधिक स्थानापन्न फ़ंक्शन को नेस्ट करने की आवश्यकता है।


 उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से एकाधिक विशेष वर्ण हटाएं

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

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: टेक्स्ट स्ट्रिंग्स से एकाधिक विशेष वर्ण हटाएं

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. फिर, कोड विंडो बंद करें और वर्कशीट पर वापस जाएं, इस सूत्र को दर्ज करें =अनवांटेड वर्ण हटाएं(A2, $D$2) एक रिक्त सेल में जहां परिणाम आउटपुट करना है, और फिर अपनी आवश्यकता के अनुसार परिणाम प्राप्त करने के लिए भरण हैंडल को नीचे खींचें, स्क्रीनशॉट देखें:

नोट: उपरोक्त सूत्र में: A2 वह सेल है जिससे आप अक्षर हटाना चाहते हैं; $D$2 इसमें वे विशेष वर्ण शामिल हैं जिन्हें आप हटाना चाहते हैं (आप अपनी आवश्यकतानुसार कोई अन्य विशेष वर्ण टाइप कर सकते हैं)।


 एक अद्भुत सुविधा के साथ टेक्स्ट स्ट्रिंग्स से कई विशेष वर्ण हटाएं

यदि आपने स्थापित किया है एक्सेल के लिए कुटूल, के साथ अपने अक्षर हटाएँ सुविधा, आप अपनी आवश्यकतानुसार सभी प्रकार के वर्णों, जैसे संख्यात्मक वर्ण, अल्फा वर्ण, गैर-मुद्रण वर्ण... को कोशिकाओं की सूची से हटा सकते हैं।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. उन कक्षों की श्रेणी का चयन करें जिनसे आप विशेष वर्ण हटाना चाहते हैं और फिर क्लिक करें कुटूल > टेक्स्ट > अक्षर हटाएँ, स्क्रीनशॉट देखें:

2. में अक्षर हटाएँ संवाद बकस:

  • चेक रिवाज के तहत विकल्प अक्षर हटाएँ अनुभाग।
  • और फिर उन विशेष वर्णों को टेक्स्टबॉक्स में दर्ज करें जिन्हें आप हटाना चाहते हैं।
  • तब दबायें Ok or लागू करें आपके द्वारा निर्दिष्ट वर्णों को एक बार में हटाने के लिए बटन। स्क्रीनशॉट देखें:

अभी एक्सेल के लिए कुटूल डाउनलोड करें और निःशुल्क परीक्षण करें!


2.2 टेक्स्ट स्ट्रिंग्स से सभी नंबर हटा दें

यदि आपके पास टेक्स्ट स्ट्रिंग्स की एक सूची है जो संख्याओं, अक्षरों और विशेष वर्णों के साथ मिलती है, और अब, आप बस सभी संख्याओं को हटाना चाहते हैं और अन्य वर्ण रखना चाहते हैं। यह अनुभाग आपकी सहायता के लिए कुछ उपयोगी तरीके प्रदान करेगा।

 SUBSTITUTE फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से संख्याएँ हटाएँ

एक्सेल में, नेस्टेड सब्स्टिट्यूट फ़ंक्शन सभी नंबरों को शून्य से बदलने में मदद कर सकता है, इसलिए, आप सेल से सभी नंबरों को हटाने के लिए नीचे दिए गए सूत्र का उपयोग कर सकते हैं:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""),0,"")

फिर भरण हैंडल को उन कक्षों तक नीचे खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, और सभी नंबर टेक्स्ट स्ट्रिंग्स की सूची से हटा दिए जाएंगे, स्क्रीनशॉट देखें:


 TEXTJOIN फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से संख्याएँ हटाएँ

यदि आपके पास Excel 2019, 2021 या 365 है, तो नया TEXTJOIN फ़ंक्शन टेक्स्ट स्ट्रिंग्स से संख्याओं को हटाने में भी मदद कर सकता है।

कृपया निम्नलिखित सूत्र को एक रिक्त कक्ष में कॉपी करें, और फिर पहला परिणाम प्राप्त करने के लिए Ctrl + Shift + Enter कुंजियाँ एक साथ दबाएँ:

=TEXTJOIN("", TRUE, IF(ISERR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2) )), 1) *1), MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1), ""))

और फिर सूत्र को नीचे अन्य कक्षों में कॉपी करें जहां आप इस सूत्र को लागू करना चाहते हैं, स्क्रीनशॉट देखें:

नोट: यह TEXTJOIN केवल Excel 2019, 2021 और Office 365 में उपलब्ध है।


 उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से संख्याएं हटाएं

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

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: टेक्स्ट स्ट्रिंग्स से संख्याएं हटाएं

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. फिर, कोड विंडो बंद करें और बाहर निकलें, वर्कशीट पर वापस जाएं और यह सूत्र दर्ज करें: =नंबर हटाएँ(A2) एक रिक्त कक्ष में, फिर भरण हैंडल को उन कक्षों तक नीचे खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, स्क्रीनशॉट देखें:


 एक आसान विकल्प के साथ टेक्स्ट स्ट्रिंग्स से संख्याएँ हटाएँ

यदि आप जटिल फ़ार्मुलों से थक गए हैं, तो अब मैं आपको एक आसान टूल दिखाता हूँ - एक्सेल के लिए कुटूलहै अक्षर हटाएँ. इस उपयोगी सुविधा के साथ, आप केवल कुछ क्लिक के साथ इस कार्य को पूरा कर सकते हैं।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. उन कक्षों की श्रेणी का चयन करें जहाँ से आप संख्याएँ हटाना चाहते हैं, और फिर क्लिक करें कुटूल > टेक्स्ट > अक्षर हटाएँ.

2. में अक्षर हटाएँ संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:

  • चेक सांख्यिक के तहत विकल्प अक्षर हटाएँ अनुभाग।
  • तब दबायें Ok or लागू करें नंबरों को तुरंत हटाने के लिए बटन। स्क्रीनशॉट देखें:

अभी एक्सेल के लिए कुटूल डाउनलोड करें और निःशुल्क परीक्षण करें!


2.3 टेक्स्ट स्ट्रिंग्स से गैर-संख्यात्मक वर्ण हटाएँ

सभी गैर-संख्यात्मक वर्णों को हटाने और केवल टेक्स्ट स्ट्रिंग्स से संख्याओं को रखने के लिए, यह अनुभाग एक्सेल में इस कार्य को हल करने के कुछ तरीकों के बारे में बात करेगा।

 एक्सेल 2016 और पुराने संस्करणों में फॉर्मूला के साथ टेक्स्ट स्ट्रिंग्स से गैर-संख्यात्मक वर्ण हटाएं

यदि आप एक्सेल 2016 या पुराने संस्करणों का उपयोग कर रहे हैं, तो आपको इस कार्य को प्राप्त करने के लिए एक जटिल फॉर्मूला लागू करना चाहिए, कृपया नीचे दिए गए फॉर्मूले को कॉपी करें या एक रिक्त सेल में दर्ज करें:

=SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1)) * ROW(INDIRECT("1:"&LEN(A2))), 0), ROW(INDIRECT("1:"&LEN(A2))))+1, 1) * 10^ROW(INDIRECT("1:"&LEN(A2)))/10)

और फिर सूत्र को नीचे अन्य कक्षों में कॉपी करें जहां आप इस सूत्र को लागू करना चाहते हैं, स्क्रीनशॉट देखें:

नोट: यदि टेक्स्ट स्ट्रिंग में संख्याएँ 0 से शुरू होती हैं, तो 0 ख़त्म हो जाएगा।


 Excel 2019, 2021, 365 में TEXTJOIN फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से गैर-संख्यात्मक वर्ण हटाएं

उपरोक्त सूत्र हममें से अधिकांश के लिए समझना बहुत कठिन हो सकता है। यदि आपके पास एक्सेल 2019, 2021 या 365 है, तो एक साफ फॉर्मूला है जो आपकी मदद कर सकता है।

कृपया निम्नलिखित सूत्र को किसी रिक्त कक्ष में कॉपी करें या दर्ज करें, और दबाएँ Ctrl + Shift + Enter पहला सही परिणाम प्राप्त करने के लिए कुंजियाँ एक साथ:

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:100")),1)+0,""))

फिर, भरण हैंडल को नीचे की ओर उन कक्षों तक खींचें जहां आप इस सूत्र को लागू करेंगे, और आपको नीचे दिखाए गए स्क्रीनशॉट के अनुसार परिणाम मिलेगा:

नोट: इस सूत्र के साथ, आप देख सकते हैं कि अग्रणी 0 को रखा जाएगा क्योंकि संख्याएँ पाठ के रूप में लौटाई गई हैं।


 उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से गैर-संख्यात्मक वर्ण हटाएं

बेशक, आप सरल वाक्यविन्यास के साथ अपना स्वयं का उपयोगकर्ता परिभाषित फ़ंक्शन भी बना सकते हैं, कृपया ऐसा करें:

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: टेक्स्ट स्ट्रिंग्स से गैर-संख्यात्मक वर्ण हटाएं

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. फिर, कोड विंडो बंद करें और बाहर निकलें, वर्कशीट पर वापस जाएं और यह सूत्र दर्ज करें: =निकालेंअसंख्यात्मक(A2) एक रिक्त कक्ष में, फिर भरण हैंडल को उन कक्षों तक नीचे खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, केवल संख्याएँ निकाली जाएंगी जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:


 एक साधारण सुविधा के साथ टेक्स्ट स्ट्रिंग्स से गैर-संख्यात्मक वर्ण हटाएं

कक्षों की श्रेणी में गैर-संख्यात्मक वर्णों को सीधे हटाने के लिए, एक्सेल के लिए कुटूलहै अक्षर हटाएँ यूटिलिटी इसे केवल कुछ क्लिक से पूरा कर सकती है।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. उन कक्षों की श्रेणी का चयन करें जिनसे आप गैर-संख्यात्मक वर्ण हटाना चाहते हैं, और फिर क्लिक करें कुटूल > टेक्स्ट > अक्षर हटाएँ.

2. में अक्षर हटाएँ संवाद बॉक्स, कृपया निम्नलिखित परिचालन सेट करें:

  • चेक गैर संख्यात्मक के तहत विकल्प अक्षर हटाएँ अनुभाग।
  • तब दबायें Ok or लागू करें सभी गैर-संख्यात्मक वर्णों को तुरंत हटाने के लिए बटन। स्क्रीनशॉट देखें:

अभी एक्सेल के लिए कुटूल डाउनलोड करें और निःशुल्क परीक्षण करें!


2.4 टेक्स्ट और संख्याओं को एक सेल से दो कॉलम में अलग करें

कभी-कभी, आप टेक्स्ट स्ट्रिंग्स से टेक्स्ट और संख्याओं को दो अलग-अलग कॉलम में निकालना चाह सकते हैं, निम्नलिखित विधियों की मदद से आप इस कार्य को जल्दी और आसानी से पूरा कर सकते हैं।

 उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट और संख्याओं को एक सेल से दो कॉलम में अलग करें

निम्नलिखित उपयोगकर्ता परिभाषित फ़ंक्शन का उपयोग करके, आप टेक्स्ट और संख्याओं को एक साथ निकाल सकते हैं, कृपया नीचे दिए गए चरणों का पालन करें:

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: टेक्स्ट स्ट्रिंग से टेक्स्ट और संख्याओं को दो कॉलम में अलग करें

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. फिर, कोड विंडो बंद करें और बाहर निकलें, वर्कशीट पर वापस जाएं और यह सूत्र दर्ज करें: =स्प्लिटटेक्स्ट(A2,FALSE) एक रिक्त कक्ष में, और फिर भरण हैंडल को उन कक्षों तक नीचे खींचें जिन्हें आप सभी पाठ प्राप्त करने के लिए इस सूत्र को भरना चाहते हैं, स्क्रीनशॉट देखें:

4. और फिर, इस सूत्र को टाइप करते रहें: =स्प्लिटटेक्स्ट(A2,TRUE) किसी अन्य सेल में और भरण हैंडल को नीचे की ओर उन कक्षों तक खींचें जिनमें संख्याएँ प्राप्त करने के लिए आप इस सूत्र को भरना चाहते हैं, स्क्रीनशॉट देखें:


 एक आसान सुविधा के साथ टेक्स्ट और संख्याओं को एक सेल से दो कॉलम में अलग करें

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

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. उन कक्षों की श्रेणी का चयन करें जिन्हें आप विभाजित करना चाहते हैं, और फिर क्लिक करें कुटूल > विलय और विभाजन > विभाजन कोशिकाओं, स्क्रीनशॉट देखें:

2. में विभाजन कोशिकाओं संवाद बॉक्स में, चयन करें स्तंभों में विभाजित करें के तहत विकल्प प्रकार अनुभाग, और फिर जाँच करें पाठ और संख्या से द्वारा विभाजित अनुभाग, स्क्रीनशॉट देखें:

3। तब दबायें Ok बटन, और दूसरा विभाजन कोशिकाओं संवाद बॉक्स पॉप आउट हो जाएगा, अलग किए गए टेक्स्ट और संख्याओं को आउटपुट करने के लिए एक सेल का चयन करें और फिर क्लिक करें OK बटन। अब, आप देख सकते हैं कि चयनित सेल में टेक्स्ट और नंबर एक साथ दो कॉलम में विभाजित हो गए हैं जैसा कि नीचे दिए गए डेमो में दिखाया गया है:

अभी एक्सेल के लिए कुटूल डाउनलोड करें और निःशुल्क परीक्षण करें!


2.5 टेक्स्ट स्ट्रिंग्स से लाइन ब्रेक अक्षर हटाएँ

लाइन ब्रेक एक ऐसी चीज़ है जो आपको एक्सेल में एक ही सेल में कई लाइनें रखने की अनुमति देती है। कभी-कभी, जब आप वेबसाइट से डेटा कॉपी करते हैं या अपने सेल की सामग्री को अलग करते हैं Alt + Enter चाबियाँ मैन्युअल रूप से, आपको लाइन ब्रेक या कैरिज रिटर्न मिलेंगे। कुछ मामलों में, आप सेल सामग्री को एक लाइन बनाने के लिए लाइन ब्रेक को हटाना चाह सकते हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। यहां, मैं एक्सेल में इस कार्य को हल करने के कुछ तरीके पेश करूंगा।

 ढूंढें और बदलें सुविधा के साथ टेक्स्ट स्ट्रिंग्स से लाइन ब्रेक वर्ण हटाएं

एक्सेल में, आप इसका उपयोग कर सकते हैं ढूँढें और बदलें लाइन ब्रेक हटाने की सुविधा, कृपया ऐसा करें:

1. उस डेटा श्रेणी का चयन करें जिसमें से आप लाइन ब्रेक हटाना चाहते हैं।

2। तब दबायें होम > खोजें और चुनें > बदलें (या प्रेस Ctrl + H चाबियाँ) जाने के लिए ढूँढें और बदलें संवाद बॉक्स, स्क्रीनशॉट देखें:

3. बाहर निकले में ढूँढें और बदलें संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:

  • में कर्सर रखें क्या पता फ़ील्ड और दबाएँ Ctrl + J कीबोर्ड पर, आपको कुछ भी दिखाई नहीं दे सकता है, लेकिन लाइन ब्रेक कैरेक्टर डाला गया है।
  • में साथ बदलें फ़ील्ड, लाइन ब्रेक को हटाने या दबाने के लिए इस फ़ील्ड को खाली छोड़ दें अंतरिक्ष बाएक बार लाइन ब्रेक को रिक्त स्थान से बदलने के लिए।

4। तब दबायें सभी को बदलें बटन, चयनित कक्षों में सभी लाइन ब्रेक एक ही बार में हटा दिए जाएंगे या रिक्त स्थान से बदल दिए जाएंगे। स्क्रीनशॉट देखें:


 SUBSTITUTE फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से लाइन ब्रेक वर्ण हटाएं

आप टेक्स्ट स्ट्रिंग्स से लाइन ब्रेक हटाने के लिए SUBSTITUTE और CHAR फ़ंक्शंस के आधार पर एक फॉर्मूला भी बना सकते हैं।

परिणाम प्राप्त करने के लिए कृपया नीचे दिया गया फॉर्मूला लागू करें:

=SUBSTITUTE(A2,CHAR(10),"")

टिप्स: SUBSTITUTE फ़ंक्शन CHAR(10) वर्ण को ढूंढता है और प्रतिस्थापित करता है जो लाइन ब्रेक वर्ण को बिना किसी शून्य के दर्शाता है। यदि आप चाहते हैं कि परिणाम को अल्पविराम और स्थान से अलग किया जाए, तो आप नीचे दिए गए सूत्र का उपयोग कर सकते हैं:

=SUBSTITUTE(A2,CHAR(10),", ")


 वीबीए कोड के साथ टेक्स्ट स्ट्रिंग्स से लाइन ब्रेक अक्षर हटाएं

यदि आप वीबीए कोड का उपयोग करने में सहज हैं, तो यहां आपके लिए एक कोड भी प्रदान किया गया है, कृपया निम्नलिखित चरणों का पालन करें:

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: टेक्स्ट स्ट्रिंग्स से लाइन ब्रेक हटाएं

Sub RemoveCarriage()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स दिखाई देगा, उस श्रेणी का चयन करें जिसे आप लाइन ब्रेक हटाना चाहते हैं, स्क्रीनशॉट देखें:

4. और फिर, क्लिक करें OK बटन, चयनित डेटा रेंज से सभी लाइन ब्रेक हटा दिए जाएंगे।


 स्मार्ट विकल्प के साथ टेक्स्ट स्ट्रिंग्स से लाइन ब्रेक अक्षर हटाएं

यहाँ, एक्सेल के लिए कुटूलहै अक्षर हटाएँ यह सुविधा आपको लाइन ब्रेक को आसानी से हटाने में भी मदद कर सकती है।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. उन कक्षों की श्रेणी का चयन करें जहां आप पंक्ति विराम हटाना चाहते हैं, और फिर क्लिक करें कुटूल > टेक्स्ट > अक्षर हटाएँ.

2. में अक्षर हटाएँ संवाद बॉक्स, कृपया निम्नलिखित परिचालन सेट करें:

  • चेक गैर मुद्रण के तहत विकल्प अक्षर हटाएँ अनुभाग।
  • तब दबायें Ok or लागू करें चयनित डेटा रेंज से सभी लाइन ब्रेक हटाने के लिए बटन। स्क्रीनशॉट देखें:

अभी एक्सेल के लिए कुटूल डाउनलोड करें और निःशुल्क परीक्षण करें!


2.6 टेक्स्ट स्ट्रिंग्स से रिक्त स्थान (अग्रणी, अनुगामी, अतिरिक्त या सभी रिक्त स्थान) हटाएँ

बाहरी स्रोत से टेक्स्ट को एक्सेल वर्कशीट में कॉपी करने और चिपकाने से अक्सर कुछ परेशान करने वाले खाली स्थान आ जाते हैं, अग्रणी, अनुगामी या अन्य अतिरिक्त रिक्त स्थान को मैन्युअल रूप से हटाना कठिन होगा। सौभाग्य से, एक्सेल इस कार्य से निपटने के लिए कुछ आसान तरकीबें प्रदान करता है।

 TRIM फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से अतिरिक्त रिक्त स्थान (अग्रणी, अनुगामी, अतिरिक्त) हटाएं

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

कृपया नीचे दिए गए सूत्र को एक रिक्त कक्ष में दर्ज करें:

=TRIM(A2)

और फिर अन्य कक्षों के लिए सूत्र की प्रतिलिपि बनाने के लिए भरण हैंडल को नीचे खींचें, अब, आप देख सकते हैं कि शब्दों के बीच सभी अग्रणी, अनुगामी स्थान और अतिरिक्त स्थान स्क्रीनशॉट से एक ही बार में हटा दिए गए हैं:


 टेक्स्ट स्ट्रिंग्स से सभी रिक्त स्थान हटाएँ

यदि आप टेक्स्ट स्ट्रिंग्स से सभी व्हाइटस्पेस को हटाना चाहते हैं, तो निम्नलिखित SUBSTITUTE फ़ंक्शन और फाइंड एंड रिप्लेस सुविधा आपकी मदद कर सकती है।

SUBSTITUTE फ़ंक्शन का उपयोग करके

आप सभी रिक्त स्थानों को शून्य से बदलने के लिए SUBSTITUTE फ़ंक्शन का उपयोग कर सकते हैं, कृपया नीचे दिए गए सूत्र को रिक्त कक्ष में लागू करें:

=SUBSTITUTE(A2," ","")

फिर, इस फ़ॉर्मूले को अपनी ज़रूरत की अन्य कोशिकाओं में कॉपी करने के लिए भरण हैंडल को नीचे खींचें, और नीचे दिखाए गए स्क्रीनशॉट के अनुसार सभी स्थान हटा दिए जाएंगे:


ढूँढें और बदलें सुविधा का उपयोग करके

वास्तव में, खोजें और बदलें एक्सेल में फीचर चयनित सेल से सभी रिक्त स्थान से छुटकारा पाने में भी मदद कर सकता है, कृपया निम्नलिखित चरणों का पालन करें:

1. उस डेटा श्रेणी का चयन करें जिसमें से आप सभी रिक्त स्थान हटाना चाहते हैं।

2। तब दबायें होम > खोजें और चुनें > बदलें (या प्रेस Ctrl + H चाबियाँ) पर जाने के लिए ढूँढें और बदलें डायलॉग बॉक्स, खुले में ढूँढें और बदलें संवाद बॉक्स, कृपया नीचे दी गई कार्रवाई करें:

  • दबाएँ अंतरिक्ष बार में क्या पता खेत;
  • में साथ बदलें फ़ील्ड, इस फ़ील्ड को खाली छोड़ दें.

3. और फिर, क्लिक करें सभी को बदलें बटन, चयनित कक्षों के सभी रिक्त स्थान एक ही बार में हटा दिए जाएंगे। स्क्रीनशॉट देखें:


 एक शक्तिशाली सुविधा के साथ टेक्स्ट स्ट्रिंग्स से सभी प्रकार के रिक्त स्थान हटाएं

एक्सेल के लिए कुटूल एक शक्तिशाली विशेषता है - रिक्त स्थान हटाएँ, इस उपयोगिता के साथ, आप न केवल अग्रणी रिक्त स्थान, अनुगामी रिक्त स्थान, अतिरिक्त रिक्त स्थान को हटा सकते हैं, बल्कि एक संवाद बॉक्स में चयनित श्रेणियों से सभी रिक्त स्थान भी हटा सकते हैं, जो आपकी कार्य उत्पादकता को बढ़ाएगा।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. उस डेटा श्रेणी का चयन करें जिसमें से आप रिक्त स्थान हटाएंगे और फिर क्लिक करें कुटूल > टेक्स्ट > रिक्त स्थान हटाएँ. स्क्रीनशॉट देखें:

2. में रिक्त स्थान हटाएँ संवाद बॉक्स में, एक स्थान प्रकार चुनें जिसे आप हटाना चाहते हैं रिक्त स्थान प्रकार:

  • प्रमुख रिक्त स्थान हटा दें, कृपया चयन करें अग्रणी स्थान विकल्प;
  • पिछला रिक्त स्थान हटा दें, कृपया चयन करें संबद्ध पिछले स्थान विकल्प;
  • अग्रणी रिक्त स्थान और अनुगामी रिक्त स्थान को एक साथ हटा दें, कृपया चयन करें अग्रणी एवं अनुगामी स्थान विकल्प;
  • सभी अतिरिक्त रिक्त स्थान हटा दें, कृपया चुनें सभी अतिरिक्त स्थान विकल्प;
  • सभी रिक्त स्थान हटाएँ, कृपया चुनें सभी स्थान विकल्प.

3। तब दबायें Ok or लागू करें बटन, आपको वह परिणाम मिलेगा जो आपको चाहिए।

अभी एक्सेल के लिए कुटूल डाउनलोड करें और निःशुल्क परीक्षण करें!


विशिष्ट वर्ण के पहले या बाद के वर्ण/पाठ हटाएँ

इस अनुभाग में, मैं किसी विशिष्ट वर्ण की पहली, आखिरी या नौवीं घटना से पहले या बाद में पाठ या वर्णों को हटाने के लिए कुछ ऑपरेशन पेश करूंगा।

3.1 पहले विशिष्ट वर्ण से पहले या बाद का टेक्स्ट हटाएँ

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

 किसी सूत्र के साथ पहले विशिष्ट वर्ण से पहले का पाठ हटाएँ

पहले विशिष्ट वर्ण से पहले पाठ या वर्णों को हटाने के लिए, आप RIGHT, LEN और FIND फ़ंक्शन के आधार पर एक सूत्र बना सकते हैं, सामान्य वाक्यविन्यास है:

=RIGHT(cell, LEN(cell)-FIND("char", cell))
  • सेल: वह सेल संदर्भ या टेक्स्ट स्ट्रिंग जिससे आप टेक्स्ट हटाना चाहते हैं;
  • टैंक: वह विशिष्ट विभाजक जिसके आधार पर आप पाठ को हटाना चाहते हैं।

उदाहरण के लिए, सूची स्ट्रिंग्स से पहले अल्पविराम से पहले सब कुछ हटाने के लिए, आपको निम्न सूत्र को एक रिक्त सेल में लागू करना चाहिए, और फिर इसे उन कोशिकाओं तक खींचें जिनकी आपको आवश्यकता है, स्क्रीनशॉट देखें:

=RIGHT(A2,LEN(A2)-FIND(",",A2))

नोट:उपरोक्त सूत्र में: A2 वह सेल है जिससे आप टेक्स्ट हटाना चाहते हैं; , यह वह विशिष्ट वर्ण है जिसके आधार पर आप पाठ को हटाना चाहते हैं, आप इसे अपनी आवश्यकतानुसार किसी अन्य वर्ण में बदल सकते हैं।


 सूत्र के साथ पहले विशिष्ट वर्ण के बाद पाठ हटाएँ

पहले विशिष्ट वर्ण के बाद सब कुछ हटाने के लिए, आप परिणाम प्राप्त करने के लिए LEFT और FIND फ़ंक्शन का उपयोग कर सकते हैं, सामान्य सिंटैक्स है:

=LEFT(cell,FIND("char",cell)-1)
  • सेल: वह सेल संदर्भ या टेक्स्ट स्ट्रिंग जिससे आप टेक्स्ट हटाना चाहते हैं;
  • टैंक: वह विशिष्ट विभाजक जिसके आधार पर आप पाठ को हटाना चाहते हैं।

अब, कृपया नीचे दिए गए सूत्र को एक रिक्त कक्ष में दर्ज करें, और फिर भरण हैंडल को अन्य कक्षों तक खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, और पहले अल्पविराम के बाद के सभी अक्षर एक ही बार में हटा दिए जाएंगे, स्क्रीनशॉट देखें:

=LEFT(A2,FIND(",",A2)-1)


3.2 किसी वर्ण की Nवीं घटना से पहले या बाद में पाठ हटाएँ

कभी-कभी, टेक्स्ट स्ट्रिंग्स में एक विशिष्ट सीमांकक के कई उदाहरण होते हैं, आप किसी विशिष्ट उदाहरण से पहले या बाद के सभी वर्णों को हटाना चाह सकते हैं, जैसे कि दूसरा, तीसरा या चौथा, जैसा कि आपको आवश्यकता हो। इस प्रकार के निष्कासन से निपटने के लिए, आप निम्नलिखित युक्तियों का उपयोग कर सकते हैं:

 सूत्र के साथ किसी वर्ण की Nवीं घटना से पहले पाठ हटाएँ

किसी विशिष्ट वर्ण की Nवीं घटना से पहले पाठ को हटाने के लिए, निम्नलिखित सूत्र आपकी सहायता कर सकता है, सामान्य वाक्यविन्यास है:

=RIGHT(cell,LEN(cell)-FIND("#",SUBSTITUTE(cell,"char","#",N)))
  • सेल: वह सेल संदर्भ या टेक्स्ट स्ट्रिंग जिससे आप टेक्स्ट हटाना चाहते हैं;
  • टैंक: वह विशिष्ट विभाजक जिसके आधार पर आप पाठ को हटाना चाहते हैं;
  • N: उस वर्ण का घटित होना जिसके पहले पाठ को हटाना है।

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

=RIGHT(A2,LEN(A2)-FIND("#",SUBSTITUTE(A2,",","#",2)))

नोट:उपरोक्त सूत्र में: A2 वह सेल है जिससे आप टेक्स्ट हटाना चाहते हैं; , वह विशिष्ट वर्ण है जिसके आधार पर आप पाठ को हटाना चाहते हैं, आप इसे अपनी आवश्यकतानुसार किसी अन्य वर्ण में बदल सकते हैं; 2 उस nवें अल्पविराम को इंगित करता है जिसके पहले आप पाठ को हटाना चाहते हैं।

और फिर, सूत्र को अन्य कक्षों में कॉपी करने के लिए भरण हैंडल को खींचें, स्क्रीनशॉट देखें:


 सूत्र के साथ किसी वर्ण की Nवीं घटना के बाद पाठ हटाएँ

किसी विशिष्ट विभाजक की Nवीं घटना के बाद पाठ को हटाने के लिए, LEFT, SUBSTITUTE और FIND फ़ंक्शन आपकी मदद कर सकते हैं। सामान्य वाक्यविन्यास है:

=LEFT(cell, FIND("#", SUBSTITUTE(cell, "char", "#", N)) -1)
  • सेल: वह सेल संदर्भ या टेक्स्ट स्ट्रिंग जिससे आप टेक्स्ट हटाना चाहते हैं;
  • टैंक: वह विशिष्ट विभाजक जिसके आधार पर आप पाठ को हटाना चाहते हैं;
  • N: चरित्र की घटना जिसके बाद पाठ को हटाना है।

एक बार जब आप मूल वाक्यविन्यास को समझ लें, तो कृपया नीचे दिए गए सूत्र को कॉपी करें या एक रिक्त कक्ष में दर्ज करें:

=LEFT(A2, FIND("#", SUBSTITUTE(A2, ",", "#", 2)) -1)

नोट:उपरोक्त सूत्र में: A2 वह सेल है जिससे आप टेक्स्ट हटाना चाहते हैं; , वह विशिष्ट वर्ण है जिसके आधार पर आप पाठ को हटाना चाहते हैं, आप इसे अपनी आवश्यकतानुसार किसी अन्य वर्ण में बदल सकते हैं; 2 nवें अल्पविराम को इंगित करता है जिसके बाद आप पाठ को हटाना चाहते हैं।

फिर, सूत्र को अन्य कक्षों में कॉपी करने के लिए भरण हैंडल को खींचें, और दूसरे अल्पविराम के बाद के सभी वर्ण एक ही बार में हटा दिए जाएंगे, स्क्रीनशॉट देखें:


 उपयोगकर्ता परिभाषित फ़ंक्शन के साथ किसी वर्ण की Nवीं घटना से पहले या बाद में टेक्स्ट हटाएं

जैसा कि आप देख सकते हैं, आप विभिन्न संयोजनों में एक्सेल के मूल कार्यों का उपयोग करके किसी वर्ण की Nवीं घटना से पहले या बाद में पाठ को हटाने के मामलों को हल कर सकते हैं। समस्या यह है कि आपको इन पेचीदा सूत्रों को याद रखना होगा। इस मामले में, मैं सभी परिदृश्यों को कवर करने के लिए एक उपयोगकर्ता परिभाषित फ़ंक्शन बनाऊंगा, कृपया इसे इस प्रकार करें:

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: किसी वर्ण की Nवीं घटना से पहले या बाद में टेक्स्ट हटाएं

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. फिर, कोड विंडो बंद करें और बाहर निकलें, वर्कशीट पर वापस जाएं, निम्नलिखित सूत्रों का उपयोग करें:

अल्पविराम की दूसरी घटना से पहले पाठ हटाएँ:

=RemoveTextOccurrence(A2, ", ", 2, FALSE)

अल्पविराम की दूसरी घटना के बाद पाठ हटाएँ

=RemoveTextOccurrence(A2, ", ", 2, TRUE)


3.3 किसी वर्ण की अंतिम घटना से पहले या बाद में पाठ हटाएँ

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

 किसी सूत्र के साथ किसी वर्ण की अंतिम घटना से पहले पाठ को हटा दें

किसी वर्ण की अंतिम घटना से पहले सभी वर्णों को हटाने के लिए, सामान्य वाक्यविन्यास है:

=RIGHT(cell,LEN(cell)-SEARCH("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char","")))))
  • सेल: वह सेल संदर्भ या टेक्स्ट स्ट्रिंग जिससे आप टेक्स्ट हटाना चाहते हैं;
  • टैंक: वह विशिष्ट विभाजक जिसके आधार पर आप पाठ को हटाना चाहते हैं;

अब, यदि आपको अल्पविराम की अंतिम घटना से पहले पाठ को हटाने की आवश्यकता है, तो कृपया नीचे दिए गए सूत्र को कॉपी करें या रिक्त कक्ष में दर्ज करें:

=RIGHT(A2,LEN(A2)-SEARCH("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",","")))))

नोट:उपरोक्त सूत्र में: A2 वह सेल है जिससे आप टेक्स्ट हटाना चाहते हैं; , यह वह विशिष्ट वर्ण है जिसके आधार पर आप पाठ को हटाना चाहते हैं, आप इसे अपनी आवश्यकतानुसार किसी अन्य वर्ण में बदल सकते हैं।

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


 सूत्रों के साथ किसी वर्ण की अंतिम घटना के बाद पाठ हटाएँ

यदि सेल मानों को सीमांकक की एक चर संख्या के साथ अलग किया गया है, तो अब, आप उस सीमांकक के अंतिम उदाहरण के बाद सब कुछ हटाना चाहते हैं, सामान्य वाक्यविन्यास है:

=LEFT(cell,FIND("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char",""))))-1)
  • सेल: वह सेल संदर्भ या टेक्स्ट स्ट्रिंग जिससे आप टेक्स्ट हटाना चाहते हैं;
  • टैंक: वह विशिष्ट विभाजक जिसके आधार पर आप पाठ को हटाना चाहते हैं;

कृपया नीचे दिए गए फॉर्मूले को कॉपी करें या एक रिक्त सेल में दर्ज करें, और फिर अपने आवश्यक अन्य परिणाम प्राप्त करने के लिए भरण हैंडल को नीचे खींचें, स्क्रीनशॉट देखें:

=LEFT(A2,FIND("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",",""))))-1)

नोट:उपरोक्त सूत्र में: A2 वह सेल है जिससे आप टेक्स्ट हटाना चाहते हैं; , यह वह विशिष्ट वर्ण है जिसके आधार पर आप पाठ को हटाना चाहते हैं, आप इसे अपनी आवश्यकतानुसार किसी अन्य वर्ण में बदल सकते हैं।


3.4 कोष्ठकों के बीच का पाठ हटाएँ

यदि आपके पास कोष्ठक में संलग्न कुछ वर्णों के साथ टेक्स्ट स्ट्रिंग्स की एक सूची है, तो अब, आप कोष्ठक सहित कोष्ठक के भीतर के सभी वर्णों को हटाना चाह सकते हैं, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। यह अनुभाग एक्सेल में इस कार्य को हल करने के लिए कुछ तरकीबों के बारे में बात करेगा।

 ढूँढें और बदलें सुविधा के साथ कोष्ठकों के बीच का पाठ हटाएँ

एक्सेल में, अंतर्निहित ढूँढें और बदलें सुविधा आपको कोष्ठक के भीतर सभी पाठ ढूंढने में मदद कर सकती है, और फिर उन्हें कुछ भी नहीं से बदल सकती है। कृपया इस प्रकार करें:

1. उस डेटा सूची का चयन करें जिसे आप कोष्ठकों के बीच के पाठों को हटाना चाहते हैं।

2। तब दबायें होम > खोजें और चुनें > बदलें (या प्रेस Ctrl + H कुंजियाँ) ढूँढें और बदलें संवाद बॉक्स में जाने के लिए ढूँढें और बदलें संवाद बॉक्स में, निम्नलिखित कार्य करें:

  • में क्या पता क्षेत्र प्रकार (*) टेक्स्टबॉक्स में;
  • में साथ बदलें फ़ील्ड, इस फ़ील्ड को खाली छोड़ दें.

3। तब दबायें सभी को बदलें बटन, चयनित कक्षों में कोष्ठक के भीतर (कोष्ठक सहित) सभी वर्ण एक ही बार में हटा दिए जाएंगे। स्क्रीनशॉट देखें:

टिप्स: ढूँढें और बदलें यह सुविधा टेक्स्ट स्ट्रिंग्स के भीतर कोष्ठकों के दो या दो से अधिक जोड़े के लिए भी काम करती है।


 सूत्र के साथ कोष्ठकों के बीच का पाठ हटाएँ

ढूँढें और बदलें सुविधा के अलावा, आप एक्सेल में इस कार्य को हल करने के लिए एक सूत्र का भी उपयोग कर सकते हैं, सामान्य सिंटैक्स है:

=SUBSTITUTE(text,MID(LEFT(text,FIND(")",text)),FIND("(",text),LEN(text)),"")
  • टेक्स्ट: वह टेक्स्ट स्ट्रिंग या सेल संदर्भ जिससे आप अक्षर हटाना चाहते हैं।

अब, कृपया निम्नलिखित सूत्र को कॉपी करें या एक रिक्त कक्ष में दर्ज करें जहां आप परिणाम प्राप्त करना चाहते हैं:

=SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),"")

फिर, भरण हैंडल को उन कक्षों तक नीचे खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, और कोष्ठक सहित कोष्ठक के भीतर के सभी पाठ एक ही बार में हटा दिए जाएंगे, स्क्रीनशॉट देखें:

टिप्स: यदि सेल मान में कोई कोष्ठक नहीं है, तो उपरोक्त सूत्र को लागू करने के बाद एक त्रुटि प्रदर्शित होगी, त्रुटि को अनदेखा करने के लिए, कृपया नीचे दिए गए सूत्र का उपयोग करें:

=IFERROR(SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),""),A2)


 उपयोगकर्ता परिभाषित फ़ंक्शन के साथ कोष्ठक के बीच का पाठ हटाएं

उपरोक्त सूत्र कोष्ठक की एक जोड़ी से पाठ को हटाने के लिए अच्छी तरह से काम करता है, यदि आपको पाठ स्ट्रिंग के भीतर कोष्ठक की एकाधिक जोड़ी से पाठ को हटाने की आवश्यकता है, तो सूत्र सही ढंग से काम नहीं करेगा। यहां, मैं इस कार्य को हल करने के लिए एक सरल उपयोगकर्ता परिभाषित फ़ंक्शन बनाऊंगा।

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

VBA कोड: कोष्ठकों के बीच का पाठ हटाएँ

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. फिर, वर्कशीट पर वापस लौटें, और इस सूत्र को एक रिक्त कक्ष में दर्ज करें: =remtxt(A2), फिर भरण हैंडल को उन कक्षों तक नीचे खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, कोष्ठकों सहित सभी कोष्ठकों के भीतर के सभी पाठ नीचे दिखाए गए स्क्रीनशॉट के अनुसार हटा दिए जाएंगे:


टेक्स्ट स्ट्रिंग से शब्द हटाएँ

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

4.1 टेक्स्ट स्ट्रिंग से पहला या अंतिम शब्द हटाएँ

टेक्स्ट स्ट्रिंग्स की सूची से पहला या आखिरी शब्द हटाने के लिए, निम्नलिखित सूत्र आपके काम आ सकते हैं।

 सूत्र के साथ पाठ स्ट्रिंग से पहला शब्द हटाएँ

टेक्स्ट स्ट्रिंग्स की सूची से पहले शब्दों को हटा दें, आप RIGHT, LEN और FIND फ़ंक्शंस के आधार पर एक सरल सूत्र बना सकते हैं, सामान्य सिंटैक्स है:

=RIGHT(text,LEN(text)-FIND(" ",text))
  • टेक्स्ट: वह टेक्स्ट स्ट्रिंग या सेल संदर्भ जिससे आप पहला शब्द हटाना चाहते हैं।

अब, कृपया निम्नलिखित सूत्र को एक रिक्त कक्ष में दर्ज करें या कॉपी करें:

=RIGHT(A2,LEN(A2)-FIND(" ",A2))

और फिर, अन्य कक्षों पर सूत्र लागू करने के लिए भरण हैंडल को नीचे खींचें, स्क्रीनशॉट देखें:

टिप्स: यदि आपको कोशिकाओं से पहले एन शब्द हटाने की आवश्यकता है, तो कृपया नीचे दिए गए सूत्र का उपयोग करें:

=MID(TRIM(text),1+FIND("~",SUBSTITUTE(TRIM(text)," ","~",N)),255)
  • टेक्स्ट: वह टेक्स्ट स्ट्रिंग या सेल संदर्भ जिससे आप पहले n शब्द हटाना चाहते हैं;
  • N: इंगित करता है कि आप टेक्स्ट स्ट्रिंग की शुरुआत से कितने शब्द हटाना चाहते हैं।

उदाहरण के लिए, सेल से पहले दो शब्दों को हटाने के लिए, कृपया अपनी आवश्यकतानुसार परिणाम प्राप्त करने के लिए नीचे दिए गए फॉर्मूले को कॉपी करें या एक रिक्त सेल में दर्ज करें, स्क्रीनशॉट देखें:

=MID(TRIM(A2),1+FIND("~",SUBSTITUTE(TRIM(A2)," ","~",2)),255)


  सूत्र के साथ टेक्स्ट स्ट्रिंग से अंतिम शब्द हटाएं

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

=LEFT(TRIM(text),FIND("~",SUBSTITUTE(text," ","~",LEN(TRIM(text))-LEN(SUBSTITUTE(TRIM(text)," ",""))))-1)
  • टेक्स्ट: वह टेक्स्ट स्ट्रिंग या सेल संदर्भ जिससे आप अंतिम शब्द हटाना चाहते हैं;

कृपया नीचे दिए गए सूत्र का उपयोग एक रिक्त कक्ष में करें, और फिर सूत्र को अन्य कक्षों पर लागू करने के लिए भरण हैंडल को नीचे खींचें, स्क्रीनशॉट देखें:

=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)

टिप्स: कोशिकाओं की सूची से अंतिम एन शब्दों को हटाने के लिए, सामान्य वाक्यविन्यास है:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",LEN(text)-LEN(SUBSTITUTE(text," ",""))-(N-1))))
  • टेक्स्ट: वह टेक्स्ट स्ट्रिंग या सेल संदर्भ जिससे आप अंतिम n शब्द हटाना चाहते हैं;
  • N: उन शब्दों की संख्या को इंगित करता है जिन्हें आप टेक्स्ट स्ट्रिंग के अंत से हटाना चाहते हैं।

मान लीजिए, कोशिकाओं की सूची से अंतिम 3 शब्दों को हटाने के लिए, कृपया परिणाम वापस करने के लिए नीचे दिए गए सूत्र का उपयोग करें, स्क्रीनशॉट देखें:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))-(3-1))))


4.2 किसी सेल के भीतर डुप्लिकेट अक्षर या शब्द हटाएँ

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

 उपयोगकर्ता परिभाषित फ़ंक्शन का उपयोग करके सेल के भीतर डुप्लिकेट वर्ण हटाएं

यदि आपके पास एक सेल में एक ही कैरेक्टर की कई घटनाएं हैं, तो सेल के भीतर डुप्लिकेट किए गए कैरेक्टर को हटाने के लिए और केवल पहली घटनाओं को नीचे स्क्रीनशॉट में दिखाए अनुसार रखने के लिए, आप निम्नलिखित उपयोगकर्ता परिभाषित फ़ंक्शन का उपयोग कर सकते हैं।

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: सेल के भीतर डुप्लिकेट वर्ण हटाएं

Function RemoveDupeschars(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
RemoveDupeschars = xOutValue
End Function

3. फिर कोड विंडो बंद करें, वर्कशीट पर वापस जाएं और यह फॉर्मूला दर्ज करें =RemoveDupeschars(A2) अपने डेटा के अलावा एक रिक्त कक्ष में, और फिर भरण हैंडल को उन कक्षों पर खींचें जिन पर आप यह सूत्र लागू करना चाहते हैं, स्क्रीनशॉट देखें:

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

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


 उपयोगकर्ता परिभाषित फ़ंक्शन का उपयोग करके सेल के भीतर डुप्लिकेट शब्दों को हटा दें

मान लीजिए, आपके पास एक सेल में समान शब्द या टेक्स्ट स्ट्रिंग हैं और आप नीचे दिखाए गए स्क्रीनशॉट के अनुसार सेल से सभी समान शब्दों को हटाना चाहेंगे। एक्सेल में इस कार्य को हल करने के लिए आप निम्नलिखित उपयोगकर्ता परिभाषित फ़ंक्शन का उपयोग कर सकते हैं।

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: सेल के भीतर डुप्लिकेट शब्द हटाएं

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    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 RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. फिर कोड विंडो बंद करें, वर्कशीट पर वापस लौटें और यह फॉर्मूला दर्ज करें =RemoveDupeswords(A2,'', '') अपने डेटा के अलावा एक रिक्त कक्ष में, और फिर भरण हैंडल को उन कक्षों पर खींचें जिन पर आप यह सूत्र लागू करना चाहते हैं, स्क्रीनशॉट देखें:

नोट: A2 वह सेल है जिससे आप डुप्लिकेट शब्दों को हटाना चाहते हैं, और अल्पविराम और स्थान (, ) टेक्स्ट स्ट्रिंग्स को अलग करने के लिए सीमांकक हैं, आप उन्हें अपनी आवश्यकताओं के अनुसार किसी अन्य सीमांकक में बदल सकते हैं।

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


4.3 टेक्स्ट स्ट्रिंग को एन शब्दों में ट्रिम करें

यदि आपके पास किसी सेल में एक लंबी टेक्स्ट स्ट्रिंग है, तो कभी-कभी, आप टेक्स्ट स्ट्रिंग को शब्दों की एक निश्चित संख्या में ट्रिम करना चाह सकते हैं, जिसका अर्थ है कि केवल पहले n शब्द रखें और बाकी शब्दों को काट दें। यह अनुभाग एक्सेल में इस कार्य को प्राप्त करने में आपकी सहायता के लिए कुछ युक्तियों के बारे में बात करेगा।

 सूत्र के साथ टेक्स्ट स्ट्रिंग को एन शब्दों में ट्रिम करें

किसी टेक्स्ट स्ट्रिंग को N शब्दों में ट्रिम करने के लिए, आप LEFT, FIND और SUBSTITUTE फ़ंक्शंस के आधार पर एक फॉर्मूला बना सकते हैं, सामान्य सिंटैक्स है:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",N))-1)
  • टेक्स्ट: वह टेक्स्ट स्ट्रिंग या सेल संदर्भ जिसे आप ट्रिम करना चाहते हैं;
  • N: दिए गए टेक्स्ट स्ट्रिंग के बाईं ओर से आप जितने शब्द रखना चाहते हैं।

इस कार्य से निपटने के लिए, कृपया नीचे दिए गए फॉर्मूले को कॉपी करें या किसी रिक्त कक्ष में दर्ज करें:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",B2))-1)

और फिर, इस सूत्र को अन्य कक्षों पर लागू करने के लिए भरण हैंडल को नीचे खींचें, स्क्रीनशॉट देखें:


 उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग को एन शब्दों में ट्रिम करें

उपरोक्त सूत्र को छोड़कर, आप इस कार्य को हल करने के लिए एक उपयोगकर्ता परिभाषित फ़ंक्शन भी बना सकते हैं, कृपया इस प्रकार करें:

1. दबाए रखें ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: टेक्स्ट स्ट्रिंग को एन शब्दों में ट्रिम करें

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. फिर कोड विंडो बंद करें और छोड़ें, वर्कशीट पर वापस जाएं और यह सूत्र दर्ज करें: =GetNWords(A2,B2) एक रिक्त कक्ष में, और फिर इस सूत्र को अन्य कक्षों पर लागू करने के लिए भरण हैंडल को नीचे खींचें, केवल शब्दों की पहली विशिष्ट संख्या नीचे स्क्रीनशॉट में दिखाए अनुसार रखी गई है:


  • सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
  • कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
  • डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
  • सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
  • पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
  • पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
  • सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
  • वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
  • पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...
केटीई टैब 201905
  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
ऑफिसटैब नीचे
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations