求助大神，合并单元格的小计，太难了，帮帮忙！

18994406660 · 发表于 2020-1-31 01:34

microyip · 发表于 2020-1-31 09:23

设置一个总和变量，求和起始行变量，历遍第三列，出现名字时把当前总和变量值填到上一个求和起始行变量的第二列，重置总和变量以及记录当前行数到求和起始行变量，不论是否出现名字，把第一列数值加到总和变量里，

蓝桥玄霜 · 发表于 2020-1-31 09:35

小计的代码：

excel海 · 发表于 2020-1-31 10:36

Sub 合并小计()
Dim i, n
Dim r As Range, rs As Range
With Sheet1
n = .Cells(Rows.Count, 1).End(3).Row
For i = 3 To n
Set r = .Cells(i, 2)
Set rs = r.MergeArea.Cells(1, 1).Offset(0, -1).Resize(r.MergeArea.Cells.Count)
r.MergeArea = Application.Sum(rs)
i = i + r.MergeArea.Cells.Count - 1
Next
End With
End Sub

复制代码

hcm19522 · 发表于 2020-1-31 10:44

B3合併格公式=SUMPRODUCT((LOOKUP(ROW(C$3:C$161),ROW(C$3:C$161)/(C$3:C$161<>""),C$3:C$161)=LOOKUP(1,0/(C$3:C3<>""),C$3:C3))*A$3:A$161)

合併格公式 :公式下B3-->圈選H3:H23(合併格)-->游標放公式尾-->ctrl+enter二鍵一起按

micch · 发表于 2020-1-31 10:44

本帖最后由 micch 于 2020-1-31 10:53 编辑

手工操作比代码简单多了，为什么一定要考虑最后一个单元格呢，直接选一个足够大的单元格就行了

cyberoe · 发表于 2020-1-31 11:08

学习了

jjmysjg · 发表于 2020-1-31 11:15

以前都是逐个求和，这个VBA、函数都有了。！

18994406660 · 发表于 2020-1-31 12:06

micch 发表于 2020-1-31 10:44
手工操作比代码简单多了，为什么一定要考虑最后一个单元格呢，直接选一个足够大的单元格就行了

这个公式我会的，就是想探索学习一下vba的方法。

18994406660 · 发表于 2020-1-31 12:07

hcm19522 发表于 2020-1-31 10:44
B3合併格公式=SUMPRODUCT((LOOKUP(ROW(C$3:C$161),ROW(C$3:C$161)/(C$3:C$161""),C$3:C$161)=LOOKUP(1,0/(C ...

这个公式和思路好复杂，楼下micch的公式比较简单

		自动登录	找回密码
密码			免费注册

[求助] 求助大神，合并单元格的小计，太难了，帮帮忙！

评分

评分

评分

评分