Как перенести значение SUM на другую страницу (получение ошибки = SUM (#REF!))

Question

В этом случае я использую ячейки от Range("a5") до SUM a1: a3. Как только SUM завершен, я хочу запустить VBA и затем вставить результат SUM из sheet1 в sheet2

Если число набрано непосредственно в Range("a5"), все работает нормально.

Я работал с PasteSpecial, на сегодняшний день мне это не удалось.

Я бы подумал, что value или value2 достигли бы этой цели, но пока этого не произошло. У меня такое ощущение, что я что-то упускаю довольно просто.

Sub TransferSum()

    Dim Rng As Range

    Set Rng = Worksheets("Sheet1").Range("a5")

    Rng.Copy

    Worksheets("Sheet1").Paste Destination:=Worksheets("Sheet2").Range("a1")

    Application.CutCopyMode = False

End Sub

Answer 1

Ваша формула относится к ячейкам выше ее местоположения, но выше A1 нет ячеек, следовательно, ошибка. Кроме того, ваш синтаксис отключен.

Если вы просто хотите передать значение ...

Sub TransferSum()

    Dim Rng As Range

    Set Rng = Worksheets("Sheet1").Range("a5")

    Rng.Copy
    Worksheets("Sheet2").Range("a1").pastespecial xlvalues
    'OR IN ONE LINE
    Worksheets("Sheet2").Range("a1").value=rng.value 'or Value2

End Sub