易品网

在日常的办公工作中,我们经常需要处理各种各样的数据，有时候会遇到这样一种情况，一行单元格中包含了多项信息，为了便于后续的数据处理和分析，需要将这一行数据拆分成多行，Excel 作为一款强大的办公软件，提供了多种方法来实现一行拆分多行的操作，下面就为大家详细介绍几种常见的方法。

使用数据分列和 VBA 宏

1. 数据分列 选中需要拆分的单元格所在行，点击“数据”选项卡，在“数据工具”组中找到“分列”按钮，在弹出的“文本分列向导”对话框中，根据数据的分隔符（如逗号、空格等）选择合适的分列方式，按照向导的提示完成分列操作，将一行数据拆分成多列。
2. 使用 VBA 宏 按下“Alt + F11”组合键打开 VBA 编辑器，在编辑器中，插入一个新的模块，在模块中输入以下代码：

   Sub SplitRowToMultipleRows()
    Dim rng As Range
    Dim arr
    Dim i As Long, j As Long
    Set rng = Selection
    arr = rng.Value
    For i = 1 To UBound(arr, 2)
        rng.Offset(i - 1, 0).Value = arr(1, i)
    Next i
    rng.Resize(1, UBound(arr, 2)).ClearContents
   End Sub

   这段代码的作用是将选中行的数据逐列拆分到多行中,输入完代码后，关闭 VBA 编辑器，选中经过分列后的数据，运行这个宏，即可将一行数据拆分成多行。

   

函数辅助法

如果数据的拆分规则比较简单,也可以使用函数来实现，假设一行数据中以逗号分隔不同的信息，我们可以使用以下步骤：

1. 在旁边的空白列中使用“LEFT”和“FIND”函数提取第一个信息，公式如下：

   =LEFT(A1,FIND(",",A1)-1)

   A1 是包含需要拆分数据的单元格，这个公式会提取逗号之前的信息。

2. 使用“MID”和“FIND”函数提取后续的信息，公式如下：

   =MID(A1,FIND(",",A1)+1,FIND(",",A1&",",FIND(",",A1)+1)-FIND(",",A1)-1)

   将这些公式向下拖动,即可依次提取出所有信息，最后将提取出的信息复制到新的区域，就完成了一行拆分多行的操作。

使用 Power Query

Power Query 是 Excel 中一个强大的数据处理工具，它可以方便地对数据进行清洗和转换。

1. 选中需要拆分的单元格所在行,点击“数据”选项卡中的“从表格/区域”按钮，将数据加载到 Power Query 编辑器中。
2. 在编辑器中,选中需要拆分的列，点击“拆分列”按钮，选择合适的拆分方式（如按分隔符拆分）。
3. 完成拆分后,点击“关闭并上载”按钮，将处理后的数据加载回 Excel 工作表中，一行数据就被拆分成了多行。

通过以上几种方法,我们可以根据不同的数据特点和需求，选择合适的方式将 Excel 中的一行数据拆分成多行，掌握这些技巧，能够大大提高我们的数据处理效率，让办公工作更加轻松。