excel学习库

有时，当我们从网站复制一些数据，从客户那里获取的 Excel 文件或使用 Alt + Enter 键分隔数据时，会存在一些换行符或回车符。如果要快速删除 Excel 中的多个换行符，如下面所示，可以按以下步骤完成。

01 手动删除换行符

使用“查找和替换”删除换行符的步骤：

1、选择要删除或替换换行符的单元格。

2、按 Ctrl + H 以打开“查找和替换”对话框。

3、在“查找内容”栏中输入Ctrl + J 或 Ctrl + Enter 这时会出现一个闪烁的小点。

4、在“替换为”栏中输入任何值以替换换行符。通常在这里加入 1-2 个空格，如果您只需要删除换行符，就将“替换为”栏留空。

5、按“全部替换”按钮。

02 使用 Excel 公式删除换行符

1. 在要删除或替换换行符的单元格旁边一空白单元格输入以下公式：
   这里有三个公式，可根据使用的不同场合选择，输出的结果见下图。

   =TRIM(SUBSTITUTE(SUBSTITUTE(A2,CHAR(13),””),CHAR(10),”, “))

   =SUBSTITUTE(SUBSTITUTE(A2,CHAR(13),””),CHAR(10),” “)

   =CLEAN(A2)

1. 拖动或双击输入公式的单元格填充柄复制公式。

2. 然后，可以按 Ctrl + C，将输出的结果复制并粘贴到其它单元格，粘贴时选择“只粘贴数值”或按 Ctrl + Alt + V + V 组合键。

03 用VBA 宏删除换行符

以下示例中的 VBA 代码可以实现在所选单元格区域删除换行符。

Sub 删除换行符()    Dim rng As Range    Dim cell As Range    Set rng = Selection    Application.ScreenUpdating = False    Application.Calculation = xlCalculationManual    For Each cell In rng        If InStr(cell.Value, Chr(10)) > 0 Then            cell.Value = Replace(cell.Value, Chr(10), "")        End If    Next cell    Application.ScreenUpdating = True    Application.Calculation = xlCalculationAutomaticEnd Sub

我是 Excel 从繁到简，关注我，持续分享更多的 Excel 技巧！