Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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 pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours

Après l'installation de Kutools pour Excel, procédez comme suit:

1. Sélectionnez la plage de données pour laquelle vous souhaitez supprimer les espaces supplémentaires.

2. Cliquez 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 Ajouter 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 pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

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ée...
  • 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 gammes...
  • 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 cellules...
  • 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 PDF...
  • 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Elston · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      Alan Elston · 4 years ago
      I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9
      ".....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...