如何在Excel中按原列表顺序合并含列表的单元格？

针对你需要合并两个单元格内的换行列表并保持交叉顺序（而非首尾拼接）的需求，提供以下几种解决方案：

方法1：Excel 365/2021 动态数组公式 #

假设待合并的列表分别在A1和B1单元格（项以换行Alt+Enter分隔），使用以下公式：

=TEXTJOIN(CHAR(10),TRUE,TOCOL(HSTACK(TEXTSPLIT(A1,CHAR(10)),TEXTSPLIT(B1,CHAR(10))),2))

操作说明：

• 公式会自动将两个单元格的内容按换行拆分，横向配对后转为纵向序列，最后用换行连接
• 输入公式后，给目标单元格设置自动换行格式（右键单元格→设置单元格格式→对齐→勾选自动换行）
• 若两个列表长度不一致，短列表的空缺部分会被自动忽略，不产生空行

方法2：旧版Excel（无动态数组）数组公式 #

如果使用不支持动态数组的旧版Excel，可使用数组公式（输入后按Ctrl+Shift+Enter确认生效）：
假设列表最大项数为5（可根据实际修改），公式如下：

=TEXTJOIN(CHAR(10),TRUE,IFERROR(INDEX(TEXTSPLIT(A1,CHAR(10)),ROUNDUP(ROW(INDIRECT("1:10"))/2,0)),""),IFERROR(INDEX(TEXTSPLIT(B1,CHAR(10)),INT(ROW(INDIRECT("1:10"))/2)+1),""))

注意：公式中的10是2*最大项数，比如最大项数是5就写10，以此类推。

方法3：VBA宏自定义函数 #

如果公式操作繁琐，可通过VBA实现自定义函数：

1. 按Alt+F11打开VBA编辑器
2. 点击「插入」→「模块」，粘贴以下代码：

Function MergeCrossLists(cellA As Range, cellB As Range) As String
    Dim arrA As Variant, arrB As Variant
    Dim maxLen As Integer, i As Integer
    Dim result As String
    
    arrA = Split(cellA.Value, Chr(10))
    arrB = Split(cellB.Value, Chr(10))
    
    maxLen = IIf(UBound(arrA) > UBound(arrB), UBound(arrA), UBound(arrB))
    
    For i = 0 To maxLen
        If i <= UBound(arrA) Then result = result & arrA(i) & Chr(10)
        If i <= UBound(arrB) Then result = result & arrB(i) & Chr(10)
    Next i
    
    MergeCrossLists = Left(result, Len(result) - 1)
End Function

3. 返回Excel，在目标单元格输入=MergeCrossLists(A1,B1)，设置自动换行即可

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