eXCEL 判断 带颜色填充的单元格是否为空 VBA？

Sub color_p()
For Each Rng In Range("A1:B100")
If Rng.Interior.ColorIndex <> -4142 Then
If Rng.Value = "" Then
MsgBox "发现带颜色的单元格存在空值" & "A" & Rng.Row
End If
End If
Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rxj27vry2y7x72r37y.html