Форум по VBA и MS Office

Sub макрос()

    Dim lr As Long, lc As Long
   
    '1. Поиск последней строки, в которой есть данные, по столбцу A.
        ' Макрос сделает аналогичное действие, которое в экселе делается так:
        ' поставьте курсор-рамку в столбце A в самую последнюю ячейку (это строка примерно 1 млн)
        ' и нажмите сочетание клавиш Ctrl + стрелка вверх.
    ' End не работает со скрытыми строками.
    lr = Cells(Rows.Count, "A").End(xlUp).Row
   
    '2. Поиск последнего столбца, в котором есть данные, по строке 1.
        ' Принцип такой же, как при поиске последней строки.
    ' End не работает со скрытыми столбцами.
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
   
    '3. Вывод в View - Immediate Window адреса диапазона, в котором есть данные.
        ' Предполагается, что данные начинаются с ячейки "A1".
    Debug.Print Range("A1").Resize(lr, lc).Address

End Sub