怎么把excel2列表格合并为一列

要将Excel中的两个列表格合并为一列，可以通过复制粘贴、使用公式、数据透视表或VBA宏等多种方法实现。 其中，复制粘贴方法最简单，适用于小规模数据；使用公式灵活且适用于中等规模数据；数据透视表和VBA宏适用于大规模数据。下面将详细介绍其中一种方法——使用公式来合并两个列表格为一列。

一、复制粘贴法

1、直接复制粘贴

这是最简单的方法，尤其当数据量较小时，直接将两个列表格的数据复制到一个新的列中即可。

打开Excel工作表，选中第一个列表格的数据范围，按Ctrl+C复制。
将光标移动到目标列的起始单元格，按Ctrl+V粘贴。
重复上述步骤，将第二个列表格的数据粘贴到目标列的后续单元格中。

2、使用“选择性粘贴”功能

在数据较多时，可以使用“选择性粘贴”功能来避免格式问题。

复制第一个列表格的数据。
在目标列中右键选择“选择性粘贴”，然后选择“值”，这样可以避免格式和公式的干扰。
同样操作第二个列表格的数据。

二、使用公式法

1、使用IF函数结合数组公式

使用IF函数可以在目标列中创建一个新的列表，包含原始两个列表的数据。

在目标列的第一个单元格中输入公式：

=IF(ROW(A1)<=COUNTA(A:A), INDEX(A:A, ROW(A1)), INDEX(B:B, ROW(A1)-COUNTA(A:A)))

按Enter键，然后将此公式拖动到目标列的所有需要的单元格中。

2、使用VBA宏

对于大规模数据，使用VBA宏可以提高效率。

按Alt+F11打开VBA编辑器。
插入一个新模块，并输入以下代码：

Sub MergeColumns()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowB As Long, lastRowC As Long
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据需要修改工作表名称
    lastRowA = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastRowB = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    lastRowC = Application.WorksheetFunction.Max(lastRowA, lastRowB)
    ws.Range("C1:C" & lastRowA).Value = ws.Range("A1:A" & lastRowA).Value
    ws.Range("C" & lastRowA + 1 & ":C" & lastRowC + lastRowA).Value = ws.Range("B1:B" & lastRowB).Value
End Sub

运行该宏，数据将自动合并到目标列中。

三、使用数据透视表

1、创建数据透视表

数据透视表可以帮助我们快速合并和分析数据。

选择数据区域，包括两个列表格的数据。
点击“插入”->“数据透视表”。
在数据透视表字段列表中，将两个列表格的数据字段拖动到“行”区域。
数据透视表将自动合并两个列表格的数据到一列。

2、使用Power Query

Power Query是Excel中的强大工具，适用于复杂的数据处理任务。

选择数据区域，点击“数据”->“从表/范围”。
在Power Query编辑器中，选择两个列表格的数据列，然后点击“追加查询”。
最后将合并后的数据加载回Excel工作表中。

四、使用VBA宏自动化处理

1、编写VBA代码

VBA宏可以自动化处理大量数据，并且可以根据需求进行定制。

打开VBA编辑器，插入一个新模块。
输入以下代码：

Sub MergeTwoColumns()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowB As Long, targetRow As Long
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据需要修改工作表名称
    lastRowA = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastRowB = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    targetRow = 1
    For i = 1 To lastRowA
        ws.Cells(targetRow, 3).Value = ws.Cells(i, 1).Value
        targetRow = targetRow + 1
    Next i
    For i = 1 To lastRowB
        ws.Cells(targetRow, 3).Value = ws.Cells(i, 2).Value
        targetRow = targetRow + 1
    Next i
End Sub

运行该宏，数据将自动合并到目标列中。

2、优化VBA代码

可以根据需要对上述代码进行优化，例如添加错误处理、进度提示等功能，提高代码的鲁棒性。

Sub MergeTwoColumns()
    On Error GoTo ErrorHandler
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowB As Long, targetRow As Long
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据需要修改工作表名称
    lastRowA = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastRowB = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    targetRow = 1
    For i = 1 To lastRowA
        ws.Cells(targetRow, 3).Value = ws.Cells(i, 1).Value
        targetRow = targetRow + 1
    Next i
    For i = 1 To lastRowB
        ws.Cells(targetRow, 3).Value = ws.Cells(i, 2).Value
        targetRow = targetRow + 1
    Next i
    MsgBox "数据合并完成", vbInformation
Cleanup:
    Application.ScreenUpdating = True
    Exit Sub
ErrorHandler:
    MsgBox "出现错误: " & Err.Description, vbCritical
    Resume Cleanup
End Sub

通过以上方法，可以根据不同的数据规模和需求，选择最合适的方法将Excel中的两个列表格合并为一列。无论是简单的复制粘贴，还是使用高级的VBA宏，都能高效地完成这一任务。