Excel में टेक्स्ट स्ट्रिंग से अंतिम संख्या कैसे निकालें?
मान लीजिए, आपके पास टेक्स्ट स्ट्रिंग्स की एक सूची है जो टेक्स्ट और संख्याओं के साथ मिश्रित है, अब, आपको दिखाए गए स्क्रीनशॉट के अनुसार संख्याओं के अंतिम सेट को निकालने की आवश्यकता है। आप Excel में यह कार्य कैसे संभाल सकते हैं?
VBA कोड के साथ टेक्स्ट स्ट्रिंग्स से अंतिम संख्याएँ निकालें
VBA कोड के साथ टेक्स्ट स्ट्रिंग्स से अंतिम संख्याएँ निकालें
टेक्स्ट स्ट्रिंग्स से संख्याओं के अंतिम सेट को शीघ्रता से निकालने के लिए, आप निम्नलिखित VBA कोड लागू कर सकते हैं। कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, फिर निम्नलिखित कोड को कॉपी और पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: टेक्स्ट स्ट्रिंग्स से अंतिम संख्याएँ निकालें:
Sub GetLastDigits()
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xRegEx As Object
Dim xRetList As Object
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column can be available", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "(\d+)"
End With
For Each xCell In xRg
Set xRetList = xRegEx.Execute(xCell.Value)
If xRetList.Count > 0 Then
If Left(xRetList(xRetList.Count - 1), 1) = 0 Then
xCell.Offset(0, 1) = Right(xRetList(xRetList.Count - 1), Len(xRetList(xRetList.Count - 1)) - 1)
Else
xCell.Offset(0, 1) = xRetList(xRetList.Count - 1)
End If
End If
Next
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस डेटा रेंज का चयन करने की याद दिलाने के लिए दिखाई देता है जिसे आप उपयोग करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, और संख्याओं का अंतिम सेट प्रत्येक टेक्स्ट स्ट्रिंग से आसन्न कॉलम सेल में निकाला गया है, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!