在Excel中查找/替换时使用换行符 - pinocchioatbeijing

在Excel中查找/替换时使用换行符

在Excel中的单元格内要将已有的字符替换为换行符，在其“查找/替换”对话框中不能直接输入，而且也不能简单地像Word中用^p或者^13。目前找到一个能够解决的办法是，使用VBS的查找/替换语句，Chr(10)对应换行字符。代码如下：

Sub Replace_With_LineFeed()
Dim rng As Range
Set rng = Range("A1:" & Range("A65536") _
.End(xlUp).Address)
For Each cell In rng
cell.Select
ActiveCell.Replace What:="<br/>", Replacement:=Chr(10), _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

从我查阅的资料了解更多请点击此处。