求助一个计算的自定义函数

我是小黑屋

请问下可以编写个自定义函数来实现，查找对应部门对应列的合计数吗，结果如合计表中所示，自定义函数参数一填写对应部门，参数二填写要合计对应的列。如明细表 中看到的，部门会出现不止一次，假如现在要计算工艺部的D列的合计，那么对应需要计算D列的行范围是B8：B10。  其他列也是这样类推
新建 Microsoft Excel 工作表1.zip (16.03 KB, 下载次数: 4)

2023-4-11 16:01 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("明细表")
   
7.         r = .Cells(.Rows.Count, 3).End(xlUp).Row
   
8.         arr = .Range("a6:h" & r)
   
9.     End With
   
10.     m = 0
    
11.     For i = 1 To UBound(arr)
    
12.         If Len(arr(i, 2)) <> 0 Then
    
13.             bm = arr(i, 2)
    
14.         End If
    
15.         If Not d.exists(bm) Then
    
16.             m = m + 1
    
17.             ReDim brr(1 To 7)
    
18.             brr(1) = m
    
19.             brr(2) = bm
    
20.         Else
    
21.             brr = d(bm)
    
22.         End If
    
23.         For j = 4 To UBound(arr, 2)
    
24.             brr(j - 1) = brr(j - 1) + arr(i, j)
    
25.         Next
    
26.         d(bm) = brr
    
27.     Next
    
28.     With Worksheets("合计表")
    
29.         .UsedRange.Offset(5, 0).Clear
    
30.         With .Range("a6").Resize(d.Count, UBound(brr))
    
31.             .Value = Application.Transpose(Application.Transpose(d.items))
    
32.             .Borders.LineStyle = xlContinuous
    
33.         End With
    
34.         .Rows(6).Resize(d.Count).RowHeight = 20
    
35.         With .UsedRange
    
36.             .HorizontalAlignment = xlCenter
    
37.             .VerticalAlignment = xlCenter
    
38.         End With
    
39.         
    
40.     End With
    
41. End Sub
    

复制代码

chxw68

详见附件。

我是小黑屋

chxw68 发表于 2023-4-11 19:14
详见附件。

老师，它这个可以使用自定义函数的方式实现吗。因为我原数据中列数有一些是不需要汇总的，想通过自定义函数的方式去指定获取哪个部门的哪一列汇总

chxw68

我是小黑屋 发表于 2023-4-12 10:10
老师，它这个可以使用自定义函数的方式实现吗。因为我原数据中列数有一些是不需要汇总的，想通过自定义函 ...

自定义函数有很多局限性，不一定适用。

我是小黑屋

chxw68 发表于 2023-4-12 10:53
自定义函数有很多局限性，不一定适用。

好的，多谢老师帮忙