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

假设您有一个数组表/交叉表，并且将该数组表转换为列表表可能对您来说并不困难，您可以通过逐个输入数据来进行转换。但是，如果有多个数组表需要转换为列表表，则手动方法一定不是一个好的解决方案。现在，本教程介绍了可以在Excel中快速将数组表转换为列表表的技巧。

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

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

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

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

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

1。按 ALT + D 同时，然后按 P 启用 数据透视表和数据透视图向导 对话框，然后检查 多种合并范围 和 数据透视表 选项。看截图：
doc数组表列出1

2.单击“下一步”转到向导的“步骤2a”，然后选中“我将创建页面字段”选项。看截图：
doc数组表列出2

3。点击 下一页 去 向导的步骤2b，然后选择数组范围并将其添加到 所有范围 清单。看截图：
doc数组表列出3

4。点击 下一页 要转到最后一步，请根据需要检查一个选项。看截图：
doc数组表列出4

5。点击 结束通话 然后创建了数据透视表，然后转到累计，双击它，您会看到在新工作表中创建了一个数据透视表列表。查看屏幕截图：
doc数组表列出5

6.然后选择列表数据透视表，然后右键单击以选择表 > 转换为范围 从上下文菜单中。看截图：
doc数组表列出6

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

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

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

1。按 Alt + F11键 使之成为可能 Microsoft Visual Basic应用程序 窗口。

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，并弹出一个对话框供您选择不包含标题的阵列表。看截图：
doc数组表列出7

4。点击 OK 转到下一个对话框以选择一个单元格以输出列表。看截图：
doc数组表列出9

5。点击 OK，并且数组表已转换为list。
doc数组表列出10

提示：

如果要基于上述单元格填充空白单元格，可以执行以下操作：

1. Install 安装 Kutools for Excel -方便的工具，然后单击 库工具 > 插页 > 填充空白单元格。看截图：

2。在里面 填充空白单元格 对话框，检查 基于价值 和 Down 选项。看截图：
doc数组表列出12

3。点击 Ok or 使用，现在根据上述值填充空白单元格。
doc数组表列出13

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

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

如果上述方法对您来说还不够简单，在这里我可以介绍一个方便的工具– Kutools for Excel，它的 转置台尺寸 实用程序可以在数组表和列表表之间快速轻松地进行转换。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载
免费全功能 30 天

后 免费安装 Kutools for Excel，请执行以下操作：

1.选择要转换为列表的阵列表，然后单击 库工具 > Range > 转置台尺寸。看截图：
doc数组表列出14

2.然后在 转置台尺寸 对话框中，选中“交叉表到列表”选项，然后选择输出列表的范围。看截图：
doc数组表列出15

3。点击 Ok，现在数组表已转换为列表表。
doc数组表列出16

单击此处以了解有关转置表尺寸的更多信息。

最佳办公效率工具

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

重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西；加密单元带密码创建邮件列表并发送电子邮件...
超级公式栏（轻松编辑多行文本和公式）；阅读版式（轻松读取和编辑大量单元格）；粘贴到过滤范围...
合并单元格/行/列不会丢失数据；拆分单元格内容；合并重复的行/列...防止细胞重复；比较范围...
选择重复或唯一行; 选择空白行（所有单元格都是空的）；超级查找和模糊查找在许多工作簿中；随机选择...
确切的副本多个单元格，无需更改公式参考；自动创建参考到多张纸；插入项目符号，复选框等...
提取文字，添加文本，按位置删除，删除空间; 创建和打印分页小计；在单元格内容和注释之间转换...
超级滤镜（将过滤方案保存并应用于其他工作表）；高级排序按月/周/日，频率及更多；特殊过滤器用粗体，斜体...
结合工作簿和工作表; 根据关键列合并表；将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。在您的企业或组织中轻松部署。完整功能 30 天免费试用。 60 天退款保证。