Как протянуть данные с помощью AutoFill до последнего заполненного столбца?

Пользователь

Сообщений: 33 Регистрация: 14.02.2017

19.06.2021 21:58:45

Здравствуйте, подскажите, пожалуйста как протягивать данные до последнего заполненного столбца. Мне нужно протянуть данные C5:C14 до O5:O14, без привязки к столбу O, потому что данные могут заканчиваться в любом столбце, последний заполненный столбец это столбец в 4 строке которого есть данные.

Прикрепленные файлы

пример.xlsm (17.44 КБ)

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

19.06.2021 22:06:04

ggilza, так?

Код

Sub пуск()
Dim lcol As Long, lr As Long
lcol = Cells(4, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, 3).End(xlUp).Row
    Range(Cells(5, 3), Cells(lr, 3)).AutoFill Destination:=Range(Cells(5, 3), Cells(lr, lcol)), Type:=xlFillDefault
End Sub

Не бойтесь совершенства. Вам его не достичь.

ggilza Пользователь Сообщений: 33 Регистрация: 14.02.2017	#3 19.06.2021 22:10:03 Mershik, да, спасибо Вам огромное. Изменено: ggilza - 19.06.2021 22:10:22