高亮显示范围内的空单元格

快速修复

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

字符串

改进

Sub HighlightEmpties()
    
    If Selection Is Nothing Then
        MsgBox "Nothing selected.", vbExclamation
        Exit Sub
    End If
    
    If Not TypeOf Selection Is Range Then
        MsgBox "No range selected.", vbExclamation
        Exit Sub
    End If
    
    Dim urg As Range, cell As Range
    
    For Each cell In Selection.Cells
        If IsEmpty(cell.Value) Then
            If urg Is Nothing Then
                Set urg = cell
            Else
                Set urg = Union(urg, cell)
            End If
        End If
    Next cell
   
    If urg Is Nothing Then
        MsgBox "No empty cells found.", vbInformation
        Exit Sub
    End If
    
    urg.Interior.Color = RGB(217, 217, 217)
    
End Sub

型