Удалить до последней ячейки

Question

Добрый вечер,

нужно ли указывать конечную строку удаляемых данных или это еще проще?

С наилучшими пожеланиями

   Sub Delete()
       Dim lz AS Long   
            Lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
            
            ' the next line
            Rows(Lz & ":1048576").Delete


   End Sub

Answer 1

Попробуйте этот код, пожалуйста:

Sub ClearAll()
       Dim lz As Long
            lz = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).row + 1
            Range(Cells(lz, 1), Cells(Rows.Count, Columns.Count)).Clear
End Sub

Не нужно ничего удалять, если вам нужно очистить. Приведенный выше код очистит все, начиная с первой пустой строки ...