[Gustav]

Цитата:

Сообщение от MironovI

тут получается правда под каждую секцию отчета нужно свою колонку отдельную.. жаль при "найти и выделить" нельзя указать конкретное значение типа 1 или 2..

Не нужно отдельную колонку. Конкретно для двух вариантов можно использовать число для одного и текст для другого и сформировать два разных составных диапазона (синий и желтый):

Sub ExcelVBAMacro2()

    Dim rng As Range ' колонка А
    Dim rng1 As Range 'синий
    Dim rng2 As Range 'желтый
    
    Range("A5:A8,A15:A17,A24:A27").Value = 1
    Range("A9:A13,A18:A22,A28:A32").Value = "a"
    
    Set rng = ActiveSheet.Columns("A:A")
    
    Set rng1 = rng.SpecialCells(xlCellTypeConstants, 1).EntireRow
    rng1.Interior.ColorIndex = 37
    
    Set rng2 = rng.SpecialCells(xlCellTypeConstants, 2).EntireRow
    rng2.Interior.ColorIndex = 6
    
End Sub

И еще в запасе несколько подобных "индикаторов" - пустые, логические, ошибочные даже (можно ввести в ячейку формулу =0/0 и получить ошибку, которую можно выделить ):



Но, согласен, если бы можно было помимо "Константа - Число" еще при этом и конкретное число указывать - было бы очень удобно для подобных манипуляций.