lpk187

¦^´_ 1# fusayloveme

¤j®aµª®×¥X¦n§Ö¡A§Ú¤]½m²ß¤F¤@¤U

1. Public Sub se()
   
2. end1 = 2
   
3. ®É¶¡ = [d1:aa1]
   
4. For Each rn In Range("A2:A" & Cells(Rows.Count, "a").End(xlUp).Row)
   
5.     ´ú¯¸ = Cells(rn.Row, "B")
   
6.     ´ú¶µ = Cells(rn.Row, "C")
   
7.     arr = Range(Cells(rn.Row, "D"), Cells(rn.Row, "AA"))
   
8.     Sheets("³B²z«á¸ê®Æ").Range("A" & end1).Resize(UBound(arr, 2)) = rn
   
9.     Sheets("³B²z«á¸ê®Æ").Range("B" & end1).Resize(UBound(arr, 2)) = ´ú¶µ
   
10.     Sheets("³B²z«á¸ê®Æ").Range("C" & end1).Resize(UBound(arr, 2)) = ´ú¯¸
    
11.     Sheets("³B²z«á¸ê®Æ").Range("D" & end1).Resize(UBound(arr, 2)) = Application.Transpose(®É¶¡)
    
12.     Sheets("³B²z«á¸ê®Æ").Range("E" & end1).Resize(UBound(arr, 2)) = Application.Transpose(arr)
    
13.     end1 = UBound(arr, 2) + end1
    
14. Next
    
15. With Sheets("³B²z«á¸ê®Æ").[A2].Resize(end1 - 2, 5)
    
16.     .Borders.LineStyle = xlContinuous
    
17.     .Borders.Weight = xlThin
    
18. End With
    
19. End Sub

½Æ»s¥N½X