web-dev-qa-db-fra.com

Excel: comment supprimer tous les retours chariot d'une cellule?

Je veux me débarrasser de tous les retours de voiture dans ma cellule. Comment puis-je faire cela?

excelexcel-formula
16
l--''''''---------''''''''''''

=CLEAN(A1)

Nettoyer supprime tous les caractères non imprimables du texte. - Documentation d'aide Excel

45
Nick Spreitzer

En supposant que votre cellule soit en A1, vous pouvez utiliser la formule suivante:

=SUBSTITUTE(A1,CHAR(10),"")

Selon le retour de chariot, vous devrez peut-être utiliser char(13) au lieu de char(10).

15
LittleBobbyTables

Sélectionnez la ou les cellules, cliquez sur Données/Texte en colonnes dans la barre de menus d'Excel. Choisissez l'option Délimitée dans la première page de la boîte de dialogue, cliquez sur le bouton Suivant. Désélectionnez tout, sauf Autre, puis tapez Ctrl + J dans le champ. à côté de celui-ci (vous ne verrez rien dans cette zone, mais le tableau de disposition en colonnes indiquera qu'il est en cours de division au niveau des sauts de ligne (ce ne sont pas des retours à la ligne) .... alors. Cliquez simplement sur le bouton Terminer.

3
user238469

= Propre (A1)

Cette commande peut être trouvée dans Excel sous l'onglet formules> texte. 

2
LSimmons
Sub RemoveLineBreaks()
    Application.ScreenUpdating = False
    Dim rngCel As Range
    Dim strOldVal As String
    Dim strNewVal As String

    For Each rngCel In Selection
        If rngCel.HasFormula = False Then
            strOldVal = rngCel.Value
            strNewVal = strOldVal
            Debug.Print rngCel.Address

            Do

            strNewVal = Replace(strNewVal, vbLf, " ")

            If strNewVal = strOldVal Then Exit Do
                strOldVal = strNewVal
            Loop

            If rngCel.Value <> strNewVal Then
                rngCel = strNewVal
            End If
        End If
        rngCel.Value = Application.Trim(rngCel.Value)
    Next rngCel
    Application.ScreenUpdating = True
End Sub
0
Mouthpear