按分隔符将文本字符串拆分为多行

您所在的位置：网站首页 › excel如何将一行拆分为多行 › 按分隔符将文本字符串拆分为多行

按分隔符将文本字符串拆分为多行

2024-07-12 02:36| 来源: 网络整理| 查看: 265

按分隔符将文本字符串拆分为多行 - 3 个快速技巧

作者：晓阳最后修改时间：2023-06-08

通常，您可以使用文本分栏功能将单元格内容按特定分隔符（例如逗号、点、分号、斜线等）拆分为多列。但是，有时，您可能需要将分隔的单元格内容拆分为多行并重复其他列中的数据，如下图所示。您有什么好的方法可以在 Excel 中处理此任务吗？本教程将介绍一些在 Excel 中完成这项工作的有效方法。

方法 A：通过 VBA 代码拆分文本字符串以逗号、空格、分号等分隔的文本。由换行符分隔的文本方法 B：Kutools for Excel 在 10 秒内分割文本字符串方法 C：分割文本字符串 Power Query 视频：按分隔符将文本字符串拆分为多行

方法 A：通过 VBA 代码将分隔文本拆分为多行

在本节中，我将介绍两个 VBA 代码来帮助拆分由特定分隔符分隔的单元格内容。

拆分文本以逗号、空格、分号等分隔。

要拆分由一些普通分隔符分隔的文本字符串，例如逗号、空格、分号、斜杠等，以下代码可以帮你一个忙。请按照以下步骤操作：

备注: 这个代码不 SUPPORT 解开，你最好在应用此代码之前备份数据。

第 1 步：打开 VBA 模块编辑器并复制代码

1. 激活您要使用的工作表。然后，按 Alt + F11键键打开 Microsoft Visual Basic应用程序窗口。

2. 在打开的窗口中，点击插页 > 模块创建一个新的空白模块。

3. 然后，将以下代码复制并粘贴到空白模块中。

VBA 代码：按特定分隔符（逗号、点、空格等）拆分文本

Sub SplitTextIntoRows() 'UpdatebyExtendoffice Dim xSRg, xIptRg, xCrRg, xRg As Range Dim xSplitChar As String Dim xArr As Variant Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer Dim xWSh As Worksheet Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8) If xSRg Is Nothing Then Exit Sub xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2) If xSplitChar = "" Then Exit Sub Application.ScreenUpdating = False xRow = xSRg.Row xColumn = xSRg.Column Set xWSh = xSRg.Worksheet For xFNum = xSRg.Rows.Count To 1 Step -1 Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn) xArr = Split(xRg, xSplitChar) xIndex = UBound(xArr) For xFFNum = LBound(xArr) To UBound(xArr) xRg.EntireRow.Copy xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xIndex) xIndex = xIndex - 1 Next xRg.EntireRow.Delete Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

第二步：执行代码得到结果

1. 粘贴代码后，请按 F5 键来运行这段代码。然后，会弹出一个提示框，提醒您选择包含要拆分的分隔文本的单元格，请参见屏幕截图：

2.然后，单击 OK，会弹出另一个提示框，提醒您输入拆分数据所依据的分隔符。在这里，我输入一个逗号和一个空格 (, )，请看截图：

3.最后，单击 OK 按钮。现在，您将看到所选文本字符串根据逗号拆分为行，其他相关列数据重复如下图所示：

拆分文本以换行符分隔

如果您的单元格内容由换行符分隔，将它们分成多行，这是另一个可以帮助您的 VBA 代码。

备注: 这个代码不 SUPPORT 解开您最好在应用此代码之前备份数据。

第 1 步：打开 VBA 模块编辑器并复制代码

1。按 Alt + F11键键打开 Microsoft Visual Basic应用程序窗口。

2. 在打开的窗口中，点击插页 > 模块创建一个新的空白模块。

3. 然后，将以下代码复制并粘贴到空白模块中。

VBA代码：按换行符拆分文本

Sub SplitTextIntoRows() 'UpdatebyExtendoffice Dim xSRg, xIptRg, xCrRg, xRg As Range Dim xSplitChar As String Dim xArr As Variant Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer Dim xWSh As Worksheet Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8) If xSRg Is Nothing Then Exit Sub xSplitChar = Chr(10) Application.ScreenUpdating = False xRow = xSRg.Row xColumn = xSRg.Column Set xWSh = xSRg.Worksheet For xFNum = xSRg.Rows.Count To 1 Step -1 Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn) xArr = Split(xRg, xSplitChar) xIndex = UBound(xArr) For xFFNum = LBound(xArr) To UBound(xArr) xRg.EntireRow.Copy xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xIndex) xIndex = xIndex - 1 Next xRg.EntireRow.Delete Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

