Note: The other languages of the website are Google-translated. Back to English
Connexion Inscription

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.

doc-extrait-première-lettre1

Extraire la première lettre de chaque mot de la cellule avec la fonction définie par l'utilisateur

 

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Sort par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

 

flèche bleue bulle droiteExtraire 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:

doc-extrait-première-lettre1

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:

doc-extrait-première-lettre1

Article connexe:

Comment extraire le premier / dernier / nième mot d'une chaîne de texte dans Excel?

 

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine

 

 

Commentaires (16)
Pas encore de notes. Soyez le premier à évaluer!
Sanjay
Sanjay
Ce commentaire a été minimisé par le modérateur sur le site
Je veux savoir comment la date est convertie en texte. par exemple 11.02.1998 comme Eleven February Nineteen Ninety Eight
Répondre
0
0
Ensuite
Ensuite
Ce commentaire a été minimisé par le modérateur sur le site
Merci tu es le meilleur
Répondre
0
0
Sridhar
Sridhar
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup .. ça marche .. tu déchires
Répondre
0
0
Adam Pavey
Adam Pavey
Ce commentaire a été minimisé par le modérateur sur le site
Très utile. Exactement ce que je recherchais.
Répondre
0
0
Personne
Personne
Ce commentaire a été minimisé par le modérateur sur le site
Veuillez inclure cette partie : Si vous créez une fonction appelée DISCOUNT dans un classeur appelé Personal.xlsb et que vous appelez cette fonction à partir d'un autre classeur, vous devez taper =personal.xlsb!discount(), pas simplement =discount(). https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
Répondre
0
0
nawal jha
nawal jha
Ce commentaire a été minimisé par le modérateur sur le site
Je pense qu'il y a un bogue, il est automatiquement supprimé du module lorsque la feuille est fermée, il faut recommencer à chaque fois que la feuille est ouverte, le même processus est requis, veuillez indiquer comment enregistrer cette formule dans Excel de manière permanente.
Répondre
0
0
Harib Olilil
Harib Olilil     nawal jha
Ce commentaire a été minimisé par le modérateur sur le site
Veuillez enregistrer Excel en tant que classeur Excel Macro-Enablel.
Répondre
0
0
Oleg
Oleg
Ce commentaire a été minimisé par le modérateur sur le site
Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавые?
Répondre
0
0
Steven
Steven
Ce commentaire a été minimisé par le modérateur sur le site
Ce code est bon pour jusqu'à cinq mots, où D20 est la cellule avec des données.



=SI(ISERR(GAUCHE($D$20,1)&MID($D$20, RECHERCHE(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)
&MID($D$20,RECHERCHE(" ",$D$20,RECHERCHE(" ",$D$20,RECHERCHE(" ",$D$20,RECHERCHE(" ",
$D$20)+1)+1)+1)+1,1)),IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)),
SI(ISERR(GAUCHE($D$20,1)&MID($D$20,CHERCHE(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)),
SI(ISERR(GAUCHE($D$20,1)&MID($D$20,CHERCHE(" ",$D$20)+1,1)),
SI(ISERR(GAUCHE($D$20,1)),"",GAUCHE($D$20,1)),GAUCHE($D$20,1)
&MID($D$20,SEARCH(" ",$D$20)+1,1)),LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)),
GAUCHE($D$20,1)&MILIEU($D$20, RECHERCHE(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)),LEFT($D$20,1)
&MID($D$20,SEARCH(" ",$D$20)+1,1)&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)
&MID($D$20,RECHERCHE(" ",$D$20,RECHERCHE(" ",$D$20,RECHERCHE(" ",$D$20,RECHERCHE(" ",$D$20)+1)
+1)+1)+1,1))
Répondre
0
0
Grigg
Grigg
Ce commentaire a été minimisé par le modérateur sur le site
C'est génial. Un tel gain de temps
Répondre
0
0
houx
houx
Ce commentaire a été minimisé par le modérateur sur le site
Pourquoi cela me donne-t-il les 2 premières lettres de chaque mot ?
Répondre
0
0
Pradeep Gyawali
Pradeep Gyawali
Ce commentaire a été minimisé par le modérateur sur le site
Comment créer de l'espace entre les lettres ?

Corée du Sud = SK
Répondre
0
0
skyyang
skyyang     Pradeep Gyawali
Ce commentaire a été minimisé par le modérateur sur le site
Salut Gyawali
Si vous souhaitez ajouter un espace pour chaque caractère, veuillez appliquer le code VBA suivant :
Function GetFirstLetters(Rng As Range) As String
'Updateby Extendoffice
    Dim xStr
    Dim arr
    Dim I As Long
    xStr = " "
    arr = VBA.Split(Rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1) & xStr
        Next I
    Else
        GetFirstLetters = Left(arr, 1) & xStr
    End If
End Function


Après insérez le code, puis appliquez cette formule : = GetFirstLetters (A2) pour obtenir le résultat dont vous avez besoin.
S'il vous plaît essayez, j'espère que cela peut vous aider!
Répondre
Rapport
0
0
SARAH
SARAH
Ce commentaire a été minimisé par le modérateur sur le site
Vous vous demandez comment ajouter cela dans la formule existante que j'ai qui fonctionne pour ramener la valeur d'une cellule dans une autre feuille? Je veux seulement apporter le premier caractère de chaque cellule. Voici la formule

=IF(LOOKUP(2,1/(OriginalSubmission!D:D<>""),ROW(OriginalSubmission!D:D))=ROW(OriginalSubmission!D4),"",INDIRECT("OriginalSubmission!D5:"& "D"&(RECHERCHE(2,1/(OriginalSubmission !D:D<>""),ROW(OriginalSubmission!D:D)))))
Répondre
0
0
skyyang
skyyang     SARAH
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Sarah
Voulez-vous dire extraire chaque premier caractère des cellules d'une autre feuille de calcul ? Si tel est le cas, il vous suffit de copier et coller le code de cet article, puis d'appliquer cette formule dans une autre feuille.
=GetFirstLetters(OriginalSubmission!D4)


Notes: Soumission originale est le nom de la feuille dont vous souhaitez extraire les caractères.
S'il vous plaît essayez, j'espère que cela peut vous aider!
Répondre
Rapport
0
0
samuel
samuel
Ce commentaire a été minimisé par le modérateur sur le site
Autre suggestion si vous utilisez Microsoft 365 : =TEXTJOIN("",,LEFT(TEXTSPLIT(D9," "),1)) où la chaîne source est en B9.
Enveloppez dans la fonction UPPER pour appliquer les majuscules : =UPPER(TEXTJOIN("",,LEFT(TEXTSPLIT(D9," "),1)))
@Pradeep Gyawali -> ajouter un espace : =UPPER(TEXTJOIN(" ",,LEFT(TEXTSPLIT(D9," "),1)))
Répondre
0
0
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
GUEST
Publier en tant qu'invité
Connexion
×
Évaluez cet article:
Réinitialiser
0   Personnages
Emplacements suggérés