Vba: hoe het eerste teken uit een string te verwijderen
U kunt de volgende basissyntaxis gebruiken om het eerste teken uit een tekenreeks te verwijderen met behulp van 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
Dit specifieke voorbeeld verwijdert het eerste teken uit elke tekenreeks in het bereik A2:A11 en geeft de resultaten weer in het bereik B2:B11 .
Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.
Gerelateerd: Hoe je het laatste teken uit een string verwijdert met VBA
Voorbeeld: VBA gebruiken om het eerste teken uit tekenreeksen te verwijderen
Stel dat we de volgende lijst met basketbalteamnamen in Excel hebben:
Stel dat we het eerste teken van elke teamnaam willen verwijderen.
We kunnen hiervoor de volgende macro maken:
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
Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:
Kolom B toont elk van de tekenreeksen in kolom A, waarbij het eerste teken is verwijderd.
Als u in plaats daarvan de eerste n tekens uit een reeks wilt verwijderen, vervangt u eenvoudigweg de 1 in de Right- methode door een ander nummer.
We kunnen bijvoorbeeld de volgende macro maken om de eerste twee tekens uit een string te verwijderen:
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
Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:
Kolom B toont elk van de tekenreeksen in kolom A, waarbij de eerste twee tekens zijn verwijderd.
Opmerking : u kunt hier de volledige documentatie voor de VBA Right -methode vinden.
Aanvullende bronnen
In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken kunt uitvoeren met VBA:
VBA: het aantal tekens in een string tellen
VBA: hoe controleer je of een string een andere string bevat?
VBA: cellen tellen met specifieke tekst