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

[µo°Ý] ½Ð²¤Æ¿ý»sªºµ{¦¡½X¡C

¦^´_ 10# ziv976688
¬d¬ÝVba»¡©ú  Address ÄÝ©Ê ,¦Û¦æ¸Õ¸Õ­×§ï


³Ì«á¤@¬q(²Ä10¬q)$AU : $AX2  ->¥u¦³4Äæ
¤Ö¤@Äæ´N´î1
  1. Set Rng = Rng.Offset(, IIf(i < 9, Rng.Columns.Count, Rng.Columns.Count - 1))
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 11# GBKEE

§¹¦¨¤F!
·PÁ§Aªº«ü±Ð©MÀ°¦£

TOP

¦^´_ 11# GBKEE
®æ¦¡¤Æ±ø¥ó¤½¦¡_G¤j.rar (8.95 KB)

¦C25          Set Rng = Rng.Offset(, IIf(i < 9, Rng.Columns.Count, Rng.Columns.Count - 1)) '**¤U¤@­Ó½d³ò

¤£¦n·N«ä¡A¤µ¤Ñ­n¨Ï¥Î¡A¤£ª¾¹D¬°¤°»òÁÙ¬O¦h¤F¤@Äæ(AY2)^^"
¥i§_½Ð§A¦A«ü¥¿?ÁÂÁ§A!

TOP

¦^´_ 13# ziv976688

½Ð­×¥¿¬°
  1. Set Rng = Rng.Offset(, IIf(i < 8, Rng.Columns.Count, Rng.Columns.Count - 1)) '**¤U¤@­Ó½d³ò
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 14# GBKEE

Set Rng = Rng.Offset(, IIf(i < 9, Rng.Columns.Count, Rng.Columns.Count - 1))  '**¤U¤@­Ó½d³ò
©M
Set Rng = Rng.Offset(, IIf(i < 8, Rng.Columns.Count, Rng.Columns.Count - 1))  '**¤U¤@­Ó½d³ò
¤G¬q¦¨¦¡½X³£¬O­pºâ¨ì¦h1Äæ(AYÄæ)¡F
¥HFor i = 0 To 9 ¨Ó»¡
À³¸Ó¬Oi < 9¤~¬O¥¿½Tªº
¥u¬O¤£ª¾¬O¬Æ»ò­ì¬G¡A.Columns.Count - 1µL®Ä¡C
¬Æ¦Ü§ï¬°.Columns.Count - 2ÁÙ¬O­pºâ¨ìAYÄæ¡C
·Ð½Ð¦A«ü¥¿!ÁÂÁ§A!

TOP

¦^´_ 15# ziv976688

¹ï¤£°_°Õ,¨S»{¯u¬Ý§Aªº°ÝÃD
À³¥[¤W
  1. Set Rng = Rng.Offset(, Rng.Columns.Count) '**¤U¤@­Ó½d³ò
  2.   If i = 8 Then Set Rng = Rng.Cells(1).Resize(, Rng.Columns.Count - 1)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-5-25 14:15 ½s¿è

¦^´_ 16# GBKEE

§A¤Ó«È®ð¤F^^
¤£½×¹Lµ{¡A¥u½×µ²ªG~¦³¤F³Ì«á¥¿½Tªºµ²ªG¡A§Ú³£¬O¤ß¦s·P¿Eªº¡C

¦A±Nµ´¹ï¦ì§}Rng.Address §ï¦¨µ´¹ïÄæ¦ì§}Rng.Address(0, 1)
§¹¦¨¤F!
·PÁ§Aªº­@¤ß«ü¾É©MÀ°¦£

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD