如何实现相邻列连续减法并将结果以逗号分隔合并至单元格

方法1：Excel公式（适合Excel 365/2021及以上版本） #

直接在B2单元格输入以下公式，下拉填充即可：
=TEXTJOIN(", ", TRUE, IF(C2:X2<>"", C2:X2-DROP(C2:X2,1), ""))

公式说明： #

• DROP(C2:X2,1)：将C2到X2的数组去掉第一个元素，得到D2到X2的数组
• C2:X2-DROP(C2:X2,1)：自动计算C-D、D-E……的差值
• IF(...)：过滤空列对应的无效差值
• TEXTJOIN(", ", TRUE, ...)：把所有有效差值用逗号加空格串联，自动忽略空值

如果是旧版Excel（无DROP/TEXTJOIN函数），用以下数组公式（输入后按Ctrl+Shift+Enter确认，再下拉）：
=TEXTJOIN(", ", TRUE, IF(OFFSET(C2,0,0,1,COLUMNS(C2:X2)-1)<>"", OFFSET(C2,0,0,1,COLUMNS(C2:X2)-1)-OFFSET(C2,0,1,1,COLUMNS(C2:X2)-1), ""))

方法2：VBA宏（适合大数据量，运行更高效） #

数据量较大时公式下拉易卡顿，建议用VBA批量处理：

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

Sub CalculateDateDifferences()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim diffStr As String
    
    Set ws = ActiveSheet ' 可改为指定工作表，比如Sheets("你的表名")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 以A列（Product ID）为准取最后一行
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' 取表头最后一列
    
    For i = 2 To lastRow ' 从第二行数据开始循环
        diffStr = ""
        ' 从C列（第3列）循环到倒数第二列
        For j = 3 To lastCol - 1
            ' 仅当当前列和下一列都有值时计算差值
            If ws.Cells(i, j).Value <> "" And ws.Cells(i, j + 1).Value <> "" Then
                diffStr = IIf(diffStr = "", "", diffStr & ", ") & (ws.Cells(i, j).Value - ws.Cells(i, j + 1).Value)
            End If
        Next j
        ws.Cells(i, 2).Value = diffStr ' 把结果写入B列
    Next i
End Sub

3. 回到Excel，按Alt+F8选择CalculateDateDifferences执行即可

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