我正在尝试从几张相同的单元格引用中添加值。
我开始#VALUE!
执行这段代码。
Dim i As Long
Dim x As Long
x = 0
For i = 1 To ActiveWorkbook.Worksheets.Count
x = x + Sheets(i).Range(rng).Value
Next i
mySUM = x
End Function
你的问题是这条线吧?
x = x + Sheets(i).Range(rng).Value
Range(rng)
除非rng
包含地址,否则不起作用。例如"D1:D3"
变量rng
不包含值,这就是您的代码中断的原因。
如果每张纸上的地址都相同,您应该只写它。例如Range("D1:D3")
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句