Excel VBA: Написать макрос, который определяет координаты массива

[NIk]

Добрый вечер! Подскажите, пожалуйста, как написать макрос, который будет определять координаты массива?
Нужно, чтобы при воспроизведении макроса, он написал диапазон ячеек, в которых находятся записи.

[вложение удалено администратором]

[Администратор]

Макрос

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

[свернуть]

Про поиск последней строки на эксель-листе написано здесь: https://forumvba.ru/index.php?topic=588.0