Passer au contenu principal

Comment supprimer rapidement les sauts de ligne dans Excel?

Parfois, lorsque vous copiez certaines données du site Web ou que vous séparez vos valeurs avec Alt + Entrée clés, vous obtiendrez des sauts de ligne ou des retours chariot, si vous souhaitez supprimer rapidement plusieurs sauts de ligne dans Excel comme les captures d'écran suivantes, vous pouvez le faire comme suit:

doc-remove-line-breaks1 -2 doc-remove-line-breaks2

Supprimer plusieurs sauts de ligne avec la fonction Rechercher et remplacer

Supprimer plusieurs sauts de ligne avec le code VBA

Supprimer plusieurs sauts de ligne avec Kutools for Excel


flèche bleue bulle droite Supprimer plusieurs sauts de ligne avec la fonction Rechercher et remplacer

Vous pouvez supprimer plusieurs sauts de ligne rapidement avec la fonction Rechercher et remplacer dans Excel, veuillez le traiter comme suit:

1. Sélectionnez la plage dans laquelle vous souhaitez supprimer plusieurs sauts de ligne.

2Cliquez sur Accueil > Rechercher et remplacer > remplacer ou cliquez sur Ctrl + F des raccourcis et un Rechercher et remplacer la boîte de dialogue apparaîtra.

3. Puis dans le Trouvez ce que boîte, maintenez la ALT clé, puis cliquez sur les nombres 010 à partir du clavier numérique. Quitter le Remplacez-le par zone vide ou entrez une barre d'espace. Voir la capture d'écran:

doc-remove-line-breaks3

4. Et puis cliquez Remplacer tout bouton, tous les sauts de ligne ont été supprimés. Voir la capture d'écran:

doc-remove-line-breaks2


flèche bleue bulle droite Supprimer plusieurs sauts de ligne avec le code VBA

Le code VBA suivant peut également vous aider à supprimer tous les sauts de ligne dans une feuille de calcul. Veuillez faire comme ceci:

1Cliquez sur Développeur > Visual Basic ou appuyez sur Alt + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour applications, puis clique insérer > Moduleet saisissez le code suivant:

Code VBA: supprimer plusieurs sauts de ligne dans une feuille de calcul

Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous dire de sélectionner une plage dans laquelle vous souhaitez supprimer les sauts de ligne, voir capture d'écran:

doc-remove-line-breaks4

3. Puis clique OK et tous les sauts de ligne de la sélection ont été supprimés.


flèche bleue bulle droite Supprimer plusieurs sauts de ligne avec Kutools for Excel

Peut-être que vous oublierez parfois comment utiliser la fonction Rechercher et remplacer ou que vous n'êtes pas familier avec le code pour supprimer plusieurs sauts de ligne, dans cette situation, Kutools for Excel peut vous aider à résoudre ce problème.

Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Obtenez-le maintenant

Après avoir installé Kutools for Excel, procédez comme suit:

1. Sélectionnez la plage dans laquelle vous souhaitez supprimer les retours chariot.

2. Cliquez Kutools > Outils de texte > Supprimer les caractères, voir capture d'écran:

doc-remove-line-breaks5

3. Dans le Supprimer les caractères boîte de dialogue, cochez Non imprimable option, et vous pouvez voir le résultat de la Aperçu volet également, voir capture d'écran:

doc-remove-line-breaks6

4. Et puis cliquez OK or Appliquer. Tous les sauts de ligne seront supprimés des cellules sélectionnées.

Cliquez pour en savoir plus sur cette fonctionnalité de suppression de caractères.


Articles connexes:

Meilleurs outils de productivité bureautique

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

onglet kte 201905


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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Obrigado pela dica! Funcionou muito bem aqui!
This comment was minimized by the moderator on the site
Thank You so much yaar. I found it very useful for my day to day office works.
This comment was minimized by the moderator on the site
Thank you very much. it is really superb
This comment was minimized by the moderator on the site
Thank you werry helpfull for my and my MYSQL CSV import :-)
This comment was minimized by the moderator on the site
THANK YOU!!! I have been battling blank lines in cell for too long. You solved the problem...thank you so much
This comment was minimized by the moderator on the site
I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return? Sub RemoveCarriage() 'Update 20131216 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Rng.Value = Replace(Rng.Value, Chr(10), "") Next End Sub Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations