VBA将对行数进行计数，直到命中深蓝色单元格？ （RGB = 93，123，157）

Question

[从单元格B8开始，我要向下计数行数，直到我们找到一个用RGB 93、123、157填充的单元格。

我在记录时尝试使用自动填充公式功能，但是单元格引用保持绝对：Selection.AutoFill Destination:=ActiveCell.Range("A1:A182")

仅在报告具有182行的情况下，这才行。

我也可以尝试：

Sub Test()

Dim i As Long, bluerow As Long

For i = 1 To 10000
    If Cells(i, 2).Interior.Color = RGB(93, 123, 157) Then
        bluerow = i
        Exit For
    End If
Next i

Range("B6").AutoFill Destination:=Range("B6:B" & bluerow), Type:=xlFillDefault

End Sub
但是它不会在B列中放置任何数字。

[从单元格B8开始，我要向下计数行数，直到我们碰到一个用RGB 93、123、157填充的单元格。我尝试在记录时使用自动填充公式功能，但是该单元格...] >

Answer 1

不确定，但这可以单独使用。

Sub NumRws()
    Range(Cells(5, 2), Cells(Rows.Count, 1).End(xlUp).Offset(, 1)).FormulaR1C1 = "=ROW()-4"
End Sub

Answer 2

下面的代码使用Find来获取B列中符合颜色标准的第一个单元格，然后从行号中减去7。

Answer 3

不确定您要的是什么？您希望行号出现在从B8到出现行的每个单元格上？在这种情况下，请使用：