vba - 跳过循环中的空单元格

Question

我有下面的宏，它应该突出显示sheet2中与sheet1中不同的单元格。它运行良好，但我在突出显示空白单元格时遇到问题:

Private Sub Compare()

Dim shtARng As Range, cell As Range

With Worksheets("Sheet1")
Set shtARng = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp)) 
End With

With Worksheets("Sheet2") 
For Each cell In .Range("C2", .Cells(.Rows.Count, 9).End(xlUp))
    If shtARng.Find(What:=cell.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) Is Nothing Then cell.Interior.ColorIndex = 3
Next cell
End With

End Sub

Answer 1

Private Sub Compare()
Dim shtARng As Range, cell As Range

    With Worksheets("Sheet1")
        Set shtARng = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
    End With

    With Worksheets("Sheet2")
        For Each cell In .Range("C2", .Cells(.Rows.Count, 9).End(xlUp))
            'Only Proceed If The Length Of The Cell Is Bigger Than Zero
            If Len(cell) > 0 Then
                If shtARng.Find(What:=cell.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) Is Nothing Then cell.Interior.ColorIndex = 3
            End If
        Next cell
    End With

End Sub