Как сделать так, чтобы при нажатии кнопки, очищались данные из строк A3 по О3 и до последней заполненной строки?
[вложение удалено администратором]
Про поиск последней строки написано здесь: https://forumvba.ru/index.php?topic=588.0
Макрос
Sub Макрос()
Dim lr As Long
'1. Поиск последней строки.
lr = Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row
' Если данных нет.
If lr < 3 Then
Exit Sub
End If
'2. Очистка.
Range("A3:O" & lr).Clear
End Sub
Использовал ClearContents за место Clear и все прекрасно очищает. Спасибо.
Да, правильнее использовать "ClearContents", я просто перепутал. Я его и хотел вам предложить, т.к. Clear удаляет кроме данных ещё и оформление.