Копирование текста ячейки

[Гость]

Добрый день! Подскажите, мне нужно копировать ячейку (допустим А1) в которой прописана формула (допустим СУММ(В1:В3)), но мне нужно чтобы копировалась не формула, а именно число которое получится.

[Администратор]

Есть два вида копирования в Excel:

• копирование данных и форматирования;
• копирование только данных.

Если Вам нужно копировать только данные, то нужно делать так. Этот способ быстрее работает, чем использование Copy и PasteSpecial. Исключение, если надо копировать очень много, то Copy и PasteSpecial может быстрее сработать:
Sub Macro()
    Range("B1").Value = Range("A1").Value
End Sub

[Гость]

У меня вот такой код:

Workbooks.Open "путь\1.xlsb"
Workbooks("1").Worksheets(1).Range("D4117").Select
Selection.Copy
ThisWorkbook.Worksheets(1).Activate
Sheets(1).Paste Cells(2, 2)
Workbooks("1").Close (False)

Что нужно добавить?

[Администратор]

Workbooks.Open "путь\1.xlsb"
ThisWorkbook.Worksheets(1).Cells(2, 2).Value = Workbooks("1").Worksheets(1).Range("D4117").Value
Workbooks("1").Close (False)

[Гость]

Спасибо огромное !