ªð¦^¦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)

¾Ç¥Í

¥»©«³Ì«á¥Ñ n7822123 ©ó 2015-8-22 12:44 ½s¿è

¦^´_ 1# EGBT


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

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

TOP

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

TOP

¦^´_ 2# n7822123


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

TOP

¦^´_ 3# n7822123


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

TOP

¨ä¹ê§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

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2015-8-22 13:59 ½s¿è

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

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

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-8-22 14:18 ½s¿è

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

TOP

­º¥ý§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

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD