Vba: so entfernen sie sonderzeichen aus einer zeichenfolge

Sie können in VBA die folgende grundlegende Syntax verwenden, um Sonderzeichen aus Zeichenfolgen zu entfernen:

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

Dieses spezielle Beispiel ersetzt die folgenden Sonderzeichen in jeder Zeichenfolge im Zellbereich A2:A8 und generiert die neuen Zeichenfolgen in den Zellen B2:B8 :

• !
• @
• #

Beachten Sie, dass wir drei verschachtelte Ersetzungsmethoden verwendet haben, um jedes dieser Sonderzeichen aus den Zeichenfolgen zu entfernen.

Um noch mehr Sonderzeichen zu entfernen, verwenden Sie einfach mehr verschachtelte Ersetzungsmethoden .

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Entfernen Sie Sonderzeichen aus einer Zeichenfolge mithilfe von VBA

Angenommen, wir haben die folgende Liste von Zeichenfolgen in Excel:

Angenommen, wir möchten die folgenden Sonderzeichen aus jeder Zeichenfolge entfernen:

• !
• @
• #

Dazu können wir das folgende Makro erstellen:

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

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

In Spalte B werden alle Zeichenfolgen in Spalte A angezeigt, wobei die Sonderzeichen entfernt wurden.

Hinweis : Die vollständige Dokumentation zur VBA- Replace -Methode finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben mit VBA ausführen:

VBA: So zählen Sie das Vorkommen von Zeichen in einer Zeichenfolge
VBA: So überprüfen Sie, ob eine Zeichenfolge eine andere Zeichenfolge enthält
VBA: So zählen Sie Zellen mit bestimmtem Text