Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/spring-mvc/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在excel中删除换行符_Excel - Fatal编程技术网

如何在excel中删除换行符

如何在excel中删除换行符,excel,Excel,我有excel表格中的数据。在该图纸中,为新行插入了手动打断。 我想删除所有换行符并将所有内容都放在一行中 我该怎么做 我尝试选择该列,并在“查找”下的“替换”文本框中,按ctrl+j,然后在“替换为”中输入一个空格。但是excel显示没有数据匹配可以替换 请建议如何删除excel文件中的手动换行符?一种快速而肮脏的方法是将文件保存为文本文件,然后使用诸如grep之类的实用程序或在word/wordpad/SublimiteText/textmate中打开,并对下线字符进行全局替换如果手动换行符

我有excel表格中的数据。在该图纸中,为新行插入了手动打断。 我想删除所有换行符并将所有内容都放在一行中

我该怎么做

我尝试选择该列,并在“查找”下的“替换”文本框中,按ctrl+j,然后在“替换为”中输入一个空格。但是excel显示没有数据匹配可以替换


请建议如何删除excel文件中的手动换行符?

一种快速而肮脏的方法是将文件保存为文本文件,然后使用诸如grep之类的实用程序或在word/wordpad/SublimiteText/textmate中打开,并对下线字符进行全局替换

如果手动换行符是用ALT-ENTER插入的,则此小字符宏将全部替换为空格:

Sub qwerty()
    Cells.Replace Chr(10), " "
End Sub

删除所有换行符,只留下一行。选择单元格或单元格范围,然后运行宏

Sub RemoveLineBreaks()
    Application.ScreenUpdating = False
    Dim rngCell As Range
    Dim strOldVal As String
    Dim strNewVal As String

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

            Do

            strNewVal = Replace(strNewVal, vbLf, " ")

            If strNewVal = strOldVal Then Exit Do
                strOldVal = strNewVal
            Loop

            If rngCell.Value <> strNewVal Then
                rngCell = strNewVal
            End If
        End If
        rngCell.Value = Application.Trim(rngCell.Value)
    Next rngCell
    Application.ScreenUpdating = True
End Sub
Sub-RemoveLineBreaks()
Application.ScreenUpdating=False
Dim rngCell As范围
Dim strOldVal作为字符串
作为字符串的Dim strNewVal
对于选择中的每个rngCell
如果rngCell.HasFormula=False,则
strOldVal=rngCell.Value
strNewVal=strOldVal
调试.打印rngCell.地址
做
strNewVal=替换(strNewVal,vbLf,“”)
如果strNewVal=strOldVal,则退出Do
strOldVal=strNewVal
环
如果rngCell.Value strNewVal,则
rngCell=strNewVal
如果结束
如果结束
rngCell.Value=Application.Trim(rngCell.Value)
下一个rngCell
Application.ScreenUpdating=True
端接头

破坏单元格中的换行符和实际的换行符是个坏主意,不是吗?我使用的是office 365,它对我很有效,如果您第一次尝试查找/替换时得到“无数据匹配”,然后尝试“查找下一个”,当它找到第一个实例时,使用“全部替换”,希望它对您有效!