Нахождение предпоследней значимой (не пустой) строки

[alf19]

Доброе время суток! Переодически с помощью oracle reports выгружаю данные в excel. Количество строк каждый раз разное. Предпоследнюю значимую строку нужно "залить" серым цветом. Подскажите, плиз, как макросом найти эту строку? Спасибо

[SAS888]

Можно, например, так:

With ActiveSheet
        Rows(.UsedRange.Row + .UsedRange.Rows.Count - 2).Interior.ColorIndex = 15
    End With

[alf19]

Сообщение от SAS888

Можно, например, так:

With ActiveSheet
        Rows(.UsedRange.Row + .UsedRange.Rows.Count - 2).Interior.ColorIndex = 15
    End With

Спасибо огромное!

Поскажите, плиз, а как "заливать" опредлённые столбцы этой строки(скажет от A до Т ), а не все.


И ещё маленький вопросик. Я выделяю все значимые ячейки сочетанием CTRL - A, но в макрос пишется Range("A1:T43").Select.
А кол-во ячеек каждый раз будет разное...
Как сочетание CTRL - A записать в макрос?

[SAS888]

Например, можно использовать метод Union. Аргументы этой функции перечисляются через запятую. Их количество не ограничено.
Например:

Dim x As Range
    Set x = Union(Range("A1"), Range("C3:E5"), Columns("G"))
    x.Select

"Залить" предпоследнюю строку используемого диапазона от столбца "A" до столбца "T" можно так:

Dim r As Long
    With ActiveSheet
        r = .UsedRange.Row + .UsedRange.Rows.Count - 2
        Range(Cells(r, "A"), Cells(r, "T")).Interior.ColorIndex = 15
    End With

[alf19]

Большое спасибо!!