Макрос: определить самую нижнюю ячейку в столбце и копировать диапазон до этой ячейки

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

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

16.03.2015 10:06:30

Уважаемые форумчане, снова обращаюсь за помощью!
Файл пример во вложении
Необходимо с помощью макроса следующее:
1) определить, что в столбце к примеру "M" последняя не пустая ячейка находится на 159 строке
2) копировать диапазон P20:AB20 до P159:AB159

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

пример.xlsx (48.41 КБ)

Изменено: Paha_Fil - 16.03.2015 10:07:03

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

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

16.03.2015 10:13:50

вариант

Код
Sub VVV() Dim n% n = Cells(Rows.Count, "M").End(xlUp).Row Range("P20:AB20").AutoFill Destination:=Range("P20:AB" & n), Type:=xlFillDefault End Sub

Изменено: V - 16.03.2015 10:14:10

Paha_Fil Пользователь Сообщений: 67 Регистрация: 16.03.2015	#3 16.03.2015 10:14:36 в этом же файле, стоит фильтр на ячейке 9 в левой таблице, макрос должен снять галочку с - (прочерка), оставив все остальные значения выбранными

Paha_Fil Пользователь Сообщений: 67 Регистрация: 16.03.2015	#4 16.03.2015 11:02:05 Спасибо, работает!