टेक्स्ट स्ट्रिंग्स से बड़े अक्षर या बड़े अक्षर से शुरू होने वाले शब्द कैसे निकालें?
यदि आपके पास टेक्स्ट स्ट्रिंग्स की एक सूची है, तो अब, आप केवल सभी बड़े अक्षरों या कोशिकाओं से बड़े अक्षर से शुरू होने वाले शब्दों को निकालना चाहते हैं। आप इसे एक्सेल में कैसे हल कर सकते हैं?
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग से बड़े अक्षर निकालें
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से बड़े अक्षर से शुरू होने वाले शब्द निकालें
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग से बड़े अक्षर निकालें
निम्नलिखित वीबीए कोड आपको कोशिकाओं से केवल बड़े अक्षर निकालने में मदद कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: टेक्स्ट स्ट्रिंग से केवल बड़े अक्षर निकालें:
फ़ंक्शन एक्स्ट्रैक्टकैप (स्ट्रिंग के रूप में टेक्स्ट) स्ट्रिंग के रूप में
'अद्यतन करें Extendoffice
अनुप्रयोग.अस्थिर
वस्तु के रूप में मंद xRegEx
xRegEx = CreateObject('VBSCRIPT.REGEXP') सेट करें
xRegEx.पैटर्न = "[^A-Z]"
xRegEx.Global = सत्य
ExtractCap = xRegEx.Replace(Txt, "")
xRegEx = कुछ नहीं सेट करें
अंत समारोह
3. फिर कोड को सेव करें और इस कोड को बंद करें, वर्कशीट पर वापस जाएं, यह फॉर्मूला दर्ज करें: =एक्सट्रैक्टकैप(ए2) एक रिक्त कक्ष में जहां आप परिणाम आउटपुट करना चाहते हैं, और फिर भरण हैंडल को उन कक्षों तक खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, और सभी बड़े अक्षर एक ही बार में निकाले गए हैं, स्क्रीनशॉट देखें:
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ टेक्स्ट स्ट्रिंग्स से बड़े अक्षर से शुरू होने वाले शब्द निकालें
यदि आपको टेक्स्ट स्ट्रिंग्स से बड़े अक्षर से शुरू होने वाले शब्दों को निकालने की आवश्यकता है, तो निम्नलिखित वीबीए कोड आपकी मदद कर सकता है।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, फिर निम्नलिखित कोड को कॉपी और पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: बड़े अक्षर से शुरू होने वाले शब्द निकालें:
फ़ंक्शन StrExtract(Str As String) स्ट्रिंग के रूप में
'अद्यतन करें Extendoffice
अनुप्रयोग.अस्थिर
वैरिएंट के रूप में मंद xStrList
स्ट्रिंग के रूप में मंद xRet
मंद मैं जितना लंबा
यदि लेन(Str) = 0 है तो एग्ज़िट फ़ंक्शन
xStrList = स्प्लिट(Str, " ")
यदि UBound(xStrList) >= 0 तो
I = 0 से UBound(xStrList) के लिए
यदि xStrList(I) = StrConv(xStrList(I), vbProperCase) तो
xRet = xRet और xStrList(I) और " "
अगर अंत
अगला
StrExtract = बाएँ (xRet, लेन (xRet) - 1)
अगर अंत
अंत समारोह
3. और फिर कोड सहेजें और कोड विंडो बंद करें, यह सूत्र दर्ज करें: =StrExtract(A2) अपने डेटा के बगल में एक खाली सेल में, फिर भरण हैंडल को उन सेल तक नीचे खींचें जहां आप परिणाम प्राप्त करना चाहते हैं, और बड़े अक्षर से शुरू होने वाले सभी शब्द निकाले जाते हैं, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
