比对姓名，对不上的删除表2姓名行

zhangcheng6688

学习一下，哈
Sub test()
arr = Sheets(2).[a1].CurrentRegion
brr = Sheets("正确姓名").[a1].CurrentRegion
For i = UBound(arr) To 2 Step -1
    For j = 2 To UBound(brr)
        If arr(i, 1) = brr(j, 1) Then
           GoTo x
        End If
    Next
    Sheets(2).Rows(i).Delete
x:
Next
End Sub

zhangcheng6688

向老师们学习一下字典
Sub test()
arr = Sheets("正确姓名").[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   d(arr(i, 1)) = ""
Next
brr = Sheets("sheet2").[a1].CurrentRegion
For j = UBound(brr) To 2 Step -1
   If Not d.exists(brr(j, 1)) Then
      Sheets("sheet2").Rows(j).Delete
   End If
Next
End Sub