Найти диапазон (7 ячеек) в диапазоне (80 строк, 7 столбцов)

Question

Я бы хотел увеличивать счетчик (переменную x) каждый раз, когда находил 7 серых ячеек (в одной строке) в myRange: 80rows x 7columns Я не знаю, с чего начать, тогда любые идеи приветствуются.

Dim rCell  As Range
For Each rCell In myRange
    ' Looking for grey cells, the whole line of 7 days
    If rCell.Interior.Color = RGB(200, 200, 200) Then

        ' something like that
        'If the 7 cells in a row are grey then x = x + 1

    End If
Next rCell

Если вы можете указать мне правильное направление, это будет здорово. Можно ли заменить rCell на 7 ячеек?

Спасибо

Answer 1

Dim rCell  As Range, rw as range, n as long

For Each rw in myRange.Rows   'loop over rows
    For Each rCell In rw      'loop cells in row  

        If rCell.Interior.Color = RGB(200, 200, 200) Then n = n + 1
        If n = 7 Then 
            x = x + 1
            n = 0  'reset counter
        End If 

    Next rCell
Next rw