如何在Excel中将多行合并为一行？已尝试Power Query无效

方法1：TEXTJOIN函数（适合Excel 2019/365及以后版本） #

• 若要将某列（比如A列）从第3行到第2001行的内容合并到A2单元格，直接输入公式：
  =TEXTJOIN("，", TRUE, A3:A2001)
• 参数说明：
  • "，" 是合并时的分隔符，可按需改成空格、顿号等
  • TRUE 表示忽略空单元格，避免出现多余分隔符
  • A3:A2001 是需要合并的目标区域，可根据实际行数调整
• 批量处理：选中A2单元格，鼠标移到单元格右下角填充柄，横向拖动到需要处理的列即可。

方法2：VBA宏（适合所有Excel版本，高效处理大数据集） #

如果你的Excel版本不支持TEXTJOIN，或需要一次性批量处理所有列，用宏更高效：

1. 按 Alt+F11 打开VBA编辑器
2. 右键点击左侧工作表名称，选择「插入」→「模块」
3. 粘贴以下代码：

Sub MergeToRow2()
    Dim ws As Worksheet
    Dim lastCol As Integer, lastRow As Long
    Dim col As Integer, row As Long
    Dim result As String
    
    Set ws = ActiveSheet
    lastCol = ws.Cells(2, Columns.Count).End(xlToLeft).Column
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    
    For col = 1 To lastCol
        result = ""
        For row = 3 To lastRow
            If ws.Cells(row, col).Value <> "" Then
                result = result & ws.Cells(row, col).Value & "，"
            End If
        Next row
        If Len(result) > 0 Then
            ws.Cells(2, col).Value = Left(result, Len(result) - 1)
        End If
    Next col
End Sub

4. 按 F5 运行代码，或回到Excel按 Alt+F8 选择「MergeToRow2」执行，即可自动将每列多行内容合并到该列第2行。

方法3：快速填充（适合单列简单合并） #

若仅处理单列，可手动输入前1-2个合并后的内容（比如A2输入A3+A4的内容），选中A2单元格后按 Ctrl+E 触发快速填充，Excel会自动识别规律完成合并。

内容的提问来源于stack exchange，提问作者Soph