路由人生 软件工具 vba如何求整列的和

vba如何求整列的和

excel 表格中可以用自动求和或sum()函数来求和,但当行数发生变化时,就需要在去求一次,可以用下面的语句自动判断某一列的最后一行,求这一列的和。例如求B列的和:

Worksheets(“sheet2”).Range(“b1”).Select

n = Cells(65532, 2).End(xlUp).Row
Cells(n + 1, 3) = “=SUM(b1:b” & n – 1 & “)” ‘对b 列求和,并写入C列最后一个单元格
同样小小的演变以下,可以求两列的和
Worksheets(“sheet2”).Range(“b1”).Select

n1 = Cells(65532, 2).End(xlUp).Row
n2=Cells(65532, 3).End(xlUp).Row
if n1>n2 then
n=n1
else
n=n2
end if
Cells(n + 1, 4) = “=SUM(b1:c” & n – 1 & “)” ‘对b、 c列求和,并写入d列最后一个单元格
再经过其它演变就又会有不同的用途,^_^。

本文来自路由人生,转载请注明出处。

作者:

发表评论

联系我们

联系我们

在线咨询: QQ交谈

邮箱: yufe@yufe.me

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部