Scott090

¦^´_ 1# doulioufire


³o­Ó¬O§_²Å¦X»Ý¨D?

1. Option Base 1
   
2. Sub Test()
   
3.     Dim aa, bb
   
4.     Dim i&, j%
   
5.     aa = Range("A2:B" & [b2].End(xlDown).Row).Value
   
6.     ReDim bb(1, UBound(aa))
   
7.     For i = 1 To UBound(aa)
   
8.        If aa(i, 1) <> "" Then
   
9.            j = j + 1                             '­pºâ¦³´X­Ó¥N¸¹
   
10.            bb(1, aa(i, 1)) = aa(i, 2)  '¨Ì¥N¸¹±Æ§Ç
    
11.        End If
    
12.     Next
    
13.     Cells(Cells(3, "U") + 1, "D").Resize(, j) = bb   '©ñ¦b¤éªº¹ïÀ³¦C
    
14. End Sub

½Æ»s¥N½X