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

18994406660

蓝桥玄霜 发表于 2020-1-31 09:35
小计的代码：

1. Sub 合并小计1()
   
2.     Dim arr, i&, m%, xj, j%
   
3.     arr = Range("a1").CurrentRegion
   
4.     For i = 3 To UBound(arr)
   
5.         If Cells(i, 3).MergeCells Then
   
6.             m = Cells(i, 3).MergeArea.Rows.Count
   
7.             xj = 0
   
8.             For j = i To i + m - 1
   
9.                 xj = xj + arr(j, 1)
   
10.             Next
    
11.             Cells(i, 2) = xj
    
12.             i = i + m - 1
    
13.         Else
    
14.             Cells(i, 2) = arr(i, 1)
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码

蓝老师，又要麻烦您了。
根据您的代码，我想自已研究学习，修改后计算（新附件表格）P列的合并单元格数据。
无奈我刚学VBA，改来该去都不能运行得到正确的结果。蓝老师，能否帮忙再看一下？
万分感谢！

18994406660

micch 发表于 2020-1-31 19:53
原来的代码，第一句就是把数据区域存入数组，最后一句是数组再输出到数据区域。

所以只需要改第一行和 ...

可以了，可以了，非常感谢啊！