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