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

EGBT

¦^´_ 3# n7822123


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

EGBT

¦^´_ 2# n7822123


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

n7822123

¦^´_ 1# EGBT


    §ä¨ì§Aªº­ì¦]¤F¡A§âRANGE«e­±ªºSHEETS("¾Ç¥Í­¶")®³±¼¡A
   
    «e­±¥[¤@¦æ Sheets("¾Ç¥Í­¶").Activate¡A´N¥i¥H°õ¦æ¡A¶K¤W­×§ï«áªº

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

½Æ»s¥N½X

n7822123

¦^´_ 1# EGBT


   À°§A§ï¼g¤F¡A¸Õ¸Õ¬Ý§a:D¡A¥i¯à¬O§Ay¨S©w¸qªºÃö«Y

1. Sub TEST()
   
2. 
   
3. [code]Sub TEST()
   
4. Dim y As Range
   
5. x = 1
   
6. R = Sheets("¾Ç¥Í­¶").Cells(1, 1).CurrentRegion.Rows.Count
   
7. For Each y In Sheets("¾Ç¥Í­¶").Range(Cells(2, 1), Cells(R, 1))
   
8. Sheets("²Î­p").Cells(x, 1) = y
   
9. x = x + 1
   
10. Next
    
11. End Sub

½Æ»s¥N½X