VBA求每列的和

Sub 求和族好喽埋穗迹()

Dim i%

for i = 1 to 4

Range("A62").Offset(0, i) = Application.Sum(Range("弯并A51:A60").Offset(0, i))

Next

End sub

看不懂迅简你的意思，a列求和，就是只求a列的和，那么很简单，用公式就可以完成。sum函数。用VBA调用工作表函数也成。

如果每列都求和，则一样可以用sum函数。梁灶如果用VBA我同样会调用工作表函数，因为它简单。

行也是一样。公式可以填充，用VBA的话做循环。但是从问题看不出你求和的方向。只看到你要求a列的和，那么一个函数完成了，连橡昌扮公式的填充或者VBA的循环都用不到。

直接拦顷公简液陆式埋棚不就好么 ，要VBA 作甚

[a1] =application.sum(range("A2:A" &cells(rows.count ,1 ).end(xlup).row))

---