Passer au contenu principal

Comment remplacer plusieurs espaces par un seul espace à partir de cellules dans Excel?

doc remplacer plusieurs espaces 1

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:

doc remplacer plusieurs espaces 2

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:

doc remplacer plusieurs espaces 3


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:

doc remplacer plusieurs espaces 4

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:

doc remplacer plusieurs espaces 6

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

Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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

Description


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi Thanks for a useful Blog. It helped me get the answer I was looking for. _................ I was just wondering if this is acceptable and correct for removing Replace Multiple Spaces With Single Space From Cells: Taking your example, Formal to be dragged down: =Trim(A2) ( I do not understand why you have SUBSTITUTE(A2,CHAR(32)," ") instead of just A2 ??? ) It appear to give the correct results. _..... Here is one way I would do it using VBA Sub TrimRange() Let Range("B2:B9").Value = Evaluate("=If({1},TRIM(" & Range("A2:A9").Address & "))") End Sub Alan
This comment was minimized by the moderator on the site
I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9<br />".....The TRIM function was designed to trim the 7-bit ASCII space character (value 32) from text. In the Unicode character set, there is an additional space character ....." etc - hence the need to make sure the TRIM is working on Char 32 for any spaces...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations