वीबीए: स्ट्रिंग से पहला अक्षर कैसे हटाएं
आप VBA का उपयोग करके स्ट्रिंग से पहला अक्षर हटाने के लिए निम्नलिखित मूल सिंटैक्स का उपयोग कर सकते हैं:
Sub RemoveFirstChar()
Dim i As Integer
Dim myString As String
For i = 2 To 11
myString = Range(" A " & i)
Range(" B " & i) = Right(myString, Len(myString) - 1)
Next i
End Sub
यह विशेष उदाहरण A2:A11 श्रेणी में प्रत्येक स्ट्रिंग से पहला अक्षर हटाता है और परिणाम B2:B11 श्रेणी में प्रदर्शित करता है।
निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।
संबंधित: वीबीए का उपयोग करके स्ट्रिंग से अंतिम अक्षर कैसे हटाएं
उदाहरण: स्ट्रिंग्स से पहला कैरेक्टर हटाने के लिए VBA का उपयोग करना
मान लीजिए हमारे पास एक्सेल में बास्केटबॉल टीम के नामों की निम्नलिखित सूची है:
मान लीजिए कि हम प्रत्येक टीम के नाम से पहला अक्षर हटाना चाहते हैं।
ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:
Sub RemoveFirstChar()
Dim i As Integer
Dim myString As String
For i = 2 To 11
myString = Range(" A " & i)
Range(" B " & i) = Right(myString, Len(myString) - 1)
Next i
End Sub
जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:
कॉलम बी कॉलम ए में प्रत्येक स्ट्रिंग को पहले अक्षर को हटाकर प्रदर्शित करता है।
यदि आप इसके बजाय किसी स्ट्रिंग से पहले n वर्णों को हटाना चाहते हैं, तो बस राइट विधि में 1 को एक अलग संख्या से बदलें।
उदाहरण के लिए, हम एक स्ट्रिंग से पहले 2 अक्षर हटाने के लिए निम्नलिखित मैक्रो बना सकते हैं:
Sub RemoveFirstTwoChar()
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
जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:
कॉलम बी पहले दो अक्षरों को हटाकर कॉलम ए में प्रत्येक स्ट्रिंग को प्रदर्शित करता है।
नोट : आप वीबीए राइट विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।
अतिरिक्त संसाधन
निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए का उपयोग करके अन्य सामान्य कार्य कैसे करें:
वीबीए: एक स्ट्रिंग में वर्णों की घटनाओं की गणना कैसे करें
वीबीए: कैसे जांचें कि एक स्ट्रिंग में दूसरी स्ट्रिंग है या नहीं
वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें