UC知道EXCEL能用替换的方法在某关键词前加上换行符
来源：百度知道 编辑：UC知道 时间：2024/06/04 06:40:34
本人经常需要把Excal单元格中的数据转换为多行方式，例如：把“新华网 发展论坛 IT科技”转换为
新华网
发展论坛
IT科技
手动是用ALT+ENTER,一个一个地换行,太繁琐了,
如果能用替换的方法,就简单多了,可是在EXCEL的替换框中不能输入换行符!
求知道的朋友帮助!
多谢了,急啊!
有些答案提到使用替换时按住 alt 同时 输入 10(这时,替换框中看不到任何东西) ，我试了下步管用啊……
新华网
发展论坛
IT科技
手动是用ALT+ENTER,一个一个地换行,太繁琐了,
如果能用替换的方法,就简单多了,可是在EXCEL的替换框中不能输入换行符!
求知道的朋友帮助!
多谢了,急啊!
有些答案提到使用替换时按住 alt 同时 输入 10(这时,替换框中看不到任何东西) ，我试了下步管用啊……
提供如下两种方式。整体思路均是查找到该关键字符，而后使用公式提取该关键词前后的字符并在关键词前换行。
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法
使用如下代码，运行时先后选择单元格区域和关键词，达到操作目标。
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 s