Excel技巧：快速处理单元格内的换行符

excelperfect

标签：Excel技巧，VBA

在Excel中，如果我们想要在一个单元格中将内容显示在不同行，可以在需要断行处使用Alt+回车键。然而，有时候会反过来。工作表中有多个单元格中都存在在不同行显示内容，而我们需要删除这些换行符，将内容显示在一行。如何快速处理呢？

使用“查找和替换”功能

最简单的方法是使用Excel的“查找和替换”功能，打开“查找和替换”对话框，并选择“替换”选项卡，将光标置于“查找内容”的文本框中，然后按Ctrl+J键或者Alt+0010（这可能需要通过数字小键盘输入），再单击“替换”或者“全部替换”按钮。

如果“替换为”文本框中的内容为空，将删除换行符，如果在“替换为”文本框中输入空格（或任何想要的字符），所有换行符将被空格（或选择的字符）替换。

使用VBA

下面的代码使用了Selection，因此它只在选定的单元格上执行。此外，代码关闭了“换行”命令，让你可以很容易地看到代码的效果。代码本身非常简单，实际上使用了Excel的查找和替换工具。

Sub RemoveLineBreak() '关闭自动换行 Selection.WrapText = False Selection.Replace What:=Chr(10), Replacement:='', _        LookAt:=xlPart, SearchOrder:=xlByColumns, _        MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=FalseEnd Sub

接下来，探讨按换行符拆分单元格内容的技术。

最简单的方法是使用“分列”命令。例如，下图1所示的工作表。

图1

选择要拆分的单元格，单击功能区“数据”选项卡中的“分列”命令，在“文本分列向导”第2步中的“分隔符号”选择“其他”，使用Ctrl+J或Alt+0010插入换行符，如下图2所示。

图2

单击“完成”按钮，即实现分列，如下图3所示。

图3

当然，也可以使用VBA来实现，代码如下：

Sub SeperateLineBreak()

    Dim rng As Range

    Dim str As String

    On Error Resume Next

    Application.DisplayAlerts = False

    Set rng = Range(Selection.Item(1).Address)

    Selection.TextToColumns Destination:=rng, _

        DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, _

        ConsecutiveDelimiter:=False, _

        Other:=True, _

        OtherChar:=Chr(10), _

        FieldInfo:=Array(1, 1), _

        TrailingMinusNumbers:=True

    If Err.Number = 1004 Then

        str = MsgBox('现在停止执行代码.', vbOKOnly)

        If str = vbOK Then

            Application.DisplayAlerts = True

            Exit Sub

        End If

    End If

    Application.DisplayAlerts = True

End Sub

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。