第1个回答 2021-11-10
sub 宏1()
dim n&,i&,j&,rlt,arr
arr=activesheet.usedrange
n=ubound(arr)
redim rlt(1 to n,1 to 1)
for i=2 to n
for j=2 to ubound(arr,2)
rlt(i,1) = rlt(i,1) + arr(i,j)
next j
next i
range("a1").resize(n,1)=rlt
end sub
dim n&,i&,j&,rlt,arr
arr=activesheet.usedrange
n=ubound(arr)
redim rlt(1 to n,1 to 1)
for i=2 to n
for j=2 to ubound(arr,2)
rlt(i,1) = rlt(i,1) + arr(i,j)
next j
next i
range("a1").resize(n,1)=rlt
end sub
第2个回答 2021-11-11
120个数据是到DQ列？
如要在A列对B～DQ列的同行数据进行求和
直接用函数求和就行了啊
A2
=SUM(B2:DQ2)
下拉填充公式
即可
如要在A列对B～DQ列的同行数据进行求和
直接用函数求和就行了啊
A2
=SUM(B2:DQ2)
下拉填充公式
即可
第3个回答 2021-11-09
羡慕能用代码高效办公的人吧！ 不会vba代码？ vba代码很难写？ 别怕，excel 可以自动生成它。
第4个回答 2021-11-09
vba中使用工作表函数sumproduct，只能接受以逗号分隔的参数形式，不支持乘法运算形式 其实，用到vba了，就可以尽量不用工作表函数，直接用vba的强大功能灵活处理 或者，用sheet2.cells(1, 1).formula = "=sumproduct(sheet1!c2:c30=" & char...
相似回答