Форматировать пустые столбцы на основе количества строк в электронной таблице

Question

Я пытаюсь раскрасить пустые столбцы кода на листе в зависимости от количества строк в моем наборе данных. У меня есть макрос, который сортирует и форматирует мои данные, но я хочу добавить код для этого. Количество строк может варьироваться от 50 до 50 000, и я не хочу раскрашивать весь столбец до нижней части листа. Есть ли способ сделать это с помощью кода VBA? Я пробовал этот код, но он окрашивает весь столбец, а не только те 100 строк, которые у меня есть.

Range(Range("H13"), Range("H13").End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
       Selection.Interior.Color = vbBlue

Answer 1

Ты рядом

Sub test()
Dim lrow As Integer
lrow = Cells(Rows.Count, "H").End(xlUp).Row
Range("H13:H" & lrow).Interior.Color = vbBlue
End Sub

Вы используете xldown, который берет последнюю ячейку, а затем опускается до конца листа. Попробуйте использовать xlup. Также - старайтесь избавиться от привычки использовать selection - обычно это никогда не требуется.