L oop через все столбцы, чтобы применить условное форматирование с другим правилом для каждого столбца.

Question

У меня есть столбцы B: КАК мне нужно применить условное форматирование для каждого столбца на основе критериев, указанных c для каждого столбца. диапазон B7: B33 имеет 2 правила в B36 и b37, диапазон C7: C33 имеет 2 правила в C36 и C37 и так далее. Может ли кто-нибудь мне помочь l oop в следующем макросе, чтобы он прошел через все столбцы в моем диапазоне B: AS? Спасибо !!

Sub Macro1()

     range("B7:B33").Select
Application.CutCopyMode = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _

     Formula1:="=$B$37"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _

      Formula1:="=$B$36"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

      range("C7:C33").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _

      Formula1:="=$C$37"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _

     Formula1:="=$C$36"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub