ikboy

¨ä¹ê§A¥N½X´Nµ¥¦p:
Sub zz()
With Sheets("Éú?")
    .Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("½y?").[a1]
End With
End Sub

¤U­±§Ú§â§Aªº¥N½X§ï¬°:
Sub TEST()
Dim arr   'Student()
With Sheets("¾Ç¥Í­¶")
    arr = .Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
'x = 1
For Each y In arr
x = x + 1
'ReDim Student(x)
'Student(x) = y
Sheets("²Î­p").Cells(x, 1) = y
Next
End Sub

ikboy

­º¥ý§Aªº°ÊºA°}¦C­n«O¯d¼Æ¾Ú,½Ð¥Î Redim Preserve Student(x)
¤U­±°µ¤F¤@­Ó¨Ò¤l

Sub TEST()
Dim Student()
r = Sheets("¾Ç¥Í­¶").Cells(Rows.Count, 1).End(xlUp).Row
x = 1
For Each y In Sheets("¾Ç¥Í­¶").Range("a2:a" & r)
ReDim Preserve Student(x)
Student(x) = y
Sheets("²Î­p").Cells(x, 1) = Student(x)
x = x + 1
Next
MsgBox Student(1)
MsgBox Student(11)
End Sub