Excel：如何将分隔文本拆分为行

假设这是一个工作表中包含三列的表格，第一列列出了价格水平，第二列列出了在单元格中用逗号分隔的水果名称，第三列列出了水果的价格。 工作是将分隔的水果名称分成行，并重复相关的价格水平和价格行，如下图所示：

这里介绍两种方法来解决这个工作。

使用 VBA 将分隔文本拆分为行

使用以下命令将分隔文本拆分为行 Power Query

这是一个可以快速将分隔文本拆分为行的 VBA 代码。

1。 按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 标签> 模块 创建一个新的空白模块。

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

VBA：将分隔文本拆分为行

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    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)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        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(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4。 按 F5 键单击运行按钮  要激活代码，会弹出一个对话框供您选择排除包含需要拆分为行的分隔文本的标题的列。 点击 OK.

5. 然后弹出第二个对话框，输入您使用的分隔符。 这里输入逗号 (,)。 点击 OK.

现在，分隔文本已被拆分为行，并且其他相关列已被重复。

  VBA 会更改原始数据，您最好先保存一份副本。

如果您使用的是 Excel 2013 或更高版本，则 Power Query 将是解决这项工作的好选择。

1.选择数据范围，点击 时间 > 从表/范围.

2.在弹出 创建表 对话框，检查 我的桌子有标题 根据需要，然后单击 OK.

然后， Power Query 编者 窗口显示，数据已显示在其中。

3. 单击要将分隔文本拆分为行的列，然后单击 改造 标签> 拆分列 > 按分隔符.

或者您也可以选择列并右键单击列标题以在上下文菜单中选择此功能。

4.在 按分隔符拆分列 窗口中，根据需要从 选择或输入分隔符 部分，然后选择 每次出现的分隔符 选项，然后展开 高级选项 选择的部分 行 选项。 点击 OK.

现在分隔的文本已被分割成行。

5.然后关闭窗口，弹出一个对话框，点击 保持 按钮。

然后将使用该表创建一个新工作表。

---

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

• 超级公式栏 （轻松编辑多行文本和公式）； 阅读视图 （轻松读取和编辑大量单元格）； 粘贴到过滤范围...
• 合并单元格/行/列 和保存数据； 拆分单元格内容； 合并重复的行和总和/平均值...防止细胞重复； 比较范围...
• 选择重复或唯一 行; 选择空白行 （所有单元格都是空的）； 超级查找和模糊查找 在许多工作簿中； 随机选择...
• 确切的副本 多个单元格，无需更改公式参考； 自动创建参考 到多张纸； 插入项目符号，复选框等...
• 收藏并快速插入公式，范围，图表和图片； 加密单元 带密码 创建邮件列表 并发送电子邮件...
• 提取文字，添加文本，按位置删除， 删除空间; 创建和打印分页小计； 在单元格内容和注释之间转换...
• 超级筛选 （将过滤方案保存并应用于其他工作表）； 高级排序 按月/周/日，频率及更多； 特殊过滤器 用粗体，斜体...
• 结合工作簿和工作表; 根据关键列合并表； 将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
• 数据透视表分组依据 周号，周几等 显示未锁定的单元格 用不同的颜色 突出显示具有公式/名称的单元格...

阅读更多 功能齐全的30天免费试用版... 采购... 

---

Office Tab - 为 Office 带来选项卡式界面，让您的工作更加轻松

• 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
• 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
• 每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多 功能齐全的30天免费试用版... 采购...