Question

我是Excel的新手，我正尝试从几张相同的单元格引用中添加值。我需要使用VBA，因为我需要为此添加更多自定义项。但是我在执行这段代码时得到#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("A1").Value工作正常。

请帮助我更正代码。

Answer 1

您的问题这行对吗？

x = x + Sheets(i).Range(rng).Value

除非Range(rng)包含地址，否则

rng不起作用。例如。 "D1:D3"

变量rng不包含值，这就是代码中断的原因。

如果每个工作表中的地址都相同，则只需写下即可。例如Range("D1:D3")

无法使用VBA从Excel中的其他工作表中获取值

1 个答案: