no3-taco

¦^´_ 1# dnadark

°Ñ¦Ò¬Ý¬Ý!!!

1. Sub test()
   
2. Dim arr: arr = Worksheets("¤u§@ªí1").[c1:e15]
   
3. Dim i, j, k: i = 1: k = 2
   
4. With Worksheets("¤u§@ªí2")
   
5.     '.UsedRange.Clear
   
6.     .Cells(1, 1) = arr(1, 1)
   
7.     For j = 2 To 15
   
8.         If arr(j, 1) <> arr(j - 1, 1) Then
   
9.             i = i + 1: k = 2: j = j + 1: .Cells(i, 1) = arr(j, 1)
   
10.         End If
    
11.         .Cells(i, k) = arr(j, 2)
    
12.         .Cells(i, k + 1) = arr(j, 3)
    
13.         k = k + 2
    
14.     Next j
    
15. End With
    
16. End Sub

½Æ»s¥N½X