c_c_lai

¦^´_ 4# GBKEE

1.     Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
   
2.     For Each R In Rng.Rows
   
3.         Set Rng = R.Cells(1)

½Æ»s¥N½X

±z¬°¦ó¤£¼g¦¨¡H

1.     Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
   
2.     For Each R In Rng.Rows
   
3.         Set X = R.Cells(1)

½Æ»s¥N½X

c_c_lai

¦^´_ 22# GBKEE
§Úªº¥»·N¬O¡G

¤U¸ü (26.52 KB)

2012-8-22 07:44

½Ð±z§O¤¶·N¡A²ö»¡ªÈ¥¿¤@µü¤F¡I

c_c_lai

¦^´_ 24# GBKEE
±z»~¸Ñ§Úªº·N«ä¡A§Úªº­«ÂI¶È¦b©ó Rng Åܼƪº¨Ï¥Î¡C

°²³]¡GFor X = 1 To Rng ~ Next X ¤§¤º®e«D±`½ÆÂø
1.  ¦pªG¦b For Next Loop ¤º Coding ®É¤@®É²¨©¿¡A¦P®É¤Þ¥Î¤F Rng ÅܼƨñN¨ä
      ­È§ïÅÜ¡F
2.  ¤§«á¡A ¦b For Next Loop «á¬q³B²z®É¡A¥ç¦P¼Ë¤Þ¥Î¤F Rng ÅܼƭȡA
      ¦¹³B¬O§Æ±æ¤Þ¥Î­ì¥ýªº Rng ÅܼƭȮɡA¥L©¿²¤¤F¦b For Next Loop ¤º
      ¤w²§°Ê¤F Rng ÅܼƭȡAµ²ªG°õ¦æµo¥Í¤F¤£¥i¹w´Áªº¿ù»~¡C
3.  ³oºØ±¡¨Æ±`©öµo¥Í¦b·í¼Ò²ÕÃe¤j¡A³B²z¤º®e½ÆÂø®Éªº¤£¸g·N³B²z¡C

¦Ó«D±zµ{¦¡ªº¸ÑĶ¡A ½Ð±z¨£½Ì¡C