Vba: speciale tekens uit een string verwijderen

U kunt de volgende basissyntaxis in VBA gebruiken om speciale tekens uit tekenreeksen te verwijderen:

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

Dit specifieke voorbeeld vervangt de volgende speciale tekens in elke tekenreeks in celbereik A2:A8 en genereert de nieuwe tekenreeksen in cellen B2:B8 :

• !
• @
• #

Merk op dat we drie geneste Replace- methoden hebben gebruikt om elk van deze speciale tekens uit de tekenreeksen te verwijderen.

Om nog meer speciale tekens te verwijderen, gebruikt u eenvoudigweg meer geneste Replace- methoden.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: speciale tekens uit een tekenreeks verwijderen met VBA

Stel dat we de volgende lijst met tekenreeksen in Excel hebben:

Stel dat we de volgende speciale tekens uit elke string willen verwijderen:

• !
• @
• #

We kunnen hiervoor de volgende macro maken:

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

In kolom B worden alle tekenreeksen in kolom A weergegeven, waarbij de speciale tekens zijn verwijderd.

Opmerking : u kunt hier de volledige documentatie voor de VBA Replace -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