如何用循环动态区域求和

y1983y · 发表于 2017-10-23 16:25

本帖最后由 y1983y 于 2017-10-24 11:04 编辑

sub summ()Dim j As Integer
Dim ZNum, ZEum, QNum, QEum

         j = Sheet1.[a65536].End(xlUp).Row
         ZNum = Sheet1.Range("i8:i" & j)
         ZEum = Sheet1.Range("j8:j" & j)
         QNum = Sheet1.Range("k8:k" & j)
         QEum = Sheet1.Range("l8:l" & j)
         j = j + 1
         Sheet1.Cells(j, 1) = "合计"
         Sheet1.Cells(j, 9) = Application.WorksheetFunction.Sum(ZNum)
         Sheet1.Cells(j, 10) = Application.WorksheetFunction.Sum(ZEum)
         Sheet1.Cells(j, 11) = Application.WorksheetFunction.Sum(QNum)
         Sheet1.Cells(j, 12) = Application.WorksheetFunction.Sum(QEum)

end sub
目前只汇总求和i列到L四列，我要计算到W列，如何用循环语句完成？
望大虾指教，谢谢！

jiangxiaoyun · 发表于 2017-10-23 16:55

offset+resize试试

y1983y · 发表于 2017-10-24 11:02

本帖最后由 y1983y 于 2017-10-24 11:03 编辑

j = Sheet1.[a65536].End(xlUp).Row + 1 Range("I" & j & ":V" & j).FormulaR1C1 = "=SUM(R[" & -j + 8 & "]C:R[-1]C)"
Range("i" & j & ":v" & j).Copy
Sheet1.Range("i" & j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
变通一下，完成。
谢谢大家挂念！
欢迎大家继续探讨

		自动登录	找回密码
密码			免费注册