Question

我正在尝试根据细胞的内部颜色做一些事情。

到目前为止，这是我的代码，但它在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来填充单元格时，您需要将单元格放入两次 Range(Cells(i, 1), Cells(i, 1)).Interior.ColorIndex

VBA检查细胞内部颜色

2 个答案: