求帮忙检查修改代码，入门使用者级的

渣渣的渣渣

第一个工作表的E列有一堆数据，第三个工作表的A列有一堆判断数据。
我要把第三个工作表中A1的数据与第一个工作表中E列每一格的数据做比较，如果单元格中的内容含有第三个工作表中的A1的内容，则标注。然后再选择A2，再和WorkSheets(1)的E列的内容比较，再标注。然后挑选出没有的。
WorkSheets(3)中的内容是确定的需要的，而1中的内容是从3抄过去并且加工过的。通过改背景颜色，然后看没改颜色的，既能找到抄过去漏了没，又能找到有没有哪个抄错了。
然后第三张表中的数据在第一张表中可能出现多次，于是设置了另一个变量记录出现了几次。

实际运行，只找到一个，是第12行的那个。而我想要的结果是，应该是基本全部对上，然后个别漏掉的未标颜色，需要人工确认。
这是为啥呢，大佬帮忙看看。


这里直接粘下代码，和文件里的一样

Sub a()
Dim s1%, s2%, s3%, i%, j%, a1%
s1 = Worksheets(1).Range("E65535").End(xlUp).Row
s2 = Worksheets(2).Range("D65535").End(xlUp).Row
s3 = Worksheets(3).Range("A65535").End(xlUp).Row
Worksheets(3).Range("D1") = s1
Worksheets(3).Range("D1") = s2
Worksheets(3).Range("F1") = s3
For i = 1 To s3
a1 = 0
    For j = 1 To s1
        If InStr(Worksheets(1).Range("E" & j), Worksheets(3).Range("A" & i).Value) > 1 Then
            Worksheets(1).Range("E" & j).Interior.Color = vbRed
            Worksheets(3).Range("A" & i).Interior.Color = vbRed
            a1 = a1 + 1
        End If
    Next
    Worksheets(3).Range("B" & i) = a1
Next
End Sub

渣渣的渣渣

好吧我好像找到了，，>0就ok了，，