Excel：如何从单元格中删除所有回车符？

我想把我牢房里所有的马车都处理掉。如何操作？

假设您的单元格位于A1中，您可以使用以下公式：

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

---

根据回车的不同，您可能必须使用char13而不是char10。

选择一个或多个单元格，单击Excel菜单栏中的数据/文本列， 选择第一个对话框页面上的分隔选项，单击下一步按钮， 取消选中除Other之外的所有选项，并在其旁边的字段中键入Ctrl+J 您将不会在该框中看到任何内容，但将显示列布局图 它在换料线上被分割，它们不是回车。。。 然后单击完成按钮。

=CLEANA1

清除从文本中删除所有不可打印字符。-Excel帮助文档

---

此命令可在Excel中的“公式”选项卡>“文本”下找到

可能重复的Changing=SUBSTITUTEA1，CHAR10，to=SUBSTITUTEA1，CHAR10将用空格替换所有回车。这将防止在删除回车时两个单词合并为一个。这与接受的答案完全相同。请删除它这样一个简单的干净解决方案这也会删除换行符\n，而不仅仅是回车符。。。

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