³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

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

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

EGBT

¦^´_ 2# n7822123


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

EGBT

¦^´_ 3# n7822123


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

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

n7822123

¦^´_ 5# EGBT


    ¦pªG¬O§Ú¡A§Ú·|³o»ò¼g

1. Sub TEST()
   
2. R = Sheets("¾Ç¥Í­¶").Cells(1, 1).CurrentRegion.Rows.Count
   
3. For i = 1 To R
   
4.   Sheets("²Î­p").Cells(i, 1) = Sheets("¾Ç¥Í­¶").Cells(i + 1, 1)
   
5. Next i
   
6. End Sub

½Æ»s¥N½X

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?

lpk187

¦^´_ 5# EGBT

·í§A§@¥Î¤¤ªº¤u§@ªí¬°Sheets("¾Ç¥Í­¶")®É¡A§A¬O¥i¥H¼g
Sheets("¾Ç¥Í­¶").Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
¦ý¬O¦pªG§@¥Î¤¤ªº¤u§@ªí¤£¬OSheets("¾Ç¥Í­¶")®É¡A¨º³o¥y¥¿½T¼gªk
Sheets("¾Ç¥Í­¶").Range(Sheets("¾Ç¥Í­¶").Cells(2, 1), Sheets("¾Ç¥Í­¶").Cells(Sheets("¾Ç¥Í­¶").Cells(Rows.Count, 1).End(xlUp).Row, 1))
¬Ý¥X­þ¸Ì¤£¦P¤F¶Ü¡H
¨C¤@­ÓÀx¦s®æÀ³¸Óµ¹¤©§¹¾ãªº¦a§}

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