如何在 Excel 中轻松快速地转置区域和堆叠数据?

ms excelmicrosoft technologiescomputers更新于 2024/8/26 3:56:17

转置和堆叠数据是处理电子表格时的重要任务，因为它们允许您重新排列和重构数据，以便更好地分析和显示。Excel 具有强大的功能，可以将行转换为列，反之亦然，以及将多组数据堆叠到单个列或行中。

在本文中，我们将介绍在 Excel 中转置和堆叠数据的多种方法，并考虑不同的环境和 Excel 版本。那么，让我们开始学习如何在 Excel 中轻松快速地转置和堆叠数据!

轻松快速地转置区域和堆叠数据

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来学习如何在 Excel 中轻松快速地转置区域和堆叠数据。

步骤 1

假设您有一个 Excel 工作表，其中包含类似下图的区域数据。

首先选择单元格区域，然后右键单击工作表名称并选择"查看代码"以打开 VBA 应用程序。然后点击"插入"并选择"模块"。

选择单元格 > 右键单击 > 查看代码 > 插入 > 模块。

步骤 2

然后将以下代码复制到文本框中。

代码

Sub ConvertTableToList()
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step −1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step −1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub