ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

§Ú¦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

¾Ç¥Í.rar (8.71 KB)

¾Ç¥Í

¦^´_ 2# n7822123


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

TOP

¦^´_ 3# n7822123


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

TOP

¦^´_ 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?

TOP

¦^´_ 10# ikboy


·PÁÂ

TOP

¦^´_ 9# lpk187


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

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD