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

आप एक्सेल में किसी सेल में स्ट्रिंग से संख्याएँ हटाने के लिए VBA में निम्नलिखित फ़ंक्शन बना सकते हैं:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

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

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस फ़ंक्शन का उपयोग कैसे करें।

उदाहरण: VBA का उपयोग करके एक स्ट्रिंग से संख्याएँ हटाएँ

मान लीजिए कि हमारे पास एक्सेल में कर्मचारी आईडी की निम्नलिखित सूची है:

मान लीजिए कि हम कर्मचारी आईडी कॉलम में प्रत्येक स्ट्रिंग से अंक हटाना चाहते हैं।

ऐसा करने के लिए हम VBA में निम्नलिखित फ़ंक्शन बना सकते हैं:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

एक बार जब हम यह फ़ंक्शन बना लेते हैं, तो हम सभी अंकों को हटाकर सेल A2 में कर्मचारी संख्या वापस करने के लिए सेल B2 में निम्नलिखित सूत्र टाइप कर सकते हैं:

 =RemoveNumbers( A2 )

फिर हम इस सूत्र को क्लिक करके कॉलम बी में प्रत्येक शेष सेल पर खींच सकते हैं:

कॉलम बी कॉलम ए में प्रत्येक स्ट्रिंग को हटाए गए अंकों के साथ प्रदर्शित करता है।

उदाहरण के लिए:

• 4009 एंडी एंडी बन जाता है
• 1540 बॉब बॉब बन गया
• 1500Chad09 चाड बन जाता है
• 1600डौग डौग बन जाता है

और इसी तरह।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए का उपयोग करके अन्य सामान्य कार्य कैसे करें:

वीबीए: एक स्ट्रिंग में वर्णों की घटनाओं की गणना कैसे करें
वीबीए: कैसे जांचें कि एक स्ट्रिंग में दूसरी स्ट्रिंग है या नहीं
वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें