'核对列2中的内容在列1中是否存在，结果放在列3中
Sub text()
Dim bool '是否存在
For j = 1 To 86 '要核对的内容，放在第2列
    bool = False
    For i = 1 To 327 '被查找的内容，放在第1列
        If Trim(Cells(i, 1).Value) = Trim(Cells(j, 2).Value) Then
            bool = True '存在
            Exit For
        End If
        
    Next i
    If bool = False Then
        Cells(j, 3).Value = "不存在" '核对结果放在第3列
    End If
Next j
End Sub