如题所述
第1个回答 推荐于2017-09-19
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
本回答被提问者采纳