VBA中如何判断单元格是否有颜色填充?
发布网友
发布时间：2022-06-07 16:45
共1个回答
热心网友
时间：2023-10-21 23:54
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
