合并单元格计数求和

lss001 · 发表于 2024-10-20 06:57

SCWYZJ 发表于 2024-10-17 11:00
好的，谢谢老师指点

今天安装Wps测试了一下
测试通过代码见楼上

Qs18 · 发表于 2024-10-20 09:32

Function Mergesum(cell As Range, Optional x = 0) '默认0为合并单元格对应左边相对应的单元格求和，第二参数为1为计数
If x = 0 Then
If cell.MergeCells Then '判断是否为合并单元格
sm = Application.WorksheetFunction.Sum(cell.Offset(0, -1).Resize(cell.mergeArea.Count))
Else
sm = cell.Offset(0, -1).Value
End If
Mergesum = sm
ElseIf x = 1 Then
If cell.MergeCells Then
sm = cell.mergeArea.Count
Else
sm = 1
End If
Mergesum = sm
End If
End Function

复制代码

Qs18 · 发表于 2024-10-20 09:34

试试...........

Qs18 · 发表于 2024-10-20 09:36

试试..........

Qs18 · 发表于 2024-10-20 09:37

试试...........

准提部林 · 发表于 2024-10-20 10:46

針對合併單元格的計算自訂函數..by.准提部林

Xl0000292.rar (12.55 KB, 下载次数: 6)

代碼只有 3 行//
可以處理//
1.合計值 2.最大或最小值 3.平均值....
或使用countif...更多針對單元格的計算

GG函数 · 发表于 2024-10-21 17:33

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

[求助] 合并单元格计数求和