從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