<em>EXCEL</em>里如何将换行符替换成空格或分号？-excel 任意字符,excel代

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

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

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

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

难点在于查找框中换行符的输入：
按住Alt键，然后依次按数字小键盘上的1、0
即：Alt+10
提供如下两种方式。整体思路均是查找到e799bee5baa6e79fa5e98193e78988e69d83339该关键字符，而后使用公式提取该关键词前后的字符并在关键词前换行。
1、公式法
A1为原单元格，在B1中输入如下公式，下拉即可。
=IF(ISERROR(FIND("关键词",A1,1)),A1,LEFT(A1,FIND("关键词,A1,1)-1)&CHAR(10)&RIGHT(A1,LEN(A1)-FIND("关键词",A1,1)+1))

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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

CTRL+H是不可以替换换行符的抄，这是个特殊符号，没办法输入，需要使用公式替换，例如下袭面的语句把换行符替换为A，类似办法可以删除换行，或者替zhidao换为逗号：

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

有图有真相：