如果Excel单元格内包含了换行符（又称，软空格，Chr(10),vbLF），则使用Len()函数统计单元格内字符串长度时，会包括换行符的长度。要在统计字符串长度时不考虑换行符，则需要在使用Len()函数前移除换行符，即将Chr(10)替换为空字符串""。VBA代码如下（虽然只有一行，调试也花了不少时间，但是作用却不小）Sub removeChr10()Range("A2") = Replace...
总有些奇葩，不经任何学习，就
使用
excel
文件，他们经常用不断敲
空格
的方式来换行，给后续编辑造成极大困扰。
这里给出
vba
模板，把当前表示换行的多个
空格
替换为单个
换行符
。一次运行，会处理sheet所有的
单元格
中
的多余
空格
。
如果需要针对选
中
区域的进行替换，请留言，改天再传。
当我们将一个网页另存为一个文本文件并将文本文件
中
的所有内容复制到Word2007
中
进行编辑时，有时会遇到大量的
空格
和空行，运用该宏按钮可以全部删除Word文档
中
的
空格
和空行（由于空行产生的复杂性，可能一次不能删除全部空行，再执行1－2次该宏按钮就可以全部删除了），非常方便。
在Word2007（其他版本操作类似）
中
，按ALT+F11打开“Visual Basic编辑器”，按CTRL+M导入该文件，关闭“Visual Basic编辑器”后在“自定义快速访问工具栏－其它命令－宏”
中
找到该宏并添加在快速访问工具栏就可以
使用
了。
本宏是自己在WORD
中
做的，绝对无宏病毒，如果实在不放心，你又有点VB知识的话，可以用记事本打开此文件看看，再决定是否
使用
。
原贴：http://blog.sina.com.cn/s/blog_49f78a4b0
10
2e3br.html
在
Excel
单元格
中
按Alt+Enter就会进行换行，就像在Word
中
按回车键一样。如果许多
单元格
中
都包含这样的“
换行符
”，现在要将其全部删除掉，让这些
单元格
中
的内容都变成一行显示，该如何操作呢？
方法一：取消自动换行
在
Excel
单元格
中
按快捷键Alt+Enter进
使用
Replace(Cell.Value,
Chr
(
10
), vbNullString)
去除
Cell内容
中
换行
Sub RemoveLineBreaks()
For Each Cell In Selection
Cell.Value = Replace(Cell.Value,
Chr
(
10
), vbNullString)
End Sub
'检测地址
中
是否有回车换行
addr = Cells(row1, 12)
If InStr(1, addr,
Chr
(
10
), vbBinaryCompare) > 0 Then
MsgBox addr
'检测地址
中
是否有回车换行，只能清除一个回车换行
addr = Cells(row1, 12)
If InStr(1, addr,
Chr
(
10
), vbBinaryCompare) > 0 Then
MsgBox addr
addr = Replace(addr,
Chr
(
10
), "", , , vbBinaryCompare)
addr = Replace(addr,
Chr
(13), "", , , vbBinaryCompare)
MsgBox .
For Each cell In Rng
MsgBox cell
cell.Value = Replace(cell.Value,
Chr
(
10
), vbNullString)
MsgBox cell
Next cell
End Sub你好！ 这是你第一次
使用
Markdown编辑器 所展示的欢迎页。如果你想学习如何
使用
Mar
学以致用——使用莱斯利矩阵模型预测蠵龟种群数量的演变（Demographics of the Loggerhead Sea Turtle using Leslie population model）
Чилам Чонг:
现代大学英语精读第二版（第四册）学习笔记（原文及全文翻译）——5A - For Want of a Drink（因为缺水）
2301_78840731:
线性代数学习笔记——第十一讲——逆矩阵的计算（利用初等变换求逆矩阵）
2201_75544498:
现代大学英语精读第二版（第五册）学习笔记（原文及全文翻译）——12 - The Indispensable Opposition（不可缺少的反对派）
WylesC:
