如何用VBA实现两个工作表相同单元格数据的累加（vba多个工作表数据拷贝到一个表）

sub aaa()dim arr,i as integer,s as integerarr=range([a1],cells(rows.count,1).end(xlup))for i=1 to ubound(arr) s=s+arr(i,1)nextmsgbox send sub 或则你直接录制个宏。 在B1输入公式=sum(a:a)就行了