作者：乔山办公网日期：
返回目录：excel表格制作
不是不响应，只是某些对合并单元格的引用无效而终止了代码。
有些引用只能针对单个单元格，对合并单元格就出错了，这些地方引用 target 时改成 target(1) 就能正常工作了。
这个问题的难点不在于怎么判断与计算, 最关键的问题是怎么监听到"合并单元格e79fa5e98193e78988e69d83333"的事件: Excel VBA无法得知是否进行了合并单元格. 我测试了下对于空单元格执行合并操作时无法触发worksheet的change及SelectionChange事件. 希望有人能给出方法.
不过我做了另外一个效果, 就是合并时无法求和,但合并后再选择合并单元格就可以按要求求和 .
右击工作表标签→
查看代码, 复制以下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.MergeCells And Not Intersect(Target, Columns(3)) Is Nothing Then
Dim i As Long, j As Long, rng As Range
i = Target.Cells(1, 1).Row
j = i + Target.Rows.Count - 1
Set rng = Range(Cells(i, 1), Cells(j, 1))
Target = WorksheetFunction.Sum(rng)
End If
End Sub