Come estrarre Ennesimo Word dalla stringa di testo usando VBA in Microsoft Excel
In questo articolo imparerai come estrarre l’ennesima parola dalla stringa di testo. Useremo il codice VBA per creare UDF per trovare l’ennesima parola in una stringa.
Dobbiamo seguire i seguenti passaggi:
Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic
-
Fare clic su Inserisci e poi su Modulo
-
Questo creerà un nuovo modulo.
Inserisci il seguente codice nel Modulo
Funzione ExtractNthWord (x As String, y As Integer)
Dim word () As String
Dim wordCount As Long
parola = VBA.Split (x, “”)
wordCount = UBound (word)
Se wordCount <1 Or (y – 1)> wordCount o y <0 Allora
ExtractNthWord = “”
Altrimenti
ExtractNthWord = word (y – 1)
End If
Fine funzione
La nuova formula UDF viene creata con il nome ExtractNthWord Ci sono due parametri; il primo è la cella di ricerca da cui estrarre i dati e il secondo è l’ennesimo numero.
Di seguito l’istantanea dei dati:
-
Per recuperare la 2 ^ nd ^ parola dalla colonna A, la formula sarà
= ExtractNthWord (A2,2)
-
Allo stesso modo, per estrarre la 3 ^ rd ^ parola, la formula sarà
= ExtractNthWord (A2,3)
-
Possiamo usare la cella helper per memorizzare il valore del secondo argomento; questo ci permetterà di vedere i risultati più velocemente.
-
Qui, la cella helper è D1 in cui possiamo inserire l’ennesimo numero di parole che vogliamo vedere come output.
Ora, dobbiamo solo cambiare il numero nella cella D1 ei risultati verranno automaticamente modificati di conseguenza.