2000元课程
免费学7天
函数+VBA
在Excel日常工作中，经常会遇到需要对合并单元格区域进行求和的情况。今天就通过一个实际案例，分享如何使用VBA来优雅地解决这个问题。
一、问题场景
如图所示，我们有一份销售数据表：
第一列是销售员姓名（合并单元格）
第二列是销售额明细
第三列需要按人计算销售总额
二、VBA代码实现
Sub CalculateMergedCellSum()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim startRow As Long
Dim endRow As Long
Dim sumRange As Range
' 设置工作表
Set ws = ActiveSheet
' 遍历第一列的合并单元格
For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
' 检查是否是合并单元格的第一个单元格
If cell.MergeCells Then
If cell.MergeArea.Item(1).Address = cell.Address Then
' 获取合并区域的起始和结束行
startRow = cell.MergeArea.Row
endRow = startRow + cell.MergeArea.Rows.Count - 1
' 设置对应的B列求和范围
Set sumRange = ws.Range("B" & startRow & ":B" & endRow)
' 在C列对应的合并单元格中写入求和结果
ws.Range("C" & startRow).Value = Application.Sum(sumRange)
' 合并C列对应行
ws.Range("C" & startRow & ":C" & endRow).Merge
End If
End If
Next cell
End Sub
三、代码详解
3.1 关键变量说明
ws：当前工作表对象cell：遍历用的单元格对象startRow：当前合并区域的起始行endRow：当前合并区域的结束行sumRange：需要求和的范围
3.2 核心逻辑
遍历第一列
For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
动态获取数据范围，避免固定行数
判断合并单元格
If cell.MergeCells Then
If cell.MergeArea.Item(1).Address = cell.Address Then
只处理合并区域的第一个单元格
避免重复计算
获取行范围
startRow = cell.MergeArea.Row
endRow = startRow + cell.MergeArea.Rows.Count - 1
精确定位合并区域的起止行
计算求和
Set sumRange = ws.Range("B" & startRow & ":B" & endRow)
ws.Range("C" & startRow).Value = Application.Sum(sumRange)
使用Application.Sum确保准确计算
四、使用方法
打开Excel，按Alt + F11进入VBA编辑器
插入新模块（Insert > Module）
粘贴上述代码
返回Excel，按Alt + F8运行宏
五、实用技巧
错误处理
On Error Resume Next
' 代码主体
On Error GoTo 0
可以添加错误处理来提高代码稳健性
性能优化
Application.ScreenUpdating = False
' 代码主体
Application.ScreenUpdating = True
关闭屏幕刷新可以提升运行速度
六、扩展应用
这个方法还可以扩展用于：
多列数据的汇总计算
带条件的求和
其他聚合函数（平均值、最大值等）
七、注意事项
运行前备份数据
确保合并单元格格式正确
注意数据类型的一致性
关注我们，获取更多Excel VBA技术分享！
买课程可进永久答疑群，课程可免费试学点击下方链接即可
