एक्सेल में मिश्रित अल्फ़ान्यूमेरिक टेक्स्ट स्ट्रिंग्स से संख्याएँ कैसे निकालें?
यह ट्यूटोरियल एक्सेल में मिश्रित अल्फ़ान्यूमेरिक टेक्स्ट स्ट्रिंग से संख्याएँ निकालने में मदद करने के लिए तीन तरीके प्रदान करता है।
सूत्र के साथ मिश्रित अक्षरांकीय पाठ स्ट्रिंग से संख्याएँ निकालें
VBA कोड के साथ मिश्रित अक्षरांकीय पाठ स्ट्रिंग से संख्याएँ निकालें
एक अद्भुत टूल से मिश्रित अल्फ़ान्यूमेरिक टेक्स्ट स्ट्रिंग्स से संख्याएँ आसानी से निकालें
सूत्र के साथ मिश्रित अक्षरांकीय पाठ स्ट्रिंग से संख्याएँ निकालें
आप एक्सेल में टेक्स्ट स्ट्रिंग में कहीं से भी संख्याएँ निकालने के लिए नीचे दिया गया फॉर्मूला लागू कर सकते हैं।
1. निकाले गए नंबरों को आउटपुट करने के लिए एक रिक्त सेल का चयन करें, इसमें नीचे दिया गया फॉर्मूला दर्ज करें और दबाएं दर्ज चाबी। फिर सूत्र को अन्य कक्षों पर लागू करने के लिए ऑटोफ़िल हैंडल को नीचे खींचें।
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, 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),"")
नोट: सूत्र में, A1 वह सेल है जो उस टेक्स्ट स्ट्रिंग का मुकाबला करता है जिसे आप संख्याएँ निकालना चाहते हैं। कृपया इसे अपनी आवश्यकताओं के आधार पर बदलें।
जैसा कि ऊपर स्क्रीनशॉट में दिखाया गया है, निर्दिष्ट सेल में टेक्स्ट स्ट्रिंग में कहीं से भी नंबर निकाले जाते हैं।
संख्याओं को केवल VBA कोड के साथ मिश्रित अल्फ़ान्यूमेरिक टेक्स्ट स्ट्रिंग में रखें
निम्नलिखित वीबीए कोड आपको निर्दिष्ट सीमा से सभी गैर-संख्यात्मक वर्णों को हटाने और कोशिकाओं में केवल संख्याएँ रखने में मदद कर सकता है। कृपया निम्नानुसार करें.
नोट: चूंकि कोड मूल श्रेणी को सीधे निष्पादित करता है, कृपया डेटा खोने की स्थिति में मूल श्रेणी की एक प्रति अपने पास रखें।
1। दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करके मॉड्यूल विंडो में पेस्ट करें।
वीबीए कोड: कोशिकाओं से सभी गैर-संख्यात्मक वर्ण हटा दें
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. फिर एक एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है, कृपया उस श्रेणी का चयन करें जिसमें मिश्रित अल्फ़ान्यूमेरिक टेक्स्ट स्ट्रिंग्स हैं, आप केवल संख्याएँ रखेंगे, और क्लिक करें OK बटन.
अब चयनित श्रेणी के सभी गैर-संख्यात्मक वर्ण तुरंत हटा दिए गए हैं, और केवल संख्याएँ रखी गई हैं। स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल के साथ मिश्रित अल्फ़ान्यूमेरिक टेक्स्ट स्ट्रिंग्स से आसानी से नंबर निकालें
यह अनुभाग एक्सेल के लिए कुटूल्स की एक्सट्रैक्ट टेक्स्ट उपयोगिता की अनुशंसा करता है। इस उपयोगिता के साथ, टेक्स्ट स्ट्रिंग से संख्याओं को निकालना आसान हो सकता है।
आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.
1। क्लिक करें कुटूल > टेक्स्ट > पाठ निकालें सुविधा को सक्षम करने के लिए
2। में पाठ निकालें डायलॉग बॉक्स, कृपया नीचे दी गई सेटिंग करें।
नोट: चेक सूत्र के रूप में डालें संवाद के निचले बाएँ कोने में स्थित बॉक्स परिणाम को परिणाम कक्षों में सूत्र के रूप में सम्मिलित करेगा। जब संदर्भित सेल का मान बदलता है, तो परिणाम स्वचालित रूप से अपडेट हो जाएगा।
3। में पाठ निकालें डायलॉग बॉक्स में, निकाले गए टेक्स्ट को आउटपुट करने के लिए एक रिक्त सेल का चयन करें और फिर क्लिक करें ठीक है.
फिर टेक्स्ट स्ट्रिंग में किसी भी स्थिति से नंबर निकाले जाते हैं। स्क्रीनशॉट देखें:
यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!