Excel技巧：快速处理单元格内的换行符
Excel技巧：快速处理单元格内的换行符
fanjy
发布于 2023-02-24 12:56:28
发布于 2023-02-24 12:56:28
代码可运行
运行总次数：0
代码可运行
标签：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:=False
End 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本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2023-01-20，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
