VBA检查细胞内部颜色

我正在尝试取决于单元格的内部颜色。

这是我的代码到目前为止，但它显示错误的If行。

For i = 3 To dumpLastRow With masterFile.Sheets(dumpRef) If .Range("A", i).Interior.ColorIndex = 4 Then ''''CODE'''' Else ''''CODE'''' End If End With Next 

如果你有任何想法，将不胜感激。 谢谢

Answer 1

作为替代这个版本可能会更容易一起工作

 With masterFile.Sheets(dumpRef) Dim cell As Range For Each cell In .Range("A3:A" & dumpLastRow).Cells If cell.Interior.ColorIndex = 4 Then ''''CODE'''' Else ''''CODE'''' End If Next End With 

Answer 2

你不能合并范围内的字母和数字。 改用单元格。 您需要将细胞放置两次，因为使用cells填充cells时，需要使用Range。
Range(Cells(i, 1), Cells(i, 1)).Interior.ColorIndex