Очистить используемый диапазон Начиная с конкретной ячейки

Question

Я хочу очистить использованный диапазон Sheet1, но начиная с A8 и вниз. Я хочу оставить данные в A7 и в тактике, но все, что ниже этого диапазона, убирается. Я пробовал этот синтаксис, но он не доходит до конца книги («используемый диапазон»). И да, последняя ячейка используемого диапазона, прежде чем A65536

For LastRow = 2 To Worksheets("Sheet1").Range("A65536").End(xlUp).Row 
    Next LastRow 
Range("A" & LastRow).ClearContents 

Как я могу очистить все ячейки с данными из ряда A8 до конца используемого диапазона?

Answer 1

Вы близки попробовать ниже - таким образом, вы не должны указать «конец диапазона». Это удалит все ниже строки 8

With Sheets("Sheet1") 
    .Rows(8 & ":" & .Rows.Count).Delete 
End With 

Answer 2

Ваш код (кроме как ничего в цикле) создает только адрес для одной ячейки. Просто построить Range как 8:42 или что-то последняя строка и ясно, что:

With Worksheets("Sheet1") 
    .Range("8:" & .Range("A65536").End(xlUp).Row).ClearContents 
End With 

Answer 3

или версии агностиком (который обслуживает версии Excel у вас есть, это Excel-2003, который имеет 2^16 или 65536 строк)

Range([a8], Cells(Rows.Count, "A")).EntireRow.ClearContents