A列类似于数据库，B列类似于需要核查的数据

Sub BFind()

Dim BFWhat As String
Dim rng As Range

j = 2
Columns("A:A").Select
For i = 2 To Range("B65536").End(xlUp).Row
    BFWhat = Cells(i, 2). http://www.rr555.com/news/newsview.php?nid=1873
    Set rng = Selection.Find(what:=BFWhat, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If rng Is Nothing Then
        Cells(j, 3) = BFWhat
        j = j + 1
    End If
Next

MsgBox "完成"

End Sub