ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦³°ÝÃD,¥¼¸Ñ¨M

[µo°Ý] ¦³°ÝÃD,¥¼¸Ñ¨M

Dim A As Integer


½Ð°Ý¤U­±¦³¤°»ò°ÝÃD?°õ¦æ«á¦³error message.
Dim A As Integer
A = 2
For A = 2 To 20
Worksheets("Sample").Copy after:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I2") = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I3") = Sheet1.Cells(A, 2).Value

A = A + 1

Next

°j°é¤ºÅܼƦó¬G­n¥[1?
Sheet1.Cells(A, 1).Value
ªº­È­Y¬°ªÅ¦r¦ê´N·|¥X¿ù
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# john2006168
§A¨SªþÀɤW¨Ó§Ú²q¿ù»~¥i¯à¬O
Worksheets(Worksheets.Count).Name = Sheet1.Cells(A, 1).Value -> ¬°ªÅ¥Õ ©Î¬O¦³­«½Æªº¦r¦ê

TOP

¥»©«³Ì«á¥Ñ john2006168 ©ó 2011-4-20 23:27 ½s¿è

¦^´_ 3# GBKEE


    ¦hÁÂ2¦ì¦Ñ®vªº´£¿ô,°ÝÃD¤w¸Ñ¨M,¥t¤@¤è­±,§Ú·Q°Ý¦pªG§Ú¤£·Q©T©waªº­È¥u¬O¨ì20,§ÚÀ³¸Ó«ç»ò§ï?

Dim A As Integer
A = 2
For A = 2 To 20
Worksheets("Sample").Copy after:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I2") = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I3") = Sheet1.Cells(A, 2).Value

TOP

For A = 2 To [A65536].end(xlup).Row
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD