请老师编写程序，把各单位的奖金在下面空白行小计一下并列在H、I、J列处（见H、I、J列

yjh_27

zhjg5961 发表于 2014-4-14 09:59
只要把报来的表格稍微做一点修改就可以用（这样工作中会省很多事），另外还要麻烦老师再加一个清除功能。 ...

参见附件。

VBA万岁

yjh_27 发表于 2014-4-15 20:34
参见附件。

能上传代码测试吗？我的电脑打开附件时代码丢失。

yjh_27

VBA万岁 发表于 2014-4-16 14:49
能上传代码测试吗？我的电脑打开附件时代码丢失。

1. Sub aa()
   
2. R = Range("a" & Rows.Count).End(xlUp).Row
   
3. arr = Range("a1:g" & R)
   
4. 
   
5. For i = 1 To UBound(arr, 1)
   
6.     arr(i, 7) = i
   
7.     If arr(i, 3) = "" Or arr(i, 1) Like "序*" Then
   
8.         arr(i, 4) = 0
   
9.         arr(i, 5) = 0
   
10.         arr(i, 6) = 0
    
11.     End If
    
12. Next
    
13. 
    
14. brr = YjhSort(arr, "0", "1", "c,4;1;3,5;1;3,6;1;3,7;1;7", , , "-1")
    
15. 
    
16. arr = Range("k1:m" & R).ClearContents
    
17. For i = 1 To UBound(brr, 1)
    
18.     Cells(brr(i, 5), 11) = brr(i, 2)
    
19.     Cells(brr(i, 5), 12) = brr(i, 3)
    
20.     Cells(brr(i, 5), 13) = brr(i, 4)
    
21. Next
    
22. End Sub
    

复制代码

多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html

zhjg5961

yjh_27 发表于 2014-4-16 17:51
多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html
...

经测试，老师做的这个程序有两个问题，如下图：

yjh_27

zhjg5961 发表于 2014-4-16 19:55
经测试，老师做的这个程序有两个问题，如下图：

1  是41L附件吗？   我这没有问题
2  0 0 0 结果在输出时 可过滤，这是分组是数据不规则造成的

For i = 1 To UBound(brr, 1)
    if brr(i, 2)+brr(i, 3)+brr(i, 4)>0 then
    Cells(brr(i, 5), 11) = brr(i, 2)
    Cells(brr(i, 5), 12) = brr(i, 3)
    Cells(brr(i, 5), 13) = brr(i, 4)
    endif
Next

zhjg5961

yjh_27 发表于 2014-4-16 20:50
1  是41L附件吗？   我这没有问题
2  0 0 0 结果在输出时 可过滤，这是分组是数据不规则造成的

老师，运行错误情况，
请再编写一个完整程序我测试。

yjh_27

zhjg5961 发表于 2014-4-17 06:41
老师，运行错误情况，
请再编写一个完整程序我测试。

上传出错附件

zhjg5961

yjh_27 发表于 2014-4-17 12:02
上传出错附件

老师：
单位人员信息不便传到网上。

yjh_27

zhjg5961 发表于 2014-4-17 12:16
老师：
单位人员信息不便传到网上。

人员信息做适当屏蔽处理后上传

zhjg5961

yjh_27 发表于 2014-4-17 12:36
人员信息做适当屏蔽处理后上传

数据量太大，信息去掉后你又让我填上星号，太麻烦，
谢谢老师，不编了。