Как удалить SpecialCells(xlLastCell) ? - VBA

Формулировка задачи:

Поясню на примере
Sub ss()
    Cells(10, 5) = "1"
    Cells.Delete Shift:=xlUp
    Cells.ClearContents
    Debug.Print Cells.SpecialCells(xlLastCell).Address
    Debug.Print ActiveSheet.UsedRange.Address
    'ActiveSheet.UsedRange = "used"
End Sub
Выдаст E10. Хочу А1. Чем же удаляется эта "последняя ячейка"?

Код к задаче: «Как удалить SpecialCells(xlLastCell) ? - VBA»

textual
Sub ss()
    Cells(10, 5) = "1"
    Cells.Delete shift:=xlUp
    With Cells
        .Clear
        Debug.Print .SpecialCells(xlCellTypeLastCell).Address
        Debug.Print ActiveSheet.UsedRange.Address
    End With
End Sub

7   голосов, оценка 3.429 из 5


СОХРАНИТЬ ССЫЛКУ