Excel中如何对横向单元格区域的各位数字求和并批量生成结果

当然可以用VBA宏搞定这个需求！手动处理从2017年开始的这么多行数据确实太折磨人了，我给你写一套实用的宏代码，一步到位解决问题👇

我们要完成两个核心任务：一是对指定横向单元格的各位数字分别求和，二是把这些结果汇总求和，并且两类结果都输出到对应数据行的下方。

1. 先写一个通用的数字求和函数 #

这个函数专门用来计算单个单元格内所有数字的总和，比你原来的SUMPRODUCT公式更灵活，还能忽略单元格里的非数字字符（如果有的话）：

Function SumDigits(cell As Range) As Integer
    Dim cellValue As String
    Dim i As Integer
    Dim total As Integer
    
    cellValue = CStr(cell.Value)
    total = 0
    
    For i = 1 To Len(cellValue)
        If IsNumeric(Mid(cellValue, i, 1)) Then
            total = total + CInt(Mid(cellValue, i, 1))
        End If
    Next i
    
    SumDigits = total
End Function

2. 主宏：批量处理每行数据 #

这个宏会自动遍历所有数据行，计算每个目标单元格的数字和，再汇总总计，最后把结果输出到对应行的下方：

Sub CalculateRowDigitSums()
    Dim ws As Worksheet
    Dim currentRow As Integer
    Dim lastRow As Integer
    Dim targetColumns As Variant
    Dim totalSum As Integer
    Dim i As Integer
    Dim resultStartCol As Integer
    
    ' --------------------------
    ' 这里可以根据你的表格自定义设置
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 改成你的工作表名称
    targetColumns = Array("B", "C", "D", "E", "G") ' 要处理的横向单元格列标识
    resultStartCol = 2 ' 单个求和结果从哪一列开始输出（2=B列）
    currentRow = 2 ' 数据起始行（假设第1行是表头）
    ' --------------------------
    
    ' 自动找到最后一行有数据的行（以A列为例，可根据实际调整）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每一行数据
    While currentRow <= lastRow
        totalSum = 0
        Dim outputCol As Integer
        outputCol = resultStartCol
        
        ' 计算每个目标单元格的数字和并输出
        For i = 0 To UBound(targetColumns)
            Dim cellSum As Integer
            cellSum = SumDigits(ws.Range(targetColumns(i) & currentRow))
            ws.Cells(currentRow + 1, outputCol).Value = cellSum
            totalSum = totalSum + cellSum
            outputCol = outputCol + 1
        Next i
        
        ' 输出总计和标识
        ws.Cells(currentRow + 1, outputCol).Value = totalSum
        ws.Cells(currentRow + 1, outputCol).Offset(0, -1).Value = "总计"
        
        ' 跳转到下一行数据（因为结果占了一行）
        currentRow = currentRow + 2
    Wend
    
    MsgBox "所有行处理完成！"
End Sub

3. 怎么使用这个宏？ #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里，右键点击你的工作簿名称，选择「插入」→「模块」
3. 把上面两段代码粘贴到新建的模块里
4. 根据你的表格情况，修改宏里的自定义设置（工作表名、目标列、起始行这些）
5. 回到Excel界面，按下Alt + F8，选择CalculateRowDigitSums，点击「执行」就行啦！

自定义小提示 #

• 如果要处理的列不是B/C/D/E/G，直接修改targetColumns数组里的列标识，比如改成Array("C", "F", "H")
• 要是想把结果输出到别的列，调整resultStartCol的数值（比如3就是从C列开始输出）
• 如果你的数据行不是从第2行开始，改一下currentRow的初始值就行

运行之后，每行数据的下一行会依次显示每个目标单元格的数字求和结果，最后是这些结果的总计，完全符合你的要求！

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