Примера нет, танцуем свободный танец.
Данные обновляются на листе Sheet1
. В столбце С формула. Строки ниже вставляемых данных пустые (пользовательский диапазон ограничен последней строкой с новыми даннми).
Вешаем макрос на какую-нибудь кнопулю. Жмем и...
Определяем номер последней строки с формулой (lRwOld
), находим последнюю строку с данными (lRwNew
) - после обновления данных она будет ниже строки с формулой. Все. Заполняем пустой диапазон столбца С.
Sub CopyFormula()
Dim lRwOld As Long, lRwNew As Long
With Worksheets("Sheet1")
lRwOld = .Cells(.Rows.Count, "C").End(xlUp).row
lRwNew = .UsedRange.Rows.Count + .UsedRange.row - 1
.Range(.Cells(lRwOld, 3), .Cells(lRwNew, 3)).FillDown
End With
End Sub
Если столбцов с формулами больше (например, C:E):
.Range(.Cells(lRwOld, 3), .Cells(lRwNew, 5)).FillDown
' или'
.Cells(lRwOld, 3).Resize(lRwNew - lRwOld + 1, 3).FillDown
Строку с FillDown
можно заменить на вставку формул (.Formula
, .FormulaLocal
, .FormulaR1C1
...)