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

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

Range(Range("H13"), Range("H13").End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
       Selection.Interior.Color = vbBlue
16
задан Raystafarian
14.01.2023 7:30 Количество просмотров материала 2939
Распечатать страницу

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 - это обычно не надо.

1
отвечен Raystafarian 2023-01-15 15:18

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх