Вставить формулу со смещением

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

pechkin

Дата: Суббота, 13.12.2014, 09:39 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 332

Репутация: 49 ±

Замечаний: 0% ±

2003

Здравствуйте! Вроде бы простой вопрос, но не получается. Что нужно добавить в макрос, чтобы при вставке формулы из последующей ячейки в предидущую он смещал значения строк ( как если при копировании и вставке)?Пробовал "Offset"не работает[vba]

Код

Sub RRR()
Dim z As Integer
z = Range("D1").Value
Range(Cells(z, 3), Cells(z, 5)).Formula = Range(Cells(z + 1, 3), Cells(z + 1, 5)).Formula
End Sub

[/vba]
Спасибо!

К сообщению приложен файл: 0147895.xls (23.5 Kb)

Ответить

nilem

Дата: Суббота, 13.12.2014, 09:50 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

может, просто скопировать?
[vba]

Код

Sub Макрос2()
Dim z As Integer
z = Range("D1").Value
Range(Cells(z + 1, 3), Cells(z + 1, 5)).Copy Range(Cells(z, 3), Cells(z, 5))
End Sub

[/vba]

Яндекс.Деньги 4100159601573