Âà¸m®æ¦¡

linsurvey2005

¬õ¦â°Ï¶ô«ç»òÂà¸m¬°ºñ¦â°Ï¶ô~·PÁÂ

¤U¸ü (243.78 KB)
Âà¸m»Ý¨D

2018-12-11 22:40

Âà¸m®æ¦¡.zip (2.49 KB)

¤U¸ü¦¸¼Æ: 12

2018-12-11 22:41

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

hcm19522

=OFFSET(A$1,INT((ROW(A1)-1)/4),MOD(ROW(A1)-1,4))

linsurvey2005

·PÁ«ü¾É
¨â¦ì¤èªk³£¦n¦n¥Î

linsurvey2005

¦^´_ 3# hcm19522


    ·PÁÂÀ°¦£

linsurvey2005

¦^´_ 2# ikboy


    ·PÁÂÀ°¦£

linsurvey2005

¦^´_ 3# hcm19522


   
±z¦n~²{¦b·Q¤ÏÂà¦^¨Ó¸Ó¦p¦ó½s¼g
(´N¬O§â->ºñ¦â°Ï¶ô¤ÏÂন¬õ¦â°Ï¶ô)
¥i¥HÀ°¦£¸ÑÄÀ¨ç¼Æªº·N«ä¶Ü?
ÁÂÁÂ

linsurvey2005

¦^´_ 2# ikboy


±z¦n~²{¦b·Q¤ÏÂà¦^¨Ó¸Ó¦p¦ó½s¼g
´N¬O§â->ºñ¦â°Ï¶ô¤ÏÂন¬õ¦â°Ï¶ô
¥i¥HÀ°¦£¸ÑÄÀ¥¨¶°ªº·N«ä¶Ü?
ÁÂÁÂ

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

linsurvey2005

¦^´_ 9# ikboy


    ¤£À´³o¨Ç¦æ¸¹ªº·N«ä
¥i¥H¦³»¡©ú¶Ü? ·Q¾Ç²ß