Excel VBA - Копировать и вставить формулу без увеличения - PullRequest
0 голосов
/ 19 февраля 2020

У меня есть ряд формул, похожих на эту:

=MID('Sheet1'!O40,1,5)

Я пытаюсь скопировать и вставить эту формулу в пустую ячейку, не увеличивая ссылку на ячейку и не обновляя ссылку на таблицу.

Желаемый конечный результат:

=MID('Sheet2'!O40,1,5)

Я использовал приведенный ниже код в качестве тестового примера, но скопированная формула автоматически увеличивает ссылку на ячейку. Есть ли в любом случае, чтобы скопировать и вставить формулы без приращения?

Range("E2").Copy
Range("E126").PasteSpecial xlPasteFormulas

1 Ответ

0 голосов
/ 19 февраля 2020

Я нашел решение ниже:

Range("E126").Formula = Range("E2").Formula
Set r = Range("E126").SpecialCells(xlCellTypeFormulas)
r.Replace What:="Sheet1", Replacement:="Sheet2", LookAt:=xlPart
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...