Comment extraire la première lettre de chaque mot de la cellule?
Supposons que vous ayez une liste de noms de pays dans votre feuille de calcul et que vous deviez maintenant extraire la première lettre de chaque mot de la cellule comme illustré ci-dessous. Normalement, il n'y a pas de fonction directe pour récupérer la première lettre de chaque mot dans Excel. Mais, ici, je peux parler d'un moyen utile de résoudre cette tâche.
Extraire la première lettre de chaque mot de la cellule avec la fonction définie par l'utilisateur
Extraire la première lettre de chaque mot de la cellule avec la fonction définie par l'utilisateur
Dans Excel, vous pouvez créer un Fonction définie par l'utilisateur pour extraire les premières lettres de chaque mot d'une cellule. Veuillez faire comme ceci:
1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module. </ p>
Function GetFirstLetters(rng As Range) As String
'Update 20140325
Dim arr
Dim I As Long
arr = VBA.Split(rng, " ")
If IsArray(arr) Then
For I = LBound(arr) To UBound(arr)
GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
Next I
Else
GetFirstLetters = Left(arr, 1)
End If
End Function
3. Ensuite, enregistrez et fermez ce code, revenez à la feuille de calcul et entrez cette formule = GetFirstLetters (A2) (A2 indique la cellule dont vous souhaitez extraire la première lettre, vous pouvez la changer selon vos besoins) en une cellule vide. Voir la capture d'écran:
4. Et puis appuyez sur Entrer et sélectionnez la cellule B2, puis faites glisser la poignée de recopie vers les cellules auxquelles vous souhaitez appliquer cette formule. Et toutes les premières lettres ont été extraites de la série de mots, voir capture d'écran:
Article connexe:
Comment extraire le premier / dernier / nième mot d'une chaîne de texte dans Excel?
Meilleurs outils de productivité bureautique
Boostez vos compétences Excel avec Kutools for Excelet 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!














