[已解决]如何识别空行不执行求和

shixyi37

如下宏，是求D列到Q列的和，结果在C列显示。计算速度很快，但它不管是否空行都执行计算，怎么才能使其不计算空行呢。（即D列到Q列都没有数值时不计算）
Sub 列求和()Range("C3") = "=SUM(D3:Q3)"
Range("C3").AutoFill Range("C3:C65536")
Range("C3:C65536") = Range("C3:C65536").Value
End Sub

还有没有比这个宏计算速度高效的吗（也不要计算空行），因为需要计算的行数很多很多，但具体到哪一行没有数值也不确定
列求和.zip (484.64 KB, 下载次数: 18)

2015-3-6 23:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-7 07:03

1. Sub 列求和()
   
2. Range("C3") = "=SUM(D3:Q3)"
   
3. n = Range("d65536").End(xlUp).Row
   
4. Range("C3").AutoFill Range("C3:c" & n)
   
5. Range("C3:c" & n) = Range("C3:c" & n).Value
   
6. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub 列求和()
   
2. Range("C3") = "=SUM(D3:Q3)"
   
3. n = Range("d65536").End(xlUp).Row
   
4. Range("C3").AutoFill Range("C3:c" & n)
   
5. Range("C3:c" & n) = Range("C3:c" & n).Value
   
6. End Sub

复制代码