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

img1

  • Cliquez sur Insérer, puis sur Module

img2

  • 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

img3

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:

img4

  • Pour récupérer 2 ^ nd ^ mot de la colonne A, la formule sera

= ExtractNthWord (A2,2)

img5

  • De même, pour extraire 3 ^ rd ^ mot, la formule sera

= ExtractNthWord (A2,3)

img6

  • 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.

img7

Maintenant, nous devons seulement changer le nombre dans la cellule D1 et les résultats seront automatiquement modifiés en conséquence.