Страницы: 1
RSS
Очистка содержимого таблицы макросом
 
Друзья, помогите макросом...нужно, что бы при нажатии кнопки очищался диапазон, к примеру А :D , кроме первых двух строчек. Спасибо за любую помощь
 
Код
Sub Макрос()
Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(3, 1), Cells(LastRow + 1, 4)).ClearContents
End Sub
 
Код
Range("A:D").Resize(Range("A:D").Rows.Count - 2).Offset(2, 0).ClearContents
Спасибо
 
Код
intersect(activesheet.usedrange,[a:d]).offset(2).clearcontents
:D
Я сам - дурнее всякого примера! ...
 
А чё вы все .ClearContents у меня списываете?
 
Дык, мы ж на твоем коде паразитируем. :)
Я сам - дурнее всякого примера! ...
 
Юрий, спасибо. работает как надо!
 
спаразитирую на коде Сергея:
Код
intersect(activesheet.usedrange, Range("A:D")).offset(2).Value = Empty

тогда не будет ошибки при наличии объединенных ячеек. И ClearContents не пришлось списывать.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
:)
 
The_Prist, спасибо...
Страницы: 1
Наверх