Получить значения из других листов в Excel, используя VBA

Question

Я пытаюсь добавить значения из нескольких листов с одинаковыми ссылками на ячейки.

Я получаю #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

Answer 1

Ваша проблема в этой строке, верно?

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

Range(rng) не работает, если rng не содержит адрес. Например. "D1:D3"

Переменная rng не содержит значения, и поэтому ваш код ломается.

Если это один и тот же адрес на каждом листе, вы должны просто написать его. например Range("D1:D3")