VBA中字符换行显示需要使用换行符来完成。下面是常用的换行符
'chr(10) 可以生成换行符
'chr(13) 可以生成回车符
'vbcrlf 换行符和回车符
'vbCr 等同于chr(10)
'vblf 等同于chr(13)
'例：
Sub test3()
MsgBox "我爱" & Chr(10) & "Excel精英培训"
' MsgBox "我爱你" & Chr(13) & "Excel"
' MsgBox "今天" & vbCrLf & "我是水王"
End Sub
摘自兰色幻想VBA80集第32集
http://item.taobao.com/item.htm?id=14402399879
VBA中字符换行显示需要使用换行符来完成。下面是常用的换行符 'chr(10) 可以生成换行符 'chr(13) 可以生成回车符 'vbcrlf 换行符和回车符 'vbCr 等同于chr(10) 'vblf 等同于chr(13) '例：
Sub test()
For Each c In Range(“A1:C333”)
If InStr(c.Value, “##”) > 0 Then c.Value = Replace(c.Value, “##”, Chr(10))
End Sub
总有些奇葩，不经任何学习，就使用excel文件，他们经常用不断敲空格的方式来
换行
，给后续编辑造成极大困扰。
这里给出
vba
模板，把当前
表示
换行
的多个空格替换为单个
换行符
。一次运行，会处理sheet所有的单元格中的多余空格。
如果需要针对选中区域的进行替换，请留言，改天再传。
For Each ib In ActiveDocument.Paragraphs
'排除表格
If ib.Range.Information(wdWithInTable) = False Then
ib.Range.Select
'缩进不一定是2个字符，只要缩进不为0就替换，避免标题、主送对象等误操作
