Comment remplacer plusieurs espaces par un seul espace à partir de cellules dans Excel?
En supposant que j'ai une liste de chaînes de texte contenant plusieurs espaces, je dois maintenant remplacer ces espaces par un seul espace parmi les chaînes de texte pour séparer les mots comme illustré ci-dessous. Comment pourrais-je remplacer les espaces multiples par un seul à la fois sans les supprimer un par un?
Remplacez plusieurs espaces par un seul espace à l'aide d'une formule
Remplacez plusieurs espaces par un seul espace à l'aide du code VBA
Remplacez plusieurs espaces par un seul espace en utilisant Kutools for Excel
Remplacez plusieurs espaces par un seul espace à l'aide d'une formule
Dans Excel, la fonctionnalité normale Rechercher et remplacer peut ne pas fonctionner correctement pour résoudre ce problème, nous pouvons donc appliquer une formule simple pour y faire face. Veuillez faire comme ceci:
1. Entrez cette formule: = TRIM (SUBSTITUT (A2, CHAR (32), "")) dans une cellule vide en plus de la valeur de votre cellule, voir capture d'écran:
2. Puis appuyez Entrer pour obtenir le résultat, et sélectionnez la cellule B2, puis faites glisser la poignée de recopie sur les cellules de la plage auxquelles vous souhaitez appliquer cette formule, et tous les espaces supplémentaires ont été supprimés des chaînes de texte et un seul espace sera conservé parmi le texte. Voir la capture d'écran:
Remplacez plusieurs espaces par un seul espace à l'aide du code VBA
Si le code VBA vous intéresse, je peux créer un code pour vous afin de remplacer plusieurs espaces par un seul, procédez comme suit:
1. Veuillez maintenir ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Puis clique insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: remplacez plusieurs espaces par un seul espace
Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
For Each x In Workx
x = WorksheetFunction.Trim(x)
Next x
End Sub
3. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données que vous souhaitez supprimer les espaces supplémentaires, voir capture d'écran:
4. Et puis cliquez OK bouton, tous les espaces en excès ont été remplacés par un seul espace dans le texte.
Remplacez plusieurs espaces par un seul espace en utilisant Kutools for Excel
Si vous avez d'autres types d'espaces à supprimer, tels que la suppression des espaces de début, des espaces de fin, de tous les espaces du texte, je recommanderai un outil puissant -Kutools pour Excel, avec ses Supprimer des espaces utilitaire, vous pouvez supprimer tous les espaces selon vos besoins, tels que les espaces de début, les espaces de fin, tous les espaces ...
Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools for Excel, procédez comme suit:
1. Sélectionnez la plage de données pour laquelle vous souhaitez supprimer les espaces supplémentaires.
2Cliquez sur Kutools > Texte > Supprimer des espaces, voir capture d'écran:
3. Dans le Supprimer des espaces boîte de dialogue, choisissez Tous les espaces excédentaires du Type d'espaces section, et vous pouvez afficher le résultat à partir de la Aperçu volet, voir capture d'écran:
4. Et puis cliquez Ok or Appliquer bouton, tous les espaces supplémentaires ont été supprimés de la cellule et ne laissent qu'un seul espace dans le texte.
Cliquez pour en savoir plus sur cette fonctionnalité de suppression d'espaces.
Cliquez pour télécharger Kutools pour Excel et un essai gratuit maintenant!
Démo : remplacez plusieurs espaces par un seul espace en utilisant Kutools for Excel
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!