Find函数返回空值 报错 VB

方法一，先行判断
For i = 4 To j
If Sheet1.Range("A:A").Find(Sheet14.Range("A" & i)) = Nothing Then
Exit For
Else
X = Sheet1.Range("A:A").Find(Sheet14.Range("A" & i)).Row
End If
If Sheet14.Range("C" & i) <> Sheet1.Range("B" & X) Then
Sheet1.Range("B" & X) = Sheet12.Range("C" & i)
Sheet1.Range("B" & X).Interior.Color = 255
End If

Next i
方法二，报错跳出：
On Error GoTo Err1
For i = 4 To j
X = Sheet1.Range("A:A").Find(Sheet14.Range("A" & i)).Row

If Sheet14.Range("C" & i) <> Sheet1.Range("B" & X) Then
Sheet1.Range("B" & X) = Sheet12.Range("C" & i)
Sheet1.Range("B" & X).Interior.Color = 255
End If

Next i
Err1:本回答被提问者采纳

For i = 4 To j

Set c = Sheet1.Range("A:A").Find(Sheet14.Range("A" & i)), lookin:=xlValues)
if c is nothing then exit for
X = c.Row

If Sheet14.Range("C" & i) <> Sheet1.Range("B" & X) Then
Sheet1.Range("B" & X) = Sheet12.Range("C" & i)
Sheet1.Range("B" & X).Interior.Color = 255
End If

Next i