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

网友投稿 210 2024-01-09

如何在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应用程序 窗口。

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

Copy

3.然后按 F5

键以运行VBA，并弹出一个对话框供您选择不包含标题的阵列表。看截图：

4。点击 OK

转到下一个对话框以选择一个单元格以输出列表。看截图：

5。点击 OK

，并且数组表已转换为list。

提示：

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

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

。看截图：

2.在 填充空白单元格 对话框，检查 基于价值 和 Down

选项。看截图：