如何在 Excel 中快速将数组表转换为列表表？

假设您有一个数组表/交叉表，将这个数组表转换为列表表对您来说可能不是一件难事，您可以通过逐个输入数据来完成转换。然而，如果有多个数组表需要转换为列表表，手动方法肯定不是好的解决方案。现在，本教程介绍了可以快速在 Excel 中将数组表转换为列表表的技巧。

使用数据透视表将数组表转换为列表表

使用 VBA 将数组表转换为列表表

使用 Kutools for Excel 将数组表转换为列表表

使用数据透视表将数组表转换为列表表

您可以应用数据透视表将数组表转换为列表，然后将其复制为区域。

1. 按下 Alt + D 同时按下，然后按 P 键以启用 数据透视表和数据透视图向导 对话框，并勾选 多重合并计算数据区域 和 数据透视表 选项。参见截图：

2. 单击“下一步”进入向导的步骤 2a，并勾选“我将创建页面字段”选项。参见截图：

3. 单击 下一步 进入 向导的步骤 2b，并选择数组范围并将其添加到 所有范围 列表中。参见截图：

4. 单击 下一步 进入最后一步，根据需要勾选一个选项。参见截图：

5. 单击 完成 然后会创建一个数据透视表，接着转到 总计的交叉单元格，双击它，您可以看到一个新的工作表中已创建了一个列表数据透视表。参见截图：

6. 然后选择列表数据透视表，右键单击并选择 表格 > 转换为区域 从上下文菜单中。参见截图：

现在，数组表已转换为列表表。

使用 VBA 将数组表转换为列表表

这里有一个 VBA 可以帮助您将数组表转换为列表表，请按照以下步骤操作：

1. 按 Alt + F11 启用 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下 VBA 代码粘贴到新的模块窗口中。

VBA：将数组表转换为列表

Sub ConvertTableToList()
'UpdatebyEntendOffice20160429
    Dim I As Long
    Dim xCls As Long
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select Array Table:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSaveToRg = Application.InputBox("Select a range(cell) to put the list table", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    xCls = xRg.Columns.Count - 1
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xSaveToRg.Offset((I - 1) * xCls).Value = xRg.Cells(I, 1).Value
        xSaveToRg.Offset((I - 1) * xCls, 1).Resize(xCls).Value = _
                        Application.WorksheetFunction.Transpose(xRg.Cells(I, 2).Resize(1, xCls))
    Next
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 键运行 VBA，弹出一个对话框供您选择不包括标题的数组表。参见截图：

4. 单击 确定 进入下一个对话框以选择一个单元格输出列表表。参见截图：

5. 单击 确定，数组表已转换为列表。

提示：

如果您想基于上方单元格填充空白单元格，您可以按照以下步骤操作：

1. 安装 Kutools for Excel —— 一个方便的工具，然后单击 Kutools > 插入 > 填充空白单元格。参见截图：

2. 在 填充空白单元格 对话框中，勾选 基于值 和 向下 选项。参见截图：

3. 单击 确定 或 应用，现在空白单元格已基于上方的值进行填充。

点击此处了解更多关于填充空白单元格的信息。

使用 Kutools for Excel 将数组表转换为列表表

如果上述方法对您来说不够简单，这里我可以介绍一个方便的工具 —— Kutools for Excel，其 转换表格维数功能可以快速轻松地在数组表和列表表之间进行转换。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要转换为列表的数组表，并单击 Kutools > 区域 > 转换表格维数。参见截图：

2. 然后在 转换表格维数 对话框中，勾选二维表转一维表选项，然后选择输出列表表的范围。参见截图：

3. 单击 确定，现在数组表已转换为列表表。

点击此处了解更多关于转换表格维数的信息。