Выделение в табличных строках характерных нулевых и единичных последовательностей

[Aristarkch]

Прошу помочь решить задачу

Выделение в табличных строках характерных нулевых и единичных последовательностей
В каждом крайнем (правом) столбце таблицы принимаются во внимание не нулевые ячейки.
Выделение нулевых последовательностей в строках.
Если правой не нулевой ячейке строки таблицы предшествуют n нулевых ячеек, этим ячейкам предшествуют m ненулевых ячеек, а им опять предшествуют n нулевых ячеек, то такая правая ячейка выделяется цветом.
В примере таблицы (1 -10 строки) таковыми, требующими выделения ячейками столбца O, являются выделенные красным цветом ячейки O1, O7, O8, O10 (остальные выделения розовым цветом в строках не обязательны и сделаны для пояснения).
Когда в этой же таблице появляется очередной столбец P (строки 12-21), то должны выделяться ячейки P16, P17 и P20.

Выделение единичных последовательностей в строках.
Если правой не нулевой ячейке строки таблицы предшествуют i не нулевых ячеек, этим ячейкам предшествуют j нулевых ячеек, а им опять предшествуют i не нулевых ячеек, то такая правая ячейка выделяется цветом.
В примере таблицы (1 -10 строки) таковыми, требующими выделения ячейками столбца O, являются выделенные бирюзовым цветом ячейки O3 и O4 (остальные выделения бледно-зеленым цветом в строках не обязательны и сделаны для пояснения).
Когда в этой же таблице появляется очередной столбец P (строки 12-21), то должны выделяться ячейки P18 и P21.
И так с появлением каждого очередного столбца.

[сфинкс]

Даже не скачивая: строки вида 001001

распознает формула вида

=не(a1) *не(a2) *a3 *не(a4) *не(a5) *a6

[Aristarkch]

сфинкс,
Ответ не соответствует поставленной задаче.

[сфинкс]

Дано

2 1 1 3 0 1 1 0 0 1 5 1 0 0 3 0
0 0 0 1 1 0 0 0 3 3 0 0 1 1 0 0
1 2 1 1 2 2 1 0 1 2 0 0 1 1 2 0

Результат если формула =не(A1)*не(B1)*не(не(C1))

0 0 0 0 0 0 0 1 0 0 0 0 1 0
0 1 0 0 0 0 1 0 0 0 1 0 0 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0

Результат если формула =не(A1)*не(B1)*C1

0 0 0 0 0 0 0 1 0 0 0 0 3 0
0 1 0 0 0 0 3 0 0 0 1 0 0 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0

Видим: ищет 00x или точно 001
и дальше разукрашивать возможно результаты

[Aristarkch]

сфинкс, Вероятно, я не доступно обозначил задачу. Скорее всего, без макроса не обойтись.

[Elixi]

Aristarkch, так будет правильно макросом?

Sub Aristarkch_Test()
    Dim n0&, n1&, m&, Rw&, Co&, CoL&
    Dim n0b As Boolean, n1b As Boolean, mb As Boolean
    
    For Rw = 1 To 10    '(1 - 10 строки)

        ' В каждом крайнем (правом) столбце таблицы
        ' принимаются во внимание не нулевые ячейки.
        CoL = Cells(Rw, Columns.Count).End(xlToLeft).Column
        If Cells(Rw, CoL) > 0 Then
            
            ' Если правой не нулевой ячейке строки таблицы ...
            If Cells(Rw, CoL - 1) = 0 Then
                n0b = True: n1b = False: mb = True
                n0 = 0: n1 = 0: m = 0
                For Co = CoL - 1 To 1 Step -1
                    'Cells(Rw, Co).Activate: Stop
                    
                    If Cells(Rw, Co) = 0 Then
                        ' ... предшествуют n нулевых ячеек,
                        If n0b Then: n0 = n0 + 1
                        ' ... а им опять предшествуют n нулевых ячеек,
                        If n1b Then n1 = n1 + 1: mb = False
                    Else
                        ' ... этим ячейкам предшествуют m ненулевых ячеек,
                        If mb Then
                            m = m + 1: n0b = False: n1b = True
                        Else
                            Exit For
                        End If
                    End If
                Next Co
                
                ' то такая правая ячейка выделяется цветом.
                If n0 = n1 Then Cells(Rw, CoL).Interior.Color = vbYellow
            End If
        End If
    Next Rw
End Sub

[Aristarkch]

Elixi, Скопироавл Ваш код и вставил в "Исходный текст" листа примера. Cтыковки - реакции excel на макрос - не произошло.

[Aristarkch]

Может быть созданный Вами макрос не стыкуется с excel 2003?

[Elixi]

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

Elixi, Скопироавл Ваш код и вставил в "Исходный текст" листа примера. Cтыковки - реакции excel на макрос - не произошло.

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

Может быть созданный Вами макрос не стыкуется с excel 2003?

Нет у меня Excel 2003, но не вижу почему этот не сложный макрос на нем не смог заработать.
Вся проблема скорее всего вот в этом:

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

В каждом крайнем (правом) столбце таблицы принимаются во внимание не нулевые ячейки.

А у вас там в крайнем (правом) столбце ноли. Проверьте.

[Aristarkch]

Elixi, Даже если я добавляю к таблицу справа полностью единичный столбец, в нем ничего не выделяется. А должны выделяться ячейки в 5, 6, 7, 9 и 10 строках.