Excel VBA: Как очистить лист от данных?

[telesh]

Как сделать так, чтобы при нажатии кнопки, очищались данные из строк 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

[свернуть]

[telesh]

Использовал ClearContents за место Clear и все прекрасно очищает. Спасибо.

[Администратор]

Да, правильнее использовать "ClearContents", я просто перепутал. Я его и хотел вам предложить, т.к. Clear удаляет кроме данных ещё и оформление.