Vba: so zählen sie das vorkommen von zeichen in einer zeichenfolge

Sie können die folgende grundlegende Syntax verwenden, um mithilfe von VBA die Anzahl der Vorkommen eines Zeichens in einer Zeichenfolge zu zählen:

 Sub CountOccurrences()
    Dim i As Integer
    
    'Specify character to look for
    my_char = "/"
    
    'Count occurrences in each string in B2:B12 and display results in C2:C12
    For i = 2 To 12
        Count = (Len(Range(" B " & i)) - Len(Replace(Range(" B " & i), my_char, ""))) / Len(my_char)
        Range(" C " & i) = Count
    Next i
End Sub

In diesem speziellen Beispiel wird die Anzahl der Vorkommen eines Schrägstrichs ( / ) in jeder Zelle im Bereich B2:B12 gezählt und die Ergebnisse im Bereich C2:C12 angezeigt.

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

Beispiel: Vorkommen von Zeichen in einer Zeichenfolge mit VBA zählen

Nehmen wir an, wir haben den folgenden Datensatz in Excel, der die Namen verschiedener Basketballspieler und die Positionen zeigt, die sie in einem Spiel spielen können:

Angenommen, wir möchten die Anzahl der Schrägstriche ( / ) in jeder Zeichenfolge in der Spalte „Position“ zählen.

Dazu können wir das folgende Makro erstellen:

 Sub CountOccurrences()
    Dim i As Integer
    
    'Specify character to look for
    my_char = "/"
    
    'Count occurrences in each string in B2:B12 and display results in C2:C12
    For i = 2 To 12
        Count = (Len(Range(" B " & i)) - Len(Replace(Range(" B " & i), my_char, ""))) / Len(my_char)
        Range(" C " & i) = Count
    Next i
End Sub

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

Die Werte in Spalte C zeigen die Häufigkeit des Vorkommens von Schrägstrichen in den übereinstimmenden Zeichenfolgen in Spalte B an.

Zum Beispiel:

• Die Guard/Forward-Zeichenfolge enthält 1 Schrägstrich.
• Die Guard-Zeichenfolge enthält 0 Schrägstriche.
• Die Guard-Zeichenfolge enthält 0 Schrägstriche.
• Die Vorwärts-/Mitte-Zeichenfolge enthält 1 Schrägstrich.

Und so weiter.

Um das Vorkommen eines anderen Zeichens zu zählen, ändern Sie einfach das Zeichen der Variablen my_char im Makro.

Zusätzliche Ressourcen

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

VBA: So überprüfen Sie, ob eine Zeichenfolge eine andere Zeichenfolge enthält
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen