lionliu

¦^´_ 10# lionliu
³o¬O§Ú¬O°µªºµ{¦¡½X¡A¤£ª¾¬O§_¦³­þ¦ì¤j­Ó¥i¥H§i¶D§Ú­n¦p¦ó­×§ï

1. Sub inv()
   
2. '
   
3. Dim i, j, k, rcnt As Integer
   
4. Dim myArray() As String
   
5. 
   
6. rcnt = Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row
   
7. For i = 5 To rcnt
   
8. 
   
9.     myArray = Split(Sheets(1).Cells(i, 3), vbLf)
   
10.     'j = i + 6
    
11.     For j = 0 To UBound(myArray)
    
12.     Sheets(2).Cells(i, 3).Value = myArray(j)
    
13.     Next j
    
14.     k = i + j
    
15.     Sheets(2).Cells(k, 1) = Sheets(1).Cells(i, 1)
    
16.     Sheets(2).Cells(k, 7) = Sheets(1).Cells(i, 7)
    
17.     Sheets(2).Cells(k, 8) = Sheets(1).Cells(i, 8)
    
18.     Next i
    
19. End Sub

½Æ»s¥N½X