Скопируйте / Вставьте Значения для хранения ответов формулы - PullRequest
0 голосов
/ 07 марта 2019

Итак, это мой VBA, который в настоящее время работает над копированием формулы и вставкой ее в набор ячеек, которые перемещаются вниз каждый день. Я пропускаю часть в конце, где он затем копирует тот же набор ячеек и вставляет обратно в те же ячейки, что и значения, чтобы значения оставались на следующий день. Заранее спасибо за помощь. :)

Sub Cash()

Dim rng_Copy As Range
Dim rng_Paste As Range

Set rng_Copy = Sheet1.Range("$M$1")
Set rng_Paste = Range("G" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0)

rng_Copy.Copy
rng_Paste.Resize(18, 1).PasteSpecial xlPasteFormulas

End Sub

1 Ответ

1 голос
/ 07 марта 2019

Будет ли добавление

rng_Paste.Copy
rng_Paste.Resize(18, 1).PasteSpecial xlPasteValues

в конец вашего кода достигнуть того, что вы ищете?Это преобразует только что вставленные формулы в значения.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...