ikboy

1. Sub zz()
   
2. Dim ar, b()
   
3. ar = Application.Transpose([a1].CurrentRegion.Value)
   
4. ReDim b(1 To UBound(ar) * UBound(ar, 2), 1 To 1)
   
5. For Each c In ar
   
6.     n = n + 1
   
7.     b(n, 1) = c
   
8. Next
   
9. [h1].Resize(n) = b
   
10. End Sub

½Æ»s¥N½X

ikboy

1. Sub zz()
   
2. Dim ar, b(), n&
   
3. ar = Range("g1:g" & [g65536].End(3).Row).Value
   
4. ReDim b(1 To UBound(ar) / 4, 1 To 4)
   
5. For i = 1 To UBound(ar)
   
6.     n = n + 1
   
7.     For j = 0 To 3
   
8.          b(n, j + 1) = ar(i + j, 1)
   
9.     Next
   
10.     i = i + j - 1
    
11. Next
    
12. [i1].Resize(n, 4) = b
    
13. End Sub

½Æ»s¥N½X