Как удалить 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) ?»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы