请教怎么删除重复的记录

请问如何删除重复的记录
有两列卡号，分别在sheet1 A列，sheet 2 A列
现在要在sheet1 A列中查找与sheet2 A列重复的卡号，并将整行删除，
如何实现啊？

[解决办法]

VB code

 Sub test()    Dim i As Integer    Dim j As Integer    Dim blnHave As Boolean    For i = 20 To 1        For j = 1 To 20            If Sheet1.Cells(i, 1) = Sheet2.Cells(j, 1) Then                Sheet1.Rows(i).Delete Shift:=xlUp                Exit For            End If        Next j    Next iEnd Sub