如何在Excel或VBA中合并仅含字符串的多单元格区域

一、使用Excel Power Query（基础可视化操作） #

无需编程即可批量处理，步骤如下：

• 选中任意目标列内的单元格，点击「数据」选项卡 → 「从表格/区域」（若有表头请勾选「我的表格有标题」）。
• 在Power Query编辑器中，选中所有需要合并的列，点击「转换」选项卡 → 「逆透视列」→ 「逆透视其他列」。
• 选中生成的「值」列，点击「主页」选项卡 → 「删除行」→ 「删除错误」。
• 若不需要「属性」列，右键该列选择「删除」。
• 点击「主页」→ 「关闭并上载」，选择将结果加载到新工作表或指定位置，即可得到仅含有效字符串的合并列。

二、使用动态数组公式（适配Excel 365/2021） #

用TOCOL配合筛选函数一步完成，公式如下：

=TOCOL(IF(ISTEXT(HSTACK(C2:C20,F2:F20,I2:I20)),HSTACK(C2:C20,F2:F20,I2:I20,"")),3)

• 说明：HSTACK将多列合并为一个数组，ISTEXT判断单元格是否为文本字符串，IF把非文本/错误值替换为空，TOCOL将数组转为单列，参数3自动忽略空值，最终输出仅保留有效字符串的结果。
• 替换公式里的C2:C20,F2:F20,I2:I20为你实际的三个目标列区域即可。

三、使用VBA代码（兼容旧版Excel或重复执行场景） #

按Alt+F11打开VBA编辑器，插入新模块后粘贴以下代码：

Sub MergeColumnsKeepText()
    Dim sourceRanges As Variant
    Dim targetCell As Range
    Dim cell As Range
    Dim outputRow As Long
    
    ' 自定义需要合并的三个区域
    sourceRanges = Array(Range("C2:C20"), Range("F2:F20"), Range("I2:I20"))
    ' 自定义结果输出的起始单元格（示例为Sheet1的A1）
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
    outputRow = 0
    
    For Each rng In sourceRanges
        For Each cell In rng
            ' 仅保留无错误的文本值
            If IsText(cell.Value) And Not IsError(cell.Value) Then
                targetCell.Offset(outputRow, 0).Value = cell.Value
                outputRow = outputRow + 1
            End If
        Next cell
    Next rng
End Sub

• 操作：修改代码中的sourceRanges和targetCell为你的实际区域，按F5运行代码即可生成结果。

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