当前位置：文江博客话题详情

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

发布于 2024-09-26 06:14:43 字数 28 浏览 4 评论 0原文

我想去掉单元格中的所有回车符。我该怎么做？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

满天都是小星星 2024-10-03 06:14:43

=CLEAN(A1)

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

回复收藏 0 原文

太阳公公是暖光 2024-10-03 06:14:43

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

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

根据回车符，您可能必须使用 char(13) 而不是 char(10)。

Assuming your cell is in A1, you can use the following formula:

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

Depending on the carriage return, you may have to use char(13) instead of char(10).

回复收藏 0 原文

若水般的淡然安静女子 2024-10-03 06:14:43

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

回复收藏 0 原文

野却迷人 2024-10-03 06:14:43

=Clean(A1)

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

回复收藏 0 原文

无所的.畏惧 2024-10-03 06:14:43

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

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 原文

~没有更多了~