Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос: определить самую нижнюю ячейку в столбце и копировать диапазон до этой ячейки
 
Уважаемые форумчане, снова обращаюсь за помощью!
Файл пример во вложении
Необходимо с помощью макроса следующее:
1) определить, что в столбце к примеру "M" последняя не пустая ячейка находится на 159 строке
2) копировать диапазон P20:AB20 до P159:AB159
Изменено: Paha_Fil - 16 Мар 2015 10:07:03
 
вариант  
Код
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 Мар 2015 10:14:10
 
в этом же файле, стоит фильтр на ячейке 9 в левой таблице, макрос должен снять галочку с - (прочерка), оставив все остальные значения выбранными
 
Спасибо, работает!
Страницы: 1
Читают тему (гостей: 1)