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

zhjg5961

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

不规范的东东可能不好编写，但是工作中就是这样的表格，我请求了很多老师，大多数老师都不愿意编写，难呀！

把各单位的奖金小计一下.rar (18.63 KB, 下载次数: 22)

2014-4-10 20:50 上传

点击文件名下载附件

zhjg5961

不规范的东东可能不好编写，但是工作中就是这样的表格，我请求了很多老师，大多数老师都不愿意编写，难呀！

wudixin96

黄色部分是什么意思？？？

zhjg5961

wudixin96 发表于 2014-4-10 21:07
黄色部分是什么意思？？？

老师：
黄色部分就是一个单位的奖金汇总后放在的位置。

zhjg5961

wudixin96 发表于 2014-4-10 21:07
黄色部分是什么意思？？？

黄色部分说明（见附件）（就是合计数原来的位置）。

【黄色部分说明】把各单位的奖金小计一下.rar (18.48 KB, 下载次数: 16)

2014-4-10 21:27 上传

点击文件名下载附件

chxw68

zhjg5961 发表于 2014-4-10 21:20
老师：
黄色部分就是一个单位的奖金汇总后放在的位置。

楼主的表格太不规范了，很难判断该在什么地方进行合计。

zhjg5961

wudixin96 发表于 2014-4-10 21:07
黄色部分是什么意思？？？

zhjg5961

chxw68 发表于 2014-4-10 21:30
楼主的表格太不规范了，很难判断该在什么地方进行合计。

老师：
基层单位报的奖金表各种样式都有，要求他们也没有用，所有还是想请老师想想办法在这样不规范的表格下怎么实现，麻烦老师了。
我想可以以A列为突破口，A列没有字的下面就是合计位置。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr(1 To 3)
   
4.   aa = Application.CountA(Range("a2:g2"))
   
5.   With Worksheets("2想要的合计")
   
6.     r = .UsedRange.Find(what:="*", lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
   
7.     i = 6
   
8.     Do While i <= r
   
9.       For j = 1 To 3
   
10.         brr(j) = 0
    
11.       Next
    
12.       Do Until Application.CountA(.Cells(i, 1).Resize(1, 7)) = 0
    
13.         If IsNumeric(.Cells(i, 1)) And Len(.Cells(i, 1)) <> 0 Then
    
14.           For j = 1 To 3
    
15.             brr(j) = brr(j) + .Cells(i, j + 3)
    
16.           Next
    
17.         End If
    
18.         i = i + 1
    
19.       Loop
    
20.       .Cells(i, "h").Resize(1, 3) = brr
    
21.       Do Until .Cells(i, 1) = 1
    
22.         i = i + 1
    
23.         If i > r Then Exit Do
    
24.       Loop
    
25.     Loop
    
26.   End With
    
27.   
    
28. End Sub
    

复制代码

chxw68

勉强写出来了，请楼主测试。