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