oobird

1. Sub yy()
   
2.     Dim a, r%, i%, arr()
   
3.     a = Sheet1.[c10].CurrentRegion
   
4.     r = 1
   
5.     For i = 1 To UBound(a)
   
6.         ReDim Preserve arr(1 To 3, 1 To r)
   
7.         arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
   
8.         r = r + 6
   
9.     Next
   
10.     Sheet2.[c4].Resize(r - 6, 2) = Application.Transpose(arr)
    
11.     Sheet2.[k4].Resize(r - 6, 1) = Application.Transpose(Application.Index(arr, 3))
    
12. 
    
13. End Sub

½Æ»s¥N½X

oobird

³o¦^Äæ¦ì¼W¦h¤F¡A§A±o­nÅý¤H©ú¥Õ§A·Q±o¨ìªºµ²ªG¬O¤°»ò¼Ë¤l¡C

oobird

¬Ý°_¨Ó§A¤j·§·Q³o¼Ë¡G

1. Private Sub CommandButton1_Click()
   
2. Dim a, r%, i%, arr()
   
3. With Sheets("1")
   
4. a = .Range(.[c10], .[e10].End(4))
   
5. End With
   
6. r = 1
   
7. For i = 1 To UBound(a)
   
8. ReDim Preserve arr(1 To 3, 1 To r)
   
9.       arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
   
10.         r = r + 6
    
11.     Next
    
12.     Sheets("2").[c4].Resize(r - 6, 2) = Application.Transpose(arr)
    
13.     Sheets("2").[k4].Resize(r - 6, 1) = Application.Transpose(Application.Index(arr, 3))
    
14. End Sub

½Æ»s¥N½X