³o­Ó°ÝÃDÀY¤j¤F..·Q¤F¦n¤[

EGBT

§Ú¦b"²Î­p"³o­ÓSheet±Ò¥Î¥¨¶°
§â"¾Ç¥Í­¶"³o­ÓSheetªº¾Ç¥Í®y¸¹¡A¼´¨ì"²Î­p"³o­ÓSheet
¦ý¬O³£·|¥X²{"1004  À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~"

¦³ªþÀÉ®×

1. Sub TEST()
   
2. Dim Student()
   
3. x = 1
   
4. For Each y In Sheets("¾Ç¥Í­¶").Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
   
5. ReDim Student(x)
   
6. Student(x) = y
   
7. Sheets("²Î­p").Cells(x, 1) = Student(x)
   
8. x = x + 1
   
9. Next
   
10. End Sub

½Æ»s¥N½X

EGBT

¦^´_ 2# n7822123


    «ÜÁÂÁ§Aªº¦^ÂСA¦ýÁÙ¬O¤£¦æ

EGBT

¦^´_ 3# n7822123


    ³o­Ó¤èªk¥i¥H,¦ýÁÙ¦³¨S¦³¨ä¥Lªº¤èªk¥i¥H°Ñ¦Ò~~~«ÜÁÂÁ§A³á^^

EGBT

¦^´_ 6# ikboy


    «Ü·PÁ¼ӤW¤j¤jªº¦^ÂÐ~¥i¬O§Ú·Q½Ð°Ý¤j¤j

°ÊºA°}¦C Redim Student(x)

§Ú³Ì«áÀH«K¼g¤@¦æ

Sheets("²Î­p").Range("A1") = Student(1)

¬°¤°»ò¤£·|§âSudent(1)³o­Ó°}¦Cªº®y¸¹Åã¥Ü¦bA1©O?

EGBT

¦^´_ 10# ikboy


·PÁÂ

EGBT

¦^´_ 9# lpk187


    ¼Ó¤W¤j¤j§¹¥þ¤F¸Ñ§Ú...§¹¥þ¥¿¸Ñ~¤Ó·PÁ§A¤F^.^