§Ú¦b"²Îp"³oÓSheet±Ò¥Î¥¨¶°
§â"¾Ç¥Í¶"³oÓSheetªº¾Ç¥Í®y¸¹¡A¼´¨ì"²Îp"³oÓSheet
¦ý¬O³£·|¥X²{"1004 À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~"
¦³ªþÀÉ®×- Sub TEST()
- Dim Student()
- x = 1
- For Each y In Sheets("¾Ç¥Í¶").Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
- ReDim Student(x)
- Student(x) = y
- Sheets("²Îp").Cells(x, 1) = Student(x)
- x = x + 1
- Next
- End Sub
½Æ»s¥N½X |