如何用VBA代码实现在excel里同一列数据的累加

Question

即利用VBA代码实现将excel里其中一列数据的累加结果输出到另一个单元格，求指点

Answer 1

累加是求和的意思吗？
如果是，直接引用工作函数即可
sub test ()
range("C1")=application.sum(columns(1))
end sub
这样就求得了A整列的和

Answer 2

若数据为sheet1表的B2开始的B列

    DIM FINALRow&
    DIM SUMT&   '所求合
    FINALRow = sheet1.cells(2,65535).end(xlup).row
    SUMT = worksheetfunction.sum(Range("B2:" & "B" & rinalrow))

 

    

Answer 3

sub a()
range("b1")=worksheetfunction.sum(range("a1:a1000"))
end sub