Question

VBA中如何判断单元格是否有颜色填充？

Answer 1

Sub abc()

    Dim rng As Range, rng1 As Range

    Dim y As Integer

        Set rng = Range("a1:d9")    ''''A1:D9区域

        For Each rng1 In rng

            y = rng1.Interior.ColorIndex ''''单元格颜色标记数

            If y > 0 Then MsgBox rng1.Address ''''如果Y>0，则提示该单元格的地址

        Next

End Sub