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