求助 如何对合并过的单元格进行批量求和

橒♂蝣

spc-tj 发表于 2023-5-19 16:04
选择求和区域d2:d21,输入公式 =sum(c2:c6),按Ctrl+回车键，就实现了批量求和效果。

请教我的EXCEL怎么不行呢

spc-tj

橒♂蝣 发表于 2023-5-21 17:05
请教我的EXCEL怎么不行呢

我之前发的这个太简略了，只适用于相同行数合并的情况，请参考5楼版主的公式。

niko88819

f8b1987 发表于 2023-5-19 16:02
把单元格刷成格式化的吧，用插件撤销合并，再智能合并。
这样可以支持简单公式对合并单元格求和

全英文作业系统跟OFFICE下,凡是代码中含有任何一个中文字在内,打开的附件代码会自动遗失,老师能贴出代码吗?先感谢您

niko88819

用鼠标右键选择D2:D21 , CTRL + G  \选择特殊\空白\在公式输入窗 输入此公式 =SUM($C2:$C$21)-SUM($D3:$D$21)结束必须用键盘的组合键 CTRL + ENTER

VBA CODE

1. Sub nikomergesum()
   
2.     Dim mergeRange As Range
   
3.     Dim cell As Range
   
4.     Dim mergeSize As Integer
   
5.     Dim quantity As Integer
   
6.     Dim mergeDict As Object
   
7.     Set mergeDict = CreateObject("Scripting.Dictionary")
   
8.     For Each cell In Range("A2:A65536").SpecialCells(xlCellTypeConstants)
   
9.         If cell.MergeCells Then
   
10.             Set mergeRange = cell.mergeArea
    
11.             mergeSize = mergeRange.Cells.Count
    
12.             quantity = cell.Offset(0, 2).Value
    
13.             If mergeDict.Exists(mergeRange.Address) Then
    
14.                 mergeDict(mergeRange.Address) = mergeDict(mergeRange.Address) + quantity
    
15.             Else
    
16.                 mergeDict.Add mergeRange.Address, quantity
    
17.             End If
    
18.         End If
    
19.     Next cell
    
20.     Dim key As Variant
    
21.     For Each key In mergeDict.Keys
    
22.         Set mergeRange = Range(key)
    
23.         mergeRange.Offset(0, 3).Value = mergeDict(key)
    
24.     Next key
    
25. End Sub

复制代码

Away.

nqwl

=SUM(C2:$C$21)-SUM(D3:$D$22)下拉