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

18994406660

microyip 发表于 2020-1-31 09:23
设置一个总和变量，求和起始行变量，历遍第三列，出现名字时把当前总和变量值填到上一个求和起始行变量的第 ...

谢谢！受教了

1055751654

renkangjizhen 发表于 2020-1-31 14:08
还是蓝老师的代码比较好理解

我感觉4楼比较好理解，把OFFSET改下，
With Sheet1
        n = .Cells(Rows.Count, 1).End(3).Row
        For i = 3 To n
            Set r = .Cells(i, 2).MergeArea
            Set rs = .Cells(i, 1).Resize(r.Cells.Count) '第1列扩展单元格的个数
            r = Application.Sum(rs) '求和
          i = i + r.Cells.Count - 1 '个数定位行
        Next
    End With

jjmysjg

18994406660 发表于 2020-1-31 13:59
如果是同样的表格。就是根据把原先的第1列移为第15列，原先第2列移为16列。原先是根据第1列计算第2列，现 ...

Sub lqxs16()
Dim Arr, i&, m%, xj, j%
Sheet1.Activate                              
Arr = [O1].CurrentRegion                     
For i = 3 To UBound(Arr)                     
    If Cells(i, 16).MergeCells Then  
        m = Cells(i, 16).MergeArea.Rows.Count
        xj = 0
        For j = i To i + m - 1
            xj = xj + Arr(j, 1)
        Next
        Cells(i, 16) = xj
        i = i + m - 1
    Else
        Cells(i, 16) = Arr(i, 1)               
    End If
Next
End Sub

micch

18994406660 发表于 2020-1-31 13:59
如果是同样的表格。就是根据把原先的第1列移为第15列，原先第2列移为16列。原先是根据第1列计算第2列，现 ...

原来的数据有2列，根据C列的值来判断合并单元格区域位置，如果只剩两列，这个代码就不能改了，只能重写。

蓝老师的代码适合学习，我也是初学，谈不上指教

zpy2

18994406660 发表于 2020-1-31 13:59
如果是同样的表格。就是根据把原先的第1列移为第15列，原先第2列移为16列。原先是根据第1列计算第2列，现 ...

数据结构和代码是一对矛盾，建议保存固定的数据表(数据库)，把展示用另一种视图展示

18994406660

micch 发表于 2020-1-31 17:52
原来的数据有2列，根据C列的值来判断合并单元格区域位置，如果只剩两列，这个代码就不能改了，只能重写。 ...

从o列到s列。

18994406660

zpy2 发表于 2020-1-31 18:04
数据结构和代码是一对矛盾，建议保存固定的数据表(数据库)，把展示用另一种视图展示

好的。谢谢

jjmysjg

帖子回复到现在还没审核通过

18994406660

jjmysjg 发表于 2020-1-31 19:17
帖子回复到现在还没审核通过

非常感谢，为了学习，我等。

micch

18994406660 发表于 2020-1-31 19:08
从o列到s列。

原来的代码，第一句就是把数据区域存入数组，最后一句是数组再输出到数据区域。

所以只需要改第一行和最后一行代码就行。假设数据在O:Q列。

arr=range([Q1],[O9999].end(3))

这种代码论坛很多，你看你习惯用什么方法就用什么方法。就是定位区域