跳到主要内容

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

作者:孙 最后修改时间:2022-07-01

假设这是一个工作表中包含三列的表格,第一列列出了价格水平,第二列列出了在单元格中用逗号分隔的水果名称,第三列列出了水果的价格。 工作是将分隔的水果名称分成行,并重复相关的价格水平和价格行,如下图所示:
doc基于颜色1填充文本

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

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

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


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

这是一个可以快速将分隔文本拆分为行的 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 键单击运行按钮 doc基于颜色1填充文本 要激活代码,会弹出一个对话框供您选择排除包含需要拆分为行的分隔文本的标题的列。 点击 OK.
doc基于颜色1填充文本

5. 然后弹出第二个对话框,输入您使用的分隔符。 这里输入逗号 (,)。 点击 OK.
doc基于颜色1填充文本

现在,分隔文本已被拆分为行,并且其他相关列已被重复。
doc基于颜色1填充文本

doc基于颜色1填充文本  VBA 会更改原始数据,您最好先保存一份副本。


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

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

1.选择数据范围,点击 时间 > 从表/范围.
doc基于颜色1填充文本

2.在弹出 创建表 对话框,检查 我的桌子有标题 根据需要,然后单击 OK.
doc基于颜色1填充文本

然后, Power Query 编者 窗口显示,数据已显示在其中。
doc基于颜色1填充文本

3. 单击要将分隔文本拆分为行的列,然后单击 改造 标签> 拆分列 > 按分隔符.
doc基于颜色1填充文本

或者您也可以选择列并右键单击列标题以在上下文菜单中选择此功能。
doc基于颜色1填充文本

4.在 按分隔符拆分列 窗口中,根据需要从 选择或输入分隔符 部分,然后选择 每次出现的分隔符 选项,然后展开 高级选项 选择的部分 选项。 点击 OK.
doc基于颜色1填充文本

现在分隔的文本已被分割成行。
doc基于颜色1填充文本

5.然后关闭窗口,弹出一个对话框,点击 保持 按钮。
doc基于颜色1填充文本

然后将使用该表创建一个新工作表。
doc基于颜色1填充文本


其他操作(文章)

如何在Excel中根据组替换行颜色?
在Excel中,对大多数人来说,给其他行着色可能比较容易,但是,您是否曾经尝试根据列值的变化来为行交替着色–如下面的屏幕快照所示,在A列中,我将讨论如何根据Excel中的组替换行颜色。

如何减小 Excel 文件大小?
有时,如果 Excel 文件太大,打开或保存需要几分钟。 为了解决这个问题,在本教程中,它告诉您如何通过删除不必要或从未使用过的内容或格式来减小 Excel 文件的大小。

Excel:如何创建或插入书签
您有没有想过在工作表或工作簿中有大量数据时创建或插入书签以快速跳转到特定数据范围?

如何在Excel中将阴影应用于奇数或偶数(替代)行/列?
在设计工作表时,许多人倾向于对奇数或偶数(替代)行或列应用阴影,以使工作表更直观。 本文将向您展示两种将阴影应用于Excel中奇数或偶数行/列的方法。


  • 超级公式栏 (轻松编辑多行文本和公式); 阅读视图 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 和保存数据; 拆分单元格内容; 合并重复的行和总和/平均值...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 收藏并快速插入公式,范围,图表和图片; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级筛选 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 数据透视表分组依据 周号,周几等 显示未锁定的单元格 用不同的颜色 突出显示具有公式/名称的单元格...
kte选项卡201905
  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations