VBA查找并为非空白单元格添加颜色

Question

我有一个代码可以为空白单元格添加颜色。

子find_and_addcolor_to_notemptycells（） 昏暗的范围，rcell的范围

Set rng = Range("G2:DB16")
For Each rcell In rng.SpecialCells(xlCellTypeBlanks)
    If Application.CountIf(rcell.Resize(, 18), "<>") = 0 Then
        rcell.Resize(, 18).Interior.ColorIndex = 30
    End If
Next rcell

结束子

但是，我需要为非空白单元格添加颜色。 我一直在寻找自己尝试编写脚本的方法，但是我似乎无法理解如何编写脚本。 欢迎任何帮助。