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

您所在的位置:网站首页 excel一个空格拆分成两行 按分隔符将文本字符串拆分为多行

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

2023-07-14 13:40| 来源: 网络整理| 查看: 265

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

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

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

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

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

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

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

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

第 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 代码。

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

第 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 步:选择“将数据拆分为行”功能

点击 Kutools > 合并与拆分 > 将数据拆分为行,请参见屏幕截图:

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

在弹出的对话框中,使用以下选项:

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

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

 小贴士:如果要恢复原始数据,只需按 按Ctrl + Z 用于撤消。

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

方法 C:通过 Power Query 将分隔文本拆分为多行

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

第 1 步:将数据表导入 Power Query

1. 选择您要使用的数据范围,然后单击 Data > 从表,请参见屏幕截图:

 小贴士:在 Excel 2019 和 Office 365 中,单击 Data > 从表/范围.

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

3。 现在 电源查询 编者 窗口显示数据,见截图:

第 2 步:在 Power Query 中进行转换

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

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

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

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

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

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

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

第 3 步:将 Power Query 输出到 Excel 表格

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

 小贴士:点击 关闭并加载 将数据输出到新的工作表; 点击 关闭并加载到 选项,数据将输出到您需要的任何其他工作表。

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

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

相关文章: 将单元格值拆分为多列 在 Excel 中,当您想通过某些分隔符(例如逗号、空格、句点、换行符等)将单元格值列表拆分为多列时,通常,内置的文本分列功能可以帮助您完成此工作步骤循序渐进。 这篇文章,我将讨论一些好技巧,让您轻松快速地将单元格值拆分为多列或多行。 将单元格拆分为多行或多列 假设您有一个单元格,其中包含由特定字符(例如,分号)分隔的多个内容,然后您要根据分号将此长单元格拆分为多行或多列,在这种情况下,您是否有任何快速方法在Excel中解决它? 按大小写拆分文本字符串 在Excel中,我们通常使用“文本到列”功能按固定宽度或定界符拆分文本,但是您是否尝试过按大写和小写拆分文本? 例如,您有一个数据列表,您需要根据大小写将它们分为两列:一列包含小写字母字符串,另一列包含大写字母字符串,如下图所示。 “文本到列”功能不支持此操作,但是,我可以介绍一些技巧,以便在Excel中按大小写快速拆分文本字符串。 将数字拆分为单个数字 假设您需要将数字分解或分解为单个数字,如下面的屏幕截图所示,您可以怎么做? 本文将为您提供两种方法。 最佳办公生产力工具 将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗? 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!

为什么需要 Kutools for Excel

🛠️  超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。

📈  卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!

⏱️  高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。

📊  可定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。

🗄️  强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。

📝  七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。

🎓  用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。

立即下载,与 Excel 一起穿越时空!

kte选项卡201905

阅读更多 免费下载... 采购...  Office Tab 为 Office 带来选项卡式界面,让您的工作更轻松 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击! officetab底部 阅读更多 免费下载... 采购...    按评论排序 最旧的 最新的 评论 (0) 还没有评分。 成为第一位评论! 这里还没有评论


【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3