वीबीए: स्ट्रिंग से रिक्त स्थान कैसे हटाएं

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

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " ", "")
    Next i
    
End Sub

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

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

उदाहरण: स्ट्रिंग्स से रिक्त स्थान हटाने के लिए VBA का उपयोग करना

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

मान लीजिए हम प्रत्येक स्ट्रिंग से रिक्त स्थान हटाना चाहते हैं।

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

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " ", "")
    Next i
    
End Sub

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

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

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

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

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

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