[已解决]求一个批量行求和的vba代码

yslvictor

我vba入门阶段，遇到问题向各位老师请教一个。
今天请教论坛前辈一个vba批量行求和的代码。（函数求和我会）如图：

求同一行C列到J列的和，在对应行的K列显示。
也就是：
K2=SUM(C2:J2)
K3=SUM(C3:J3)
……………………
行数不定，C列到J列只要有数字就在同行K列求和。如果同行C列到J列一个数字也没有，就不计算。
vba批量行求和.rar (3.11 KB, 下载次数: 41)

2013-4-15 21:44 上传

点击文件名下载附件
先谢谢各位论坛前辈!

最佳答案

月排行榜 / 总排行榜

爱疯

2013-4-15 22:31

1. Sub b()
   
2.     Dim r As Integer
   
3.     Dim i As Integer
   
4.     Dim j As Integer
   
5.     Dim s As Double
   
6.    
   
7.     r = Range("b65536").End(xlUp).Row
   
8.     For i = 2 To r
   
9.         s = 0
   
10.         For j = 3 To 10
    
11.             s = s + Cells(i, j)
    
12.         Next j
    
13.         Cells(i, 11) = s
    
14.     Next i
    
15. End Sub

复制代码

还是写上

跳转到最佳答案楼层

爱疯

1. Sub a()
   
2. Range("K2") = "=SUM(C2:J2)"
   
3. Range("K2").AutoFill Range("K2:K27")
   
4. Range("K2:K27") = Range("K2:K27").Value
   
5. End Sub

复制代码

请教：按条件分配数据到各工作表3.rar (11.56 KB, 下载次数: 34)

2013-4-15 22:19 上传

点击文件名下载附件

考虑楼主刚接触，为解决实际问题，才这样，好理解和修改。
如果为学习，开始时用单元格循环好些。

爱疯

1. Sub b()
   
2.     Dim r As Integer
   
3.     Dim i As Integer
   
4.     Dim j As Integer
   
5.     Dim s As Double
   
6.    
   
7.     r = Range("b65536").End(xlUp).Row
   
8.     For i = 2 To r
   
9.         s = 0
   
10.         For j = 3 To 10
    
11.             s = s + Cells(i, j)
    
12.         Next j
    
13.         Cells(i, 11) = s
    
14.     Next i
    
15. End Sub

复制代码

还是写上

yslvictor

多谢二楼论坛老师。问题解决了。