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
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 pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours.
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 Ajouter
bouton, tous les espaces supplémentaires ont été supprimés de la cellule et ne laissent qu'un seul espace dans le texte.
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.
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
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...
