2,461
社区成员
发帖
与我相关
我的任务
分享
cells(i1+1,1).fumulaR1C1="=SUM(sheet2!R[i1-5]C[2]:RC[2]"
肯定是个错误的公式,错在excel不认识i1-5是什么,把代码修改一下,变量单拿出来就行了
cells(i1+1,1).fumulaR1C1="=SUM(sheet2!R[" & (i1-5) & "-5]C[2]:RC[2]"
第二个问题复杂一点,按新行的生成方式,有两种对应的流程:
1. 如果新行里的数据都是通过计算获得,那就不应该直接用“添加一个新行,并计算”,而是“根据B表生成A表数据,如果r2.rows.count/r1.rows.count>5则添加一个新行并进行计算,如果=5则无需任何操作(=5的情况也可以再计算一次,不过被操作的r1的行号应该是i,而不是i+1,或者直接从r1第一行算到最后一行)”
2. 如果新行里的数据有一部分需要手填,建议手工添加新行,然后才填上新行自动计算的数据(也可以遍历r1所有行重新计算所有自动计算的部分)