如何快速删除换行符? 快速清除Excel单元格中换行符的3种方法


    有时，当我们从网站复制一些数据，从客户那里获取的 Excel 文件或使用 Alt + Enter 键分隔数据时，会存在一些换行符或回车符。如果要快速删除 Excel 中的多个换行符，如下面所示，可以按以下步骤完成。
    
    
    手动删除换行符
    使用“查找和替换”删除换行符的步骤：
    1、选择要删除或替换换行符的单元格。
    2、按 Ctrl + H 以打开“查找和替换”对话框。
    3、在“查找内容”栏中输入Ctrl + J 或 Ctrl + Enter 这时会出现一个闪烁的小点。
    4、在“替换为”栏中输入任何值以替换换行符。通常在这里加入 1-2 个空格，如果您只需要删除换行符，就将“替换为”栏留空。
    
    5、按“全部替换”按钮。
    
    使用 Excel 公式删除换行符
    在要删除或替换换行符的单元格旁边一空白单元格输入以下公式： 这里有三个公式，可根据使用的不同场合选择，输出的结果见下图。
    
=TRIM(SUBSTITUTE(SUBSTITUTE(A2,CHAR(13),””),CHAR(10),”, “))
=SUBSTITUTE(SUBSTITUTE(A2,CHAR(13),””),CHAR(10),” “)
=CLEAN(A2)

    
    拖动或双击输入公式的单元格填充柄复制公式。
    然后，可以按 Ctrl + C，将输出的结果复制并粘贴到其它单元格，粘贴时选择“只粘贴数值”或按 Ctrl + Alt + V + V 组合键。
    用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

    如果您不太了解 VBA，请阅读如何在 Excel 中插入和运行 VBA 代码
    以上技能你Get到了吗？别忘了自己练习一遍，每天进步一小步，日积月累跨大步！亲们，一起加油！
相关文章！