Сравнение двух столбцов на одном листе

Question

У меня есть два столбца A и B. Если столбец A имеет конкретное значение для Eg: High, то соответствующий столбец B должен содержать значение Date.Если столбец A имеет конкретное значение для Eg: High, а соответствующий столбец B не имеет значения даты, то ячейка должна быть выделена красным.

Answer 1

Sub ColorColB()

Dim sht As Worksheet

Dim LastRow, i As Long

Set sht = ActiveSheet

Найти последнюю ячейку в столбце A ... подсчитывает, сколько строк

  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

Запустить цикл .. проверить, нет ли в столбце B ничего, затем покрасить его в красный цвет

For i = 1 to LastRow

If cells(i, 2) = "" then Range("B" & i).Interior.Color = RGB(255, 0, 0)

Next i

End sub