如何在Excel中循环合并两单元格数据并生成带编号换行内容

一、Excel 365/2021 一步公式法 #

直接用数组公式完成所有操作，无需拆分列：
假设目标数据在A2和B2单元格，在C2输入以下公式后回车（Excel 365会自动处理数组，无需按组合键）：
=TEXTJOIN(CHAR(10),,SEQUENCE(COUNTA(TEXTSPLIT(A2,",")))&"."&TEXTSPLIT(A2,",")&"-"&TEXTSPLIT(B2,","))
输入完成后，记得开启单元格自动换行（右键单元格→设置单元格格式→对齐→勾选「自动换行」）。

各函数作用说明：

• TEXTSPLIT(A2,",")：将A列的逗号分隔内容拆分为独立条目数组
• SEQUENCE(...)：根据条目数量生成对应编号（1、2、3……）
• &"."&...&"-"&...：将编号、A列条目、B列条目拼接为单个带格式的项
• TEXTJOIN(CHAR(10),,...)：用换行符（CHAR(10)）将所有拼接项合并为一段内容

如果需要兼容A、B列条目数量不一致的情况，可改用以下公式（取两者条目数量的最小值配对）：
=TEXTJOIN(CHAR(10),,SEQUENCE(MIN(COUNTA(TEXTSPLIT(A2,",")),COUNTA(TEXTSPLIT(B2,","))))&"."&TEXTSPLIT(A2,",")&"-"&TEXTSPLIT(B2,","))

二、旧版Excel（无TEXTSPLIT）的替代方案 #

若使用2019及更早版本，可通过辅助列实现：

1. 在D2输入公式=TRIM(MID(SUBSTITUTE($A2,",",REPT(" ",99)),(ROW(A1)-1)*99+1,99))，下拉至出现空值，提取A列所有独立条目
2. 在E2输入公式=TRIM(MID(SUBSTITUTE($B2,",",REPT(" ",99)),(ROW(A1)-1)*99+1,99))，下拉提取B列所有独立条目
3. 在F2输入公式=ROW(A1)&"."&D2&"-"&E2，下拉生成带编号的配对项
4. 最后在C2输入=TEXTJOIN(CHAR(10),,F2:F[对应最后一行行号])，同样开启自动换行

三、VBA批量处理（适合大量数据） #

数据量较大时，可通过宏一键批量生成：
按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub GeneratePairedList()
    Dim rng As Range, cell As Range
    Dim arrA, arrB, resultArr() As String
    Dim i As Integer, maxCount As Integer
    
    Set rng = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row) '假设数据从A2行开始
    
    For Each cell In rng
        arrA = Split(Trim(cell.Value), ",")
        arrB = Split(Trim(cell.Offset(0, 1).Value), ",")
        maxCount = IIf(UBound(arrA) > UBound(arrB), UBound(arrB), UBound(arrA))
        
        ReDim resultArr(0 To maxCount)
        For i = 0 To maxCount
            resultArr(i) = (i + 1) & "." & Trim(arrA(i)) & "-" & Trim(arrB(i))
        Next i
        
        cell.Offset(0, 2).Value = Join(resultArr, vbCrLf)
        cell.Offset(0, 2).WrapText = True '自动开启换行
    Next cell
End Sub

返回Excel界面，按Alt+F8运行该宏即可批量生成目标内容。

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