第二步：执行代码得到结果

1. 粘贴代码后，请按 F5 键来运行这段代码。在弹出的框中，选择要拆分的单元格，见截图：

2.然后，单击 OK 按钮，所选单元格中的数据被分成几行，如下图所示：

方法 B：10s 通过 Kutools for Excel 将分隔文本拆分为多行

如果你已经安装 Kutools for Excel，其将数据拆分为行功能，您可以按指定的任何分隔符将文本字符串拆分为多行。请按照以下步骤进行：

第 1 步：选择“将数据拆分为行”功能

点击库工具 > 合并与拆分 > 将数据拆分为行，请参见屏幕截图：

第 2 步：指定拆分的数据单元格和分隔符

在弹出的对话框中，使用以下选项：

1). 选择要从中拆分的单元格列表范围（单列）文本框; 2). 然后，选择分隔数据的分隔符，在这里，我会选择其他并在文本框中键入逗号和空格 (, )； 3). 最后，点击 OK 按钮。

现在，带有分隔文本字符串的选定单元格已根据特定分隔符转换为多行，请参见屏幕截图：

Tips：如果要恢复原始数据，只需按按Ctrl + Z 用于撤消。

使用方便？对此功能感兴趣，请点击下载即可免费试用 30 天.

方法 C：将分隔文本拆分为多行 Power Query

如果您运行的是 Office 365 或 Excel 2016 及更高版本， Power Query 是一个强大的工具，可以帮助您将分隔的文本拆分为多行或多列。如果您希望在原始数据更改时刷新拆分数据，这将很有用。请按照以下步骤完成它：

第一步：将数据表放入 Power Query

1. 选择您要使用的数据范围，然后单击时间 > 从表，请参见屏幕截图：

Tips：在 Excel 2019 和 Office 365 中，单击时间 > 从表/范围.

2.在弹出的创建表对话框，单击 OK 按钮创建一个表，看截图：

3。现在 Power Query 编者窗口显示数据，见截图：

步骤 2：进行转换 Power Query

1. 选择要拆分的列。然后，单击主页 > 拆分列 > 按分隔符，请参见屏幕截图：

2.在按分隔符拆分列对话框：

要用逗号、空格、分号等分割文本字符串，请按如下操作：

1). 选择您的数据与选择或输入分隔符下拉列表; 2）。选择每次出现的分隔符来自分裂于部分; 3). 然后，点击高级选项展开该部分，然后选择行在下面拆分成; 4). 最后，点击 OK 关闭此对话框。

要通过链接中断将文本字符串拆分为多行，请按照以下步骤操作：

1）。选择定制来自选择或输入分隔符下拉列表; 2). 来自插入特殊字符下拉，点击换行, 和字符＃（如果）将被插入到下面的文本框中定制自动地; 3）。选择每次出现的分隔符来自 Split at 部分； 4). 然后，点击高级选项展开该部分，然后选择行在下面拆分成; 5). 最后，点击 OK 关闭此对话框。

3. 现在，所选数据已拆分为多行，如下图所示：

第三步：输出 Power Query 到 Excel 表格

1. 然后，您应该将数据输出到您的工作表中。请点击主页 > 关闭并加载 > 关闭并加载 / 关闭并加载到，（在这里，我将点击关闭并加载），请参见屏幕截图：

Tips：点击关闭并加载将数据输出到新的工作表；点击关闭并加载到选项，数据将输出到您需要的任何其他工作表。

2.最后，数据将被加载到一个新的工作表中，见截图：

Tips：如果您需要经常更新原表中的数据，请不要担心，只需右键单击结果表并单击刷新动态获取新结果。

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

阅读更多免费下载... Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。每天将您的工作效率提高50％，并减少数百次鼠标单击！ Excel 的屏幕截图（安装了 Office Tab）

阅读更多免费下载... Sort comments by Oldest First Newest First Comments (0) No ratings yet. Be the first to rate! There are no comments posted here yet Please leave your comments in English

Posting as Guest

【本文地址】

公司简介

联系我们