Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Гость от 02 июня 2015, 11:25

Название: Копирование текста ячейки
Отправлено: Гость от 02 июня 2015, 11:25
Добрый день! Подскажите, мне нужно копировать ячейку (допустим А1) в которой прописана формула (допустим СУММ(В1:В3)), но мне нужно чтобы копировалась не формула, а именно число которое получится.
Название: Re: Копирование текста ячейки
Отправлено: Администратор от 02 июня 2015, 11:34
Есть два вида копирования в Excel:
Если Вам нужно копировать только данные, то нужно делать так. Этот способ быстрее работает, чем использование Copy и PasteSpecial. Исключение, если надо копировать очень много, то Copy и PasteSpecial может быстрее сработать:
Sub Macro()
    Range("B1").Value = Range("A1").Value
End Sub
Название: Re: Копирование текста ячейки
Отправлено: Гость от 02 июня 2015, 12:05
У меня вот такой код:

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)

Что нужно добавить?
Название: Re: Копирование текста ячейки
Отправлено: Администратор от 02 июня 2015, 12:11
Workbooks.Open "путь\1.xlsb"
ThisWorkbook.Worksheets(1).Cells(2, 2).Value = Workbooks("1").Worksheets(1).Range("D4117").Value
Workbooks("1").Close (False)
Название: Re: Копирование текста ячейки
Отправлено: Гость от 02 июня 2015, 12:27
Спасибо огромное !