颜色判断问题，请教高手

复制内容到剪贴板

代码:

Sub yy()
Dim i&, Arr
Arr = [a1].CurrentRegion
For i = 1 To UBound(Arr)
    If Arr(i, 6) = "" Then
        Rows(i).Interior.ColorIndex = 3
    End If
Next
End Sub

复制内容到剪贴板

代码:

Dim rng As Range, i&
For i = 1 To Range("f65536").End(xlUp).Row
    If Cells(i, 6) = "" Then
        If rng Is Nothing Then Set rng = Cells(i, 6) Else Set rng = Union(rng, Cells(i, 6))
    End If
Next i
If Not rng Is Nothing Then rng.EntireRow.Interior.ColorIndex = 3