oobird

1. Private Sub cbCheckData_Click()
   
2.     Dim a As Range, b As Range, e%, f%, r%
   
3.     Set a = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
   
4.     Set b = Range(Cells(1, 2), Cells(1, 2).End(xlDown))
   
5.     e = 7: f = 7
   
6.     For r = 1 To a.Count
   
7.         If Application.CountIf(b, a(r)) = 0 And [j:j].Find(a(r), , , 1) Is Nothing Then [j65536].End(xlUp).Offset(1, 0) = a(r)
   
8.         If Application.CountIf(a, a(r)) > 1 And [e:e].Find(a(r), , , 1) Is Nothing Then Cells(e, 5) = a(r): e = e + 1
   
9.     Next
   
10.     For r = 1 To b.Count
    
11.         If Application.CountIf(a, b(r)) = 0 And [i:i].Find(b(r), , , 1) Is Nothing Then [i65536].End(xlUp).Offset(1, 0) = b(r)
    
12.         If Application.CountIf(b, b(r)) > 1 And [f:f].Find(b(r), , , 1) Is Nothing Then Cells(f, 6) = b(r): f = f + 1
    
13.     Next
    
14. End Sub

½Æ»s¥N½X