合并单元格计数求和

SCWYZJ

求助:工作中经常遇到合并单元格，统计麻烦，试着自己自定义一个函数来方便统计，可是网络了几种代码都不行，（见附件），麻烦老师们看看，问题出在哪，如何修改。可以的话帮忙改下吧，谢谢

z865593849

z865593849

1. Sub a()
   
2. Set targetCell = [b9999].End(xlUp).Offset(0, 1)
   
3. Do While targetCell <> "结果"
   
4.     startRow = targetCell.MergeArea.Row
   
5.     endRow = startRow + targetCell.MergeArea.Rows.Count - 1
   
6.     s = WorksheetFunction.Sum(Range("b" & startRow & ":b" & endRow))
   
7.     targetCell.Select
   
8.     Selection.Value = s
   
9.     Set targetCell = Selection.Offset(-1, 0)
   
10.     Debug.Print s & startRow & "+" & endRow
    
11. 
    
12. Loop
    
13. 
    
14. 
    
15. End Sub

复制代码

SCWYZJ

z865593849 发表于 2024-10-16 16:53

老师，我要的是自定义函数，统计位置大小不固定，想正常函数那样灵活运用。函数结构文件中已说明。可否麻烦再看看。谢谢

lss001

SCWYZJ 发表于 2024-10-16 18:17
老师，我要的是自定义函数，统计位置大小不固定，想正常函数那样灵活运用。函数结构文件中已说明。可否麻 ...

参考一下附件

SCWYZJ

lss001 发表于 2024-10-16 18:21
参考一下附件

老师：我的试过怎么都不对呀，还有输入完函数，可不可以不需要按CTIRL+ENTER,

lss001

SCWYZJ 发表于 2024-10-16 19:21
老师：我的试过怎么都不对呀，还有输入完函数，可不可以不需要按CTIRL+ENTER,

Ctrl+Enter是合并单元格
输入公式快捷方法

如果是结果不对
可能是版本低
低版本输入
选中c3:c16
在公式编辑框输入
=CustomStat(B$3:B$16,1)
按Ctrl+Enter结束

SCWYZJ

lss001 发表于 2024-10-16 20:12
Ctrl+Enter是合并单元格
输入公式快捷方法

老师，我试了还是不行。我用的wps2024,您用的什么版本

lss001

Function CustomStat(ByVal Rng As Range, _
    ByVal mode As Integer) As Variant
   
    Dim r&, r1&, c$, c1$, n$, xVal&
    Dim rn As Range, rg As Range
    c = Split(Rng.Address, "$")(1) '数据列号
    n = Application.Caller.Address '公式地址
    c1 = Split(n, "$")(1) '公式列号
    r = Split(n, "$")(2) * 1 '公式行号
    r1 = Cells(r, c1).MergeArea.Count '合并个数
   
    xVal = 0
    For Each rg In Range(Cells(r, c), Cells(r + r1 - 1, c))
         If mode = 1 Then '判断模式
             xVal = xVal + rg.Value
         Else
             xVal = r1
         End If
    Next
    CustomStat = xVal
End Function

SCWYZJ

好的，谢谢老师指点