Excel合并公式终极指南：从基础文本拼接至多表数据整合

假设A1单元格为“张”，B1单元格为“三”，要在C1中显示“张三”，可以使用以下公式：

=A1&B1

如果需要添加空格或连字符，可以将符号用双引号括起来：

=A1&" "&B1

这将输出“张 三”。

在早期版本的Excel中，CONCATENATE函数是合并文本的标准方式。其语法为：=CONCATENATE(文本1, [文本2], ...)。例如：

=CONCATENATE(A1, " ", B1)

虽然CONCATENATE仍然有效，但微软推荐使用更简洁的CONCAT函数或功能更强大的TEXTJOIN函数。

=TEXTJOIN(分隔符, 忽略空值, 文本1, [文本2], ...)

• 分隔符：合并后文本之间的字符，如逗号、空格、换行符等。
• 忽略空值：TRUE表示忽略空单元格，FALSE表示保留空单元格（可能产生多余分隔符）。
• 文本1, 文本2...：要合并的文本字符串、单元格引用或数组。

=TEXTJOIN(", ", TRUE, A1:A5)

=TEXTJOIN(CHAR(10), TRUE, A1:A10)

=A1&B1&C1

=TEXTJOIN(", ", TRUE, IF(B1:B10>1000, A1:A10, ""))

=TEXTJOIN(", ", TRUE, INDIRECT("Sheet1!A1:A10"), INDIRECT("Sheet2!A1:A10"))

Power Query的优势在于：

• 无需公式：通过图形界面操作，适合不熟悉公式的用户。
• 可重复性：一旦设置好步骤，下次只需刷新即可更新数据。
• 处理大数据：可以处理数百万行数据，而不会导致Excel卡顿。
• 数据清洗：内置多种数据清洗功能，如去除重复项、替换值等。

Sub MergeAllSheets()
    Dim ws As Worksheet
    Dim destWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    ' 创建新工作表用于存储合并结果
    Set destWs = Worksheets.Add
    destWs.Name = "合并结果"
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> destWs.Name Then
            lastRow = destWs.Cells(destWs.Rows.Count, "A").End(xlUp).Row
            If lastRow = 1 And destWs.Cells(1, 1) = "" Then
                lastRow = 0
            End If
            ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Copy
            destWs.Cells(lastRow + 1, 1).PasteSpecial xlPasteValues
        End If
    Next ws
    Application.CutCopyMode = False
    MsgBox "合并完成！"
End Sub