Wie Extrahieren n-te Wort von Text String VBA in Microsoft Excel
In diesem Artikel erfahren Sie, wie Sie das n-te Wort aus einer Textzeichenfolge extrahieren. Wir werden VBA-Code verwenden, um UDF zu erstellen, um das n-te Wort in einer Zeichenfolge zu finden.
Wir müssen die folgenden Schritte ausführen:
Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic
aus * Klicken Sie auf Einfügen und dann auf Modul
-
Dadurch wird ein neues Modul erstellt.
Geben Sie den folgenden Code in das Modul
ein === Funktion ExtractNthWord (x als Zeichenfolge, y als Ganzzahl)
Dim word () As String
Dim wordCount As Long
word = VBA.Split (x, „“)
wordCount = UBound (Wort)
Wenn wordCount <1 oder (y – 1)> wordCount oder y <0, dann
ExtractNthWord = „“
Sonst
ExtractNthWord = word (y – 1)
End If
End Function
Die neue UDF-Formel wird mit dem Namen ExtractNthWord erstellt. Es gibt zwei Parameter. Erstens ist die Suchzelle, aus der Daten extrahiert werden müssen, und zweitens ist es die n-te Zahl.
Es folgt die Momentaufnahme der Daten:
-
Um das zweite Wort aus Spalte A abzurufen, lautet die Formel
= ExtractNthWord (A2,2)
-
Um das dritte Wort zu extrahieren, lautet die Formel
= ExtractNthWord (A2,3)
-
Wir können die Hilfszelle verwenden, um den Wert des zweiten Arguments zu speichern. Dadurch können wir die Ergebnisse schneller sehen.
-
Hier ist die Hilfszelle D1, wobei wir die n-te Anzahl von Wörtern eingeben können, die wir als Ausgabe sehen möchten.
Jetzt müssen wir nur noch die Nummer in Zelle D1 ändern und die Ergebnisse werden automatisch entsprechend geändert.