Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автозаполнение диапазона вниз макрос
 
#1
22.06.2017 13:06:40
Здравствуйте!
Просьба помочь с кодом автозаполнения диапазона вниз.
Есть диапазон с формулами A2:M2, необходимо протянуть его вниз до последней ячейки в столбце N.
Автозаполнение отдельного столбца я нашел на планете эксель http://www.planetaexcel.ru/techniques/11/226/
А вот автозаполнение диапазона не смог найти...
Буду благодарен за помощь.
Спасибо.
 
 
 
#2
22.06.2017 13:30:59
Вячеслав, пример прикрепите.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#3
22.06.2017 13:37:15
Если не писать отдельный код, а использовать те функции, что вы уже нашли:
Код
   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
Изменено: AndreTM - 22.06.2017 13:42:54
 
 
 
#4
22.06.2017 13:47:23
Код
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
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#5
23.06.2017 14:07:16
AndreTM, Фродо,спасибо Вам большое!!
Очень помогли!
 
 
 
Страницы: 1
Наверх