如何在 Excel 中将矩阵样式表格转换为三列

有时在 Excel 中，您可能需要将矩阵样式表格转换为列样式表格。任何具有 m 行和 n 列的表格都被称为矩阵样式表格，任何具有 m 行和三列的表格在 Excel 中被称为三列表格。阅读本教程，了解如何在 Excel 中将矩阵样式表格转换为三列表格。我们可以借助 VBA 应用程序完成此过程，因为它无法在 Excel 中直接完成。

在 Excel 中将矩阵样式表格转换为三列

这里，我们将首先创建一个 VBA 模块，然后运行代码以完成任务。让我们看一下在 Excel 中将矩阵样式表格转换为三列表格的简单过程。

步骤 1

让我们考虑任何包含类似于下图的矩阵样式表格的 Excel 表格。

然后右键单击工作表名称并选择“查看代码”以打开 VBA 应用程序，然后单击“插入”并选择“模块”。

右键单击 > 查看代码 > 插入 > 模块

步骤 2

然后将下面提到的程序键入文本框中，如下图所示。

程序

Sub ConvertTable()
'Updated By Nirmal
Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
xTitleId = "Convert to Column"
Set cRng = Application.InputBox("Select your Column labels", xTitleId, Type:=8)
Set rRng = Application.InputBox("Select Your Row Labels", xTitleId, Type:=8)
Set Rng = Application.InputBox("Select your data", xTitleId, Type:=8)
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
    For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
        outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
        outRng.Cells(k, 2) = xWs.Cells(xRow, j)
        outRng.Cells(k, 3) = xWs.Cells(i, j)
        k = k + 1
    Next j
Next i
End Sub

步骤 3

现在将工作表另存为启用宏的工作簿，然后单击 F5 运行代码，然后选择您的列标签并单击“确定”。

步骤 4

然后选择您的行标签并单击“确定”。

步骤 5

现在选择您的数据（不包括行和列标签），然后单击“确定”。

步骤 6

最后，在选择要从其开始表格的单个单元格后，单击“确定”。

结论

在本教程中，我们使用了一个简单的示例来演示如何将矩阵样式表格转换为 Excel 中的三列。

更新于：2023 年 2 月 24 日

1K+ 次查看

启动您的 职业生涯

通过完成课程获得认证

开始
广告