关于回车换行符的小知识

小伙伴们，今天我们来说说回车换行符的一些知识。可能很多小伙伴们都用过这个回车换行符，不过今天要讲的知识中也许有你还没用过的。

1、单元格内换行

很多小伙伴都知道这个知识了，将光标放到需要换行的文字中间，然后按Alt Enter就可以实现单元格内换行了。

2、查找替换换行符

按Ctrl F打开“查找和替换”对话框并定位到“查找”或者按Ctrl H打开“查找和替换”对话框并定位到“替换”，在“查找内容”框中按Ctrl Enter，然后点击“查找全部”按钮，就可以找到当前工作表中所有包含回车换行符的单元格了。

如果我们转到“替换”选项卡，“替换为”文本框中不输入任何内容，然后点击“全部替换”按钮，就相当于将回车换行符全部去掉了。

同样道理，我们可以查找逗号，替换为回车换行符，即在“查找内容”文本框中输入逗号符号，在“替换为”文本框中按下Ctrl Enter，然后点“全部替换”按钮，就可以将逗号替换为回车换行符了。

在这里输入回车换行符还可以采用以下方法：

• 按住Alt键，同时依次小键盘上的1、0；

• 同时按Ctrl 字母J；

3、在公式中使用回车换行符

如下图所示，使用以下公式，可以在连接的两段文字中间插入一个换行符，也就是说用Char(10)可以生成一个换行符。

=A3&CHAR(10)&A4

有人可能要问了，这个实际操作中有用吗？

我来告诉你，有用！因为我就实际使用过。

在一个图表中，使用几个类似于下面的公式，来生成标题，然后加到图表中。这样设置之后，数据在更新后，我也不需要对标题再做任何调整了。

=LEFT(O2,4) &' Total: ' & TEXT(SUM(M28:S29),'0,') &'K, ' & CHAR(10) & TEXT(SUM(M28:S29)/SUM(E28:K29)-1,'0%')

4、删除回车换行符

我们可以使用公式将换行符替换为空白，请看如下示例。

=SUBSTITUTE(C1,CHAR(10),'')

Substitute可以将换行符替换为其他字符，如果仅仅是删除换行符，那就直接用Clean就可以了，Clean的作用是删除不可打印的字符。

我们也可以使用代码来删除换行符。

Sub RemoveLineBreak()

   Dim cell As Range

   For Each cell In ActiveSheet.UsedRange

      If Not cell.HasFormula Then

         If InStr(1, cell.Value, Chr(10), vbBinaryCompare) > 0 Then

            cell.Value = VBA.Replace(cell.Value, Chr(10), '')

         End If

      End If

   Next

   MsgBox '已去掉换行符！', vbOKOnly vbInformation, '提示信息'

End Sub

关于回车换行符的知识，今天就介绍这么多。

--End--