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的位置,
其他人气:925 ℃时间:2020-01-28 15:36:47
优质解答
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的值相加你没有试过我写的吗?在该区域填充公式时,相对引用的行号自己会变的.
我来回答
类似推荐
请使用1024x768 IE6.0或更高版本浏览器浏览本站点,以保证最佳阅读效果。本页提供作业小助手,一起搜作业以及作业好帮手最新版!
版权所有 CopyRight © 2012-2024 作业小助手 All Rights Reserved. 手机版