Comment extraire les initiales des noms dans Excel?
Lorsque vous traitez des dossiers clients ou effectuez un publipostage, obtenir les initiales d'un nom donné peut être utile pour vous, par exemple HG pour Hal Greer. Je vous présente donc ici quelques astuces pour extraire rapidement les initiales de la liste des noms dans Excel.
Extraire les initiales avec la formule dans Excel
Extraire les initiales utilisent la fonction définie dans Excel
Extraire les initiales avec la formule dans Excel
La première méthode consiste à utiliser une formule pour extraire les initiales des noms dans Microsoft Excel.
Sélectionnez une cellule vide, par exemple, Cell C2, tapez cette formule =LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"")(A2 est la première cellule de votre liste de noms), appuyez sur Entrer , puis faites glisser la poignée de recopie pour remplir la plage. Vous voyez maintenant que toutes les initiales de chaque nom sont extraites de la liste des noms.
Extraire les initiales utilisent la fonction définie dans Excel
Outre la formule, vous pouvez utiliser la fonction définie pour extraire facilement les initiales des noms spécifiés dans Microsoft Excel.
1. Sélectionnez une cellule de la colonne que vous souhaitez sélectionner et appuyez sur Alt + F11 ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Dans la fenêtre contextuelle, cliquez sur insérer > Module, puis collez le code VBA suivant dans le module.
VBA: extraire les initiales des noms
Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function3. Enregistrez le code et fermez la fenêtre, sélectionnez une cellule vide et tapez cette formule = Premiers caractères (A2), puis appuyez Entrer et faites glisser la poignée de recopie pour remplir la plage souhaitée. Après cela, vous pouvez voir les initiales de chaque nom sont extraites.
Conseil : Vous pouvez changer les séparateurs "." des initiales dont vous avez besoin dans le VBA ci-dessus.
Articles relatifs:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
