वीबीए: स्ट्रिंग से अंतिम अक्षर कैसे हटाएं

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

 Sub RemoveLastChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 1)
    Next i
    
End Sub

यह विशेष उदाहरण श्रेणी A2:A11 में प्रत्येक स्ट्रिंग से अंतिम वर्ण को हटाता है और परिणाम को श्रेणी B2:B11 में प्रदर्शित करता है।

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

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

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

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

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

 Sub RemoveLastChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 1)
    Next i
    
End Sub

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

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

यदि आप इसके बजाय किसी स्ट्रिंग से अंतिम n अक्षर हटाना चाहते हैं, तो बस बाईं ओर विधि में 1 को एक अलग संख्या से बदलें।

उदाहरण के लिए, हम एक स्ट्रिंग से अंतिम 2 अक्षर हटाने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub RemoveLastTwoChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 2)
    Next i
    
End Sub

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

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

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

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

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

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