Comment extraire Nième Mot de chaîne de texte avec VBA dans Microsoft Excel
Dans cet article, vous apprendrez à extraire le nième mot d’une chaîne de texte. Nous utiliserons le code VBA pour créer UDF afin de trouver le nième mot dans une chaîne.
Nous devons suivre les étapes ci-dessous:
Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic
-
Cliquez sur Insérer, puis sur Module
-
Cela créera un nouveau module.
Entrez le code suivant dans le module
Fonction ExtractNthWord (x As String, y As Integer)
Dim word () As String
Dim wordCount As Long
mot = VBA.Split (x, « »)
wordCount = UBound (mot)
Si wordCount <1 Ou (y – 1)> wordCount Ou y <0 Then
ExtractNthWord = « »
Sinon
ExtractNthWord = mot (y – 1)
Fin si
Fonction de fin
La nouvelle formule UDF est créée avec le nom ExtractNthWord Il y a deux paramètres; La première est la cellule de recherche dont les données doivent être extraites et la seconde est le nième nombre.
Voici un aperçu des données:
-
Pour récupérer 2 ^ nd ^ mot de la colonne A, la formule sera
= ExtractNthWord (A2,2)
-
De même, pour extraire 3 ^ rd ^ mot, la formule sera
= ExtractNthWord (A2,3)
-
Nous pouvons utiliser la cellule d’assistance pour stocker la valeur du deuxième argument; cela nous permettra de voir les résultats plus rapidement.
-
Ici, la cellule d’assistance est D1 dans laquelle nous pouvons entrer le nième nombre de mot que nous voulons voir en sortie.
Maintenant, nous devons seulement changer le nombre dans la cellule D1 et les résultats seront automatiquement modifiés en conséquence.