excle VBA 怎么写sum 函数?

问题描述:

excle VBA 怎么写sum 函数?
例如 有以下表格
A B C D E F G
1 10 20 30 40 50 60 sum(A1:F1)
2 10 20 30 40 50 60 sum(A2:F2)
3 10 20 30 40 50 60 sum(A3:F3)
一共有多少行是动态的 从别的地方读过来的 要在G那个单元格 把前面的 单元格相加
如果在表格上G1的值就是A1:F1,G2的值就是A2:F2,以此类推,如果用vba来写怎么写呢?主要是读入的行数不确定,所以不可能在表格上事先写好A?:这种.只能用vba先判断有几行 在循环把每一行的值相加 放到G的位置,
1个回答 分类:综合 2014-11-11

问题解答:

我来补答
Sub test()
Range("g1:g" & Range("a65536").End(xlUp).Row).Formula = "=sum(a1:f1)"
End Sub
再问: A 到 F是收费项目 是固定的 每一行都是把A到F的值相加 放到G的位置 但是有多少行不知道 也就是说 range G? = sum(A?:F?) ?是变量 读出几行 就在每一行的G位置 把本行的 A到F的值相加
再答: 你没有试过我写的吗? 在该区域填充公式时,相对引用的行号自己会变的.
 
 
展开全文阅读
剩余:2000
下一页:绘图