[已解决]表1和表2怎么求和计数？

hahada

表1和表2怎么求和计数，两个合在一起怎么写？
附件： 附件.rar (2.43 KB, 下载次数: 14)

2013-5-23 00:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

1032446692

2013-5-23 00:44

以上是两个表一起求和，结果放在1表中。以下是分别求和：

1. Sub 统计2()
   
2. Dim k, a, i, arr, cs, hj
   
3. For k = 1 To 2
   
4. a = Sheets(k).Cells(60000, 1).End(xlUp).Row
   
5. arr = Sheets(k).Range("A5:S" & a)
   
6. For i = 1 To a - 4
   
7. cs = cs + 1
   
8. hj = hj + arr(i, 8)
   
9. Next i
   
10. Sheets(k).[a2] = cs
    
11. Sheets(k).[b2] = hj
    
12. cs = 0: hj = 0
    
13. Next k
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

1032446692

1. Sub 统计1()
   
2.     Dim k, a, i, arr, cs, hj
   
3.     For k = 1 To 2
   
4.     a = Sheets(k).Cells(60000, 1).End(xlUp).Row
   
5.     arr = Sheets(k).Range("A5:S" & a)
   
6.         For i = 1 To a - 4
   
7.             cs = cs + 1
   
8.             hj = hj + arr(i, 8)
   
9.         Next i
   
10.     Next k
    
11.     Sheets(1).[a2] = cs
    
12.     Sheets(1).[b2] = hj
    
13. End Sub

复制代码

1032446692

以上是两个表一起求和，结果放在1表中。以下是分别求和：

1. Sub 统计2()
   
2. Dim k, a, i, arr, cs, hj
   
3. For k = 1 To 2
   
4. a = Sheets(k).Cells(60000, 1).End(xlUp).Row
   
5. arr = Sheets(k).Range("A5:S" & a)
   
6. For i = 1 To a - 4
   
7. cs = cs + 1
   
8. hj = hj + arr(i, 8)
   
9. Next i
   
10. Sheets(k).[a2] = cs
    
11. Sheets(k).[b2] = hj
    
12. cs = 0: hj = 0
    
13. Next k
    
14. End Sub
    

复制代码

hahada

1032446692 发表于 2013-5-23 00:44
以上是两个表一起求和，结果放在1表中。以下是分别求和：

这句cs = 0: hj = 0是什么意思，不写有没有关系，对计数求和有没有影响？

1032446692

这是两行代码
cs = 0
hj = 0
把这两个值初始化，不写当然有影响。你可以屏蔽掉，试试结果

hahada

1032446692 发表于 2013-5-23 09:41
这是两行代码
cs = 0
hj = 0

是不是一个工作表就不用写cs = 0: hj = 0?

1032446692

嗯