वीबीए: अग्रणी और अनुगामी रिक्त स्थान को कैसे हटाएं

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

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

यह विशेष उदाहरण श्रेणी A2:A7 में प्रत्येक स्ट्रिंग से अग्रणी और अनुगामी रिक्त स्थान को हटा देता है और श्रेणी B2:B7 में परिणाम आउटपुट करता है।

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

उदाहरण: स्ट्रिंग्स से लीडिंग और ट्रेलिंग स्पेस को हटाने के लिए वीबीए का उपयोग करना

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

ध्यान दें कि कई स्ट्रिंग्स में आगे या पीछे वाले स्थान होते हैं।

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

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

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

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

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

ध्यान दें कि यदि आप स्ट्रिंग्स से केवल आगे या पीछे वाले स्थानों को हटाना चाहते हैं, तो आप क्रमशः LTrim या RTrim फ़ंक्शंस का उपयोग कर सकते हैं।

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

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

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

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