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列最后一个单元格
再经过其它演变就又会有不同的用途,^_^。