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

2025-03-06 17:28:32
推荐回答(3个)
回答1:

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

回答2:

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

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

 


    

回答3:

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