Здравствуйте! Просьба помочь с кодом автозаполнения диапазона вниз. Есть диапазон с формулами A2:M2, необходимо протянуть его вниз до последней ячейки в столбце N. Автозаполнение отдельного столбца я нашел на планете эксель http://www.planetaexcel.ru/techniques/11/226/ А вот автозаполнение диапазона не смог найти... Буду благодарен за помощь. Спасибо.
Если не писать отдельный код, а использовать те функции, что вы уже нашли:
Код
For Each cell In Range("A2:M2")
cell.Activate
SmartFillDown
Next
Если таблица уже оформлена правильно (в строке 1 есть все заголовки, столбец N заполнен) - то должно сработать.
Ну или если не будет нормально срабатывать - можно уже переписывать использование .AutoFill:
Код
iLastRow = Cells(Rows.Count, Columns("N:N").Column).End(xlUp).Row
With Range("A2:M2")
If iLastRow > .Row Then
.AutoFill Destination:=.Resize(iLastRow - .Row + 1), Type:=xlFillValues
End If
End With
Sub Заполнение()
Dim Низ As Long, Низ2 As Long
Низ = ActiveSheet.Cells(Cells.Rows.Count, 14).End(xlUp).Row
Низ2 = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A" & Низ2 & ":M" & Низ2).Select
Selection.AutoFill Destination:=Range("A" & Низ2 & ":M" & Низ)
End Sub
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"