Question

vba，excel，特定列（c）发生合并单元格时触发条件。

vba，excel，特定列（c）发生合并单元格时触发条件。并获得合并单元格的上下限行，对其对应列（a）求和。如，合并c3：c20，同时得出对应的a3：a20区域数值和，写入合并后单元格。求指教

Answer 1

这个问题的难点不在于怎么判断与计算, 最关键的问题是怎么监听到"合并单元格"的事件: 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

追问

如果b列有这样的字符1，1，5，5，5，2，2，6。让其一键根据某一特定列（b）特点合并特定列（c）单元格，并求和特定列（a）相对应的单元格值于合并后单元格。大侠(⁄ ⁄•⁄ω⁄•⁄ ⁄)

追答

听的不是很明白, 最好能截个图说明下.

追问

Answer 2

你先计算c3到c20列的值，然后将列值写入变量 合并单元格再写入变量值，这样即可