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

आप स्ट्रिंग से विशेष वर्ण हटाने के लिए VBA में निम्नलिखित मूल सिंटैक्स का उपयोग कर सकते हैं:

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

यह विशेष उदाहरण सेल रेंज A2:A8 में प्रत्येक स्ट्रिंग में निम्नलिखित विशेष वर्णों को प्रतिस्थापित करता है और सेल B2:B8 में नई स्ट्रिंग उत्पन्न करता है:

• !
• @
• #

ध्यान दें कि हमने इनमें से प्रत्येक विशेष वर्ण को स्ट्रिंग से हटाने के लिए तीन नेस्टेड रिप्लेसमेंट विधियों का उपयोग किया था।

और भी अधिक विशेष वर्णों को हटाने के लिए, बस अधिक नेस्टेड प्रतिस्थापन विधियों का उपयोग करें।

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

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

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

मान लीजिए कि हम प्रत्येक स्ट्रिंग से निम्नलिखित विशेष वर्ण हटाना चाहते हैं:

• !
• @
• #

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

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

नोट : आप वीबीए रिप्लेस विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

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

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

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