Ниже мы рассмотрим программу в Excel VBA, что петли через весь первый столбец и цвета все значения, которые ниже определенного значения.

Loop Through Entire Column in Excel VBA

Loop Through Entire Column in Excel VBA

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Во-первых, объявить переменную I типа Long. Мы используем переменную типа Long здесь, потому что длинные переменные имеют большую емкость, чем переменные типа Integer.

Dim i As Long

  1. Затем добавьте строку кода, которая меняет цвет шрифта всех ячеек в колонке А к черному.

Columns(1).Font.Color = vbBlack

  1. Добавьте петлю.

For i = 1 To Rows.Count

Next i

Примечание: рабочие листы могут иметь до 1048576 строк в Excel 2007 или более поздней версии.

Независимо от того, какую версию вы используете, в строку кода выше перебирает все строки.

  1. Далее, цвет все значения, которые ниже, чем значение, введенное в ячейку D2. Пустые ячейки игнорируются. Добавьте следующие строки кода в петлю.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then

Cells(i, 1).Font.Color = vbRed

End If

Результат при нажатии на кнопку управления на листе (это может занять некоторое время):

Loop Through Entire Column Result

Loop Through Entire Column Result