累加是求和的意思吗?
如果是,直接引用工作函数即可
sub test ()
range("C1")=application.sum(columns(1))
end sub
这样就求得了A整列的和
若数据为sheet1表的B2开始的B列
DIM FINALRow&
DIM SUMT& '所求合
FINALRow = sheet1.cells(2,65535).end(xlup).row
SUMT = worksheetfunction.sum(Range("B2:" & "B" & rinalrow))
sub a()
range("b1")=worksheetfunction.sum(range("a1:a1000"))
end sub