如题所述
亲,测试效果和代码如下:
Sub tc()Dim rg As Range
For Each rg In Range("A1:D5")
If rg = "" Then rg.Interior.Color = RGB(0, 255, 255)
Next
End Sub
温馨提示:答案为网友推荐,仅供参考
如题所述
亲,测试效果和代码如下:
Sub tc()
本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网