Страницы: 1
RSS
Автозаполнение от активного диапазона в VBA
 
Здравствуйте!
Просьба помочь со следующим вопросом: необходимо автозаполнением протянуть диапазон E5:J5 до последней заполненной строки в столбце B.
Макрорекодер записывает конкретный диапазон автозаполнения, а диапазон E5:J5 динамический, в будущем это может быть любая ячейка в столбце E и J.
То есть нужно макросом протянуть последнюю заполненную строку в столбцах E:J до последней заполненной строки в столбце B.
В интернете много разных примеров, в том числе на планете эксель, но конкретно решения под мой запрос я не нашел, а в VBA не силен...

Спасибо.
 
Код
Sub Макрос1()
Dim lastrowE&, lastrowB&
    lastrowE = Cells(Rows.Count, "E").End(xlUp).Row
    lastrowB = Cells(Rows.Count, "B").End(xlUp).Row
    Range(Cells(lastrowE, "E"), Cells(lastrowE, "J")).AutoFill Destination:=Range(Cells(lastrowE, "E"), Cells(lastrowB, "J")), Type:=xlFillDefault
End Sub
Я не Михаил...
Страницы: 1
Наверх