excel怎么把两列交叉变成一列

要将Excel中的两列交叉变成一列，可以使用公式、VBA宏、Power Query等方法。其中，使用公式是最常见和便捷的方法。接下来将详细介绍如何通过公式来实现这一目标。

一、使用公式交叉合并两列

1. 准备数据

首先，你需要在Excel表格中准备好两列数据，假设它们分别在A列和B列。

2. 创建辅助列

在C列中创建一个辅助列，用于存放交叉合并的结果。假设你的数据在A列和B列的第2行开始。

3. 输入公式

在C2单元格中输入以下公式：

=IF(MOD(ROW(A2)-2, 2)=0, INDEX($A$2:$A$100, INT((ROW(A2)-2)/2)+1), INDEX($B$2:$B$100, INT((ROW(A2)-2)/2)+1))

这个公式的作用是：根据行号的奇偶性来决定取A列还是B列的数据。具体来说，MOD函数用于取模运算，判断当前行号的奇偶性；INDEX函数用于从指定的范围内取值；INT函数用于取整，将行号转化为对应的索引。

4. 向下拖动公式

将C2单元格的公式向下拖动，直到覆盖所有需要交叉合并的行。

5. 粘贴为值

最后，将C列的结果选中，复制并粘贴为值，以便删除原始数据列而不影响结果。

二、使用VBA宏实现交叉合并

1. 打开VBA编辑器

按下 Alt + F11 打开VBA编辑器。

2. 插入模块

在VBA编辑器中，点击“插入”->“模块”，插入一个新的模块。

3. 输入VBA代码

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

Sub CrossMergeColumns()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    Dim lastRowA As Long, lastRowB As Long, i As Long, j As Long
    lastRowA = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastRowB = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    j = 1
    For i = 1 To Application.WorksheetFunction.Max(lastRowA, lastRowB)
        If i <= lastRowA Then
            ws.Cells(j, 3).Value = ws.Cells(i, 1).Value
            j = j + 1
        End If
        If i <= lastRowB Then
            ws.Cells(j, 3).Value = ws.Cells(i, 2).Value
            j = j + 1
        End If
    Next i
End Sub

4. 运行宏

关闭VBA编辑器，返回Excel，按 Alt + F8 打开宏对话框，选择 CrossMergeColumns 宏并运行。

三、使用Power Query进行合并

1. 启动Power Query

在Excel中，点击“数据”->“获取数据”->“从表/范围”，启动Power Query编辑器。

2. 加载数据

将两列数据加载到Power Query编辑器中。

3. 追加查询

在Power Query编辑器中，点击“追加查询”->“追加为新查询”，将两个数据表追加到一起。

4. 排序和过滤

在追加的查询结果中，根据需要排序和过滤数据。

5. 加载结果

最后，点击“关闭并加载”将结果加载回Excel。

四、总结

通过上述方法，可以轻松将Excel中的两列交叉合并为一列。使用公式是最简单的方法，适用于小规模数据集；VBA宏适用于需要重复操作的大规模数据集；而Power Query则提供了更强大的数据处理能力。选择适合你的方法，可以极大提高工作效率。