[µo°Ý] ½Ð±Ð³o¬q

aaaaaaaaaaaaaaa

½Ð°Ý¦U¦ì¤j¤j
¥H¤U³o¬qµ{¦¡½X¬O¤°»ò·N«ä§r?
·PÁ±z


For Each a In Range([A2], [A65536].End(xlUp))  
  Sheets("°O¿ý").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
   a.Resize(, 1) = ""
   a.Offset(, 2) = ""   ¡u³o¬O¦V¥k²MªÅ2®æ?¡v
   Next
End Sub

aaaaaaaaaaaaaaa

¦^´_ 5# Hsieh

H¤j
·PÁ±z

Hsieh

Offset ÄÝ©Ê
½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©w®M¥Î¦Ü Range ª«¥ó®É¥Î Offset ÄÝ©Ê¡C

¶Ç¦^ Range ª«¥ó¡A¥Î¥H¥Nªí¬Y­Ó«ü©w°Ï°ì¥H¥~ªº½d³ò¡C°ßŪ¡C

expression.Offset(RowOffset, ColumnOffset)
expression     ¥²¿ï¡C¸Ó¹Bºâ¦¡¶Ç¦^ Range ª«¥ó¡C

RowOffset      ¿ï¾Ü©Êªº Variant¡C¥Î¦C¼Æªí¥Üªº°Ï°ì¦ì²¾ (¥¿­È¡B­t¼Æ©Î¹s (0))¡C¥¿­Èªí¥Ü¦V¤U¦ì²¾¡A­t­Èªí¥Ü¦V¤W¦ì²¾¡C¹w³]­È¬° 0¡C

ColumnOffset      ¿ï¾Ü©Êªº Variant¡C¥ÎÄæ¼Æªí¥Üªº°Ï°ì¦ì²¾ (¾ã¼Æ¡B­t¼Æ©Î 0 (¹s))¡C¥¿­Èªí¥Ü¥k¦ì²¾¡A­t­Èªí¥Ü¥ª¡C¹w³]­È¬° 0¡C
Resize ÄÝ©Ê
½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©w½Õ¾ã«ü©wªº½d³ò¡C¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí½Õ¾ã«áªº½d³ò¡C

expression.Resize(RowSize, ColumnSize)
expression     ¥²¿ï¡C¸Ó¹Bºâ¦¡¶Ç¦^­n½Õ¾ã¤j¤pªº Range ª«¥ó¡C

RowSize     ¿ï¾Ü©Êªº Variant¡C·s½d³ò¤¤©Ò¥]§tªº¦C¼Æ¡C¦pªG¬Ù²¤¦¹¤Þ¼Æ¡A½d³ò¤¤ªº¦C¼Æ«O«ù¤£ÅÜ¡C

ColumnSize     ¿ï¾Ü©Êªº Variant¡C·s½d³ò¤¤©Ò¥]§tªºÄæ¼Æ¡C¦pªG¬Ù²¤¦¹¤Þ¼Æ¡A½d³ò¤¤ªºÄæ¼Æ«O«ù¤£ÅÜ

aaaaaaaaaaaaaaa

½Ð°Ý¦U¦ì¤j¤j
§Ú¤W¤@­Ó°ÝÃD¥D­n¬O­n°Ý¥H¤Uµ{¦¡½Xªº·N«ä
¤]·PÁÂH¸òG¤jªº«ü¥¿
¥Ñ©ó§ä¤£¨ì¦^ÂÐ¥\¯à
©Ò¥H¥u¦n¦Aµo°Ý¤@¦¸
¤£¬O¬G·NÁÈ¿n¤À
¥H¤U³o¬qµ{¦¡½X¬O¤°»ò·N«ä§r?
·PÁ±z


For Each a In Range([A2], [A65536].End(xlUp))   
Sheets("°O¿ý").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
   a.Resize(, 1) = ""

GBKEE

  
   a.Resize(, 1) = ""
   a.Offset(, 2) = ""   ¡u³o¬O¦V¥k²MªÅ2®æ?¡vaaaaaaaaaaaaaaa µoªí©ó 2010-6-22 10:02

a.Offset(, 2) = ""   
a.Offset(, 2)->¬Oa¦V¥k¦ì²¾2Ä檺½d³ò
²MªÅªº½d³ò=a ªº¤j¤p ¤£¬O ¦V¥k²MªÅ2®æªº·N«ä

Hsieh

¦^´_ 1# aaaaaaaaaaaaaaa


    a.Offset(, 2) = ""   ¦V¥k²Ä¤GÄæ²MªÅ(¥u¦³¤@®æ)