>>267
せめて Then Else は条件逆にしたら？

> For i = ? To Lastrow ※Sheet3の最終行
> 　Set fnd = Sheet2.Columns(2).Find(Sheet3.Cells(i,2))
> 　If Not (fnd Is Nothing) Then
> 　If Sheet3.Cells(i,1) <> Sheet2.Cells(fnd.Row,1) Then
> 　　　Sheet3.Cells(i,1).Interior.ColorIndex = 3
> 　　End If
> 　If Sheet3.Cells(i,2) <> Sheet2.Cells(fnd.Row,2) Then
> 　　　Sheet3.Cells(i,2).Interior.ColorIndex = 3
> 　　End If
> 　If Sheet3.Cells(i,3) <> Sheet2.Cells(fnd.Row,3) Then
> 　　　Sheet3.Cells(i,3).Interior.ColorIndex = 3
> 　　End if
> 　　　　　・
> 　　　　　・
> 　　　　　・
> 　　If Sheet3.Cells(i,20) <> Sheet2.Cells(fnd.Row,20) Then
> 　　　Sheet3.Cells(i,20).Interior.ColorIndex = 3
> 　　End if
> 　Else
> 　　Sheet3.Cells(i,2).EntireRow.Interior.ColorIndex = 4
> End If
> Next i