乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > EXCEL如何替换换行符-excel替换换行符,excel替换回车键

EXCEL如何替换换行符-excel替换换行符,excel替换回车键

作者:乔山办公网日期:

返回目录:excel表格制作




按快捷键 CTRL+H 或通过菜单,调出“查找替换”对话框,选择替换。

选择“查找内容”后的文本框,按住Alt键,在数字小键盘中按 10。

需要注意的是这样输入后,在“查找内容”后的文本框中不会显示任何内容,但实际上是有的;

单击“全部替换”按钮,换行符将被全部替换。

  提供如下两种方式。整体思路均是查找到该关键字符,而后使用公式提取该关键词前后的字符并在关键词前换行。

  1、公式法

  A1为原单元格,在B1中输入如下公式,下拉即可e799bee5baa6e58685e5aeb9333

  =IF(ISERROR(FIND("关键词",A1,1)),A1,LEFT(A1,FIND("关键词,A1,1)-1)&CHAR(10)&RIGHT(A1,LEN(A1)-FIND("关键词",A1,1)+1))


  2、VBA法

  使用如下代码,运行时先后选择单元格区域和关键词,达到操作目标。

Sub Line_feed()
Dim my_Range As Range
Dim my_String As String
Set my_Range = Application.InputBox("Choose the range that will run the macro)", Default:="A1:D10", Type:=8)
my_String = Application.InputBox("Choose the string that will add the line feed after it", Type:=2)
If my_Range.Address = "" Or my_String = "" Then
MsgBox "No valid range selected or no charaoctor inputed!"
Exit Sub
End If

Dim my_Cell As Range
Dim my_Pos As Single

For Each my_Cell In my_Range
If InStr(1, my_Cell, my_String) > 0 Then
my_Pos = InStr(1, my_Cell, my_String)
my_Cell.Value = Left(my_Cell, my_Pos - 1) & Chr(10) & _
Right(my_Cell, Len(my_Cell) - my_Pos + 1)
End If

Next

End Sub


因为你的查找或者替换之中有个隐藏的“强制回车符号”,只是看不见。(一般操作过一次后,表格不关闭,在下次使用查找或者替换的时候会有前一个使用过的痕迹)。
只要全部删掉,再输入一个就好了

相关阅读

关键词不能为空

ppt怎么做_excel表格制作_office365_word文档_365办公网