[µo°Ý] ½Ð°ÝŪ¨ú¦USHEETªºÀx¦s®æªº­È

wu731230

½Ð°Ý¦U¦ìEXCEL¹F¤H¡A¦pªG§Ú¦³¤@­ÓEXCELÀÉ¡A¤º¦³100­Ósheet¡A¦U§O©R¦W¬°1¡B2¡B....¡B99
§Ú·Q¦b²Ä100­ÓsheetªºA1~A99§e²{«e99­ÓSHEETªºA1¡A¦³¬Æ»ò¤è¦¡¥i¥H§Ö³t¼¶¼g©O:

luhpro

¦^´_ 1# wu731230

1. Sub nn()
   
2.   Dim iI%
   
3.   
   
4.   With Sheets(100)
   
5.     For iI = 1 To 99
   
6.       .Cells(iI, 1) = Sheets(CStr(iI)).[A1]
   
7.     Next iI
   
8.   End With
   
9. End Sub

½Æ»s¥N½X

owen06

¤]¥i¥H³o¼Ë
sub try()
For i = 1 To 99
Sheet100.Cells(i, 1).Value = Sheets(i).Cells(1, 1).Value
Next
end sub

GBKEE

¦^´_ 3# owen06
¤£¥Î°j°é

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets(100).[A1:A99]
   
4.         .Cells = "=INDIRECT(ROW()&""!A1"")"
   
5.         .Cells = .Value
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

owen06

¦^´_ 4# GBKEE


¤£¦n·N«ä¡A½Ð°Ýª©¥D¬O¤£¬Oº|¤F¦bSHEETS(100)¤§«e¥[­Ó"WITH"¡H
³o­Ó¼gªk¹ï§Ú¨Ó»¡¦³ÂI²`¶ø¡A¦n¦n¨Ó¬ã¨s¤@¤U¡C

GBKEE

¦^´_ 5# owen06
¤u§@ªí¤W¿é¤J¤½¦¡ -> =INDIRECT(ROW()&"!A1")
ÁÂÁ«ü¥¿,¤w­×¥¿§¹²¦

wu731230

·PÁ¤j®a¡A¤w¸Ñ¨MÅo!!