excel怎么将多列合成多行

在Excel中将多列合成多行的方法包括：使用公式、使用Power Query、使用VBA。其中，使用Power Query是最灵活和强大的一种方法，适用于大量数据的转换和处理。

一、使用公式进行转换

使用公式可以快速地将多列合成多行，但这种方法适用于数据量较小的情况。具体步骤如下：

1.1、准备数据和辅助列

假设我们有如下数据：

A B C 1 2 3 4 5 6 7 8 9

1.2、使用INDEX和ROW函数

我们可以在新表格中使用INDEX和ROW函数来重新排列数据：

在新表格的A1单元格中输入以下公式：

=INDEX($A$1:$C$3,INT((ROW(A1)-1)/3)+1,MOD(ROW(A1)-1,3)+1)

向下拖动填充柄，直到所有数据都被转换。

1.3、解释公式

INDEX($A$1:$C$3,INT((ROW(A1)-1)/3)+1,MOD(ROW(A1)-1,3)+1)：
- INDEX函数用于返回指定单元格区域中的值。
- INT((ROW(A1)-1)/3)+1用于确定当前行数据在原表中的行号。
- MOD(ROW(A1)-1,3)+1用于确定当前行数据在原表中的列号。

二、使用Power Query进行转换

Power Query是一种强大的数据处理工具，适用于处理大量数据。使用Power Query可以更灵活地将多列数据转换为多行。

2.1、加载数据到Power Query

选择数据区域，点击“数据”选项卡，然后选择“从表/范围”加载数据到Power Query编辑器。

2.2、转换数据

在Power Query编辑器中，选择“转置”选项，将数据表的行和列互换。
选择“使用首行作为标题”，将首行转换为列标题。
选择“转置”选项，恢复数据表的原始结构。
选择“取消透视其他列”，将所有列合并为单列。

2.3、加载数据回Excel

点击“关闭并加载”，将转换后的数据加载回Excel工作表。

三、使用VBA进行转换

对于需要频繁处理的大量数据，可以使用VBA宏来自动化这一过程。

3.1、打开VBA编辑器

按Alt + F11打开VBA编辑器。
插入一个新模块。

3.2、编写VBA代码

在新模块中输入以下代码：

Sub ConvertColumnsToRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim destCell As Range
    Dim i As Long, j As Long
    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:C3")
    Set destCell = ws.Range("E1")
    ' 清空目标区域
    ws.Range(destCell, destCell.End(xlDown)).ClearContents
    ' 循环遍历数据并转换为多行
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            destCell.Offset((i - 1) * rng.Columns.Count + (j - 1), 0).Value = rng.Cells(i, j).Value
        Next j
    Next i
End Sub

3.3、运行VBA代码

关闭VBA编辑器，返回Excel。
按Alt + F8打开宏对话框，选择ConvertColumnsToRows，然后点击“运行”。

四、总结

在Excel中将多列合成多行，可以通过公式、Power Query和VBA三种主要方法来实现。使用公式适合处理小量数据，Power Query适合处理大量数据并进行复杂的数据转换，VBA则适合需要频繁进行数据转换的场景。根据具体需求选择合适的方法，可以大大提高工作效率。