从for循环（Excel VBA）中访问范围的下一个项目

Question

我有一个过滤的电子表格，它没有明显的模式。我需要检查是否有两个连续的单元格用灰色填充（RGB：191,191,191）。当我连续说，我的意思是在可见细胞之外，如此连续不一定意味着行号将是连续的。不过，我不确定如何从for循环中访问该范围的下一行。我复制并粘贴了脚本的简化版本以帮助解答。由于

Set Rng = Range("A2:A105").SpecialCells(xlCellTypeVisible) 
For Each rowcheck In Rng 
    If Cells(rowcheck.Row, "C").Interior.color = RGB(191, 191, 191) And _' 
    'The next visible cell also has an rgb value of 191 Then 
    blah blah 
    End If 
Next rowcheck 

Answer 1

就做两遍：

1. 得到的信息
2. 环比信息

例如：

Sub dural() 
    Dim boo() As Boolean, Rng As Range, i As Long, iMax As Long 
    Set Rng = Range("A2:A105").SpecialCells(xlCellTypeVisible) 
    ReDim boo(1 To Rng.Count) 

    i = 1 
    For Each rowcheck In Rng 
     If Cells(rowcheck.Row, "C").Interior.Color = RGB(191, 191, 191) Then 
      boo(i) = True 
     Else 
      boo(i) = False 
     End If 
     i = i + 1 
    Next rowcheck 
    iMax = i - 2 

    For i = 1 To iMax 
     If boo(i) And boo(i + 1) Then 
     'whatever 
     End If 
    Next i 

End Sub