☰

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

tag-icon • tag-icon microsoft-excel vba
Форматировать пустые столбцы на основе количества строк в электронной таблице

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

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

решение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- обычно это никогда не нужно.

Связанный контент