GBKEE

¦^´_ 1# color790

1. Sub AA()
   
2.     For a = 1 To ¤u§@ªí1.[A1].End(xlDown).Row
   
3.         For i = 2 To ¤u§@ªí3.[A1].End(xlDown).Row
   
4.             For j = 2 To 5
   
5.                 If ¤u§@ªí3.Cells(i, j) = "" Then
   
6.                     If ¤u§@ªí1.Cells(a, 5) = "AAA" Then
   
7.                         ¤u§@ªí3.Cells(i, j) = ¤u§@ªí1.Cells(a, 1)
   
8.                         ¤u§@ªí3.Cells(i + 1, j) = ¤u§@ªí1.Cells(a, 1)
   
9.                         Exit Sub
   
10.                     ElseIf ¤u§@ªí1.Cells(a, 5) = "BBB" Then
    
11.                         ¤u§@ªí3.Cells(i, j) = ¤u§@ªí1.Cells(a, 1)
    
12.                         Exit Sub
    
13.                     End If
    
14.                 End If
    
15.             Next
    
16.         Next
    
17.     Next
    
18. End Sub

½Æ»s¥N½X