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的位置,
答
Sub test()
Range("g1:g" & Range("a65536").End(xlUp).Row).Formula = "=sum(a1:f1)"
End SubA 到 F是收费项目 是固定的 每一行都是把A到F的值相加 放到G的位置但是有多少行不知道 也就是说 range G？ =sum（A？：F？）？是变量读出几行 就在每一行的G位置 把本行的 A到F的值相加你没有试过我写的吗?在该区域填充公式时,相对引用的行号自己会变的.