如何利用VBA的For Each循环为Excel空白单元格着色？

以下是可实现需求的有效VBA代码：

Sub CellColor()
    
Dim cell As Range

For Each cell In Selection.Cells
    If IsEmpty(cell.Value) Then
        cell.Interior.Color = RGB(217, 217, 217)
    End If
Next cell

End Sub

代码说明： #

• 声明cell为Range对象，用于遍历选中区域内的每个单元格
• 通过For Each cell In Selection.Cells循环遍历当前选中的所有单元格
• 用IsEmpty(cell.Value)判断单元格是否为空白状态
• 若单元格为空白，通过cell.Interior.Color = RGB(217, 217, 217)将单元格背景设置为浅灰色（可根据需求调整RGB值更换颜色）

内容的提问来源于stack exchange，提问作者Nuun