Sub Replacechr()
Cells.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
将文件令保存为book1.xlsm(启用宏的工作薄) book1可以改为任何一个文件名。
将上面的代码抄入模块
按ALT+F8,选择宏Replacechr,按执行即可。
若宏不能运行,关闭Excel,重新打开时选择运行宏。