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

Excel¸ò¾Úa1®æ¼Æ¦r¦Û°Ê¼W¥[¦C°ÝÃD

Excel¸ò¾Úa1®æ¼Æ¦r¦Û°Ê¼W¥[¦C°ÝÃD

¥»©«³Ì«á¥Ñ tangandchun3 ©ó 2018-6-27 09:23 ½s¿è

¸ò¾ÚA¦C©Ò¥Ü¼Æ­È¼W¥[¦C,
¦pA1=12¼W¥[12  ¦C,
A2=10¼W¥[10¦C
¦p¦¹Ãþ±À
GOOD BOY

¦^´_ 1# tangandchun3
  1. Sub ex()
  2. r = [A65536].End(xlUp).Row
  3. For i = r To 2 Step -1
  4. k = Cells(i, "A")
  5. Cells(i, "A").Offset(1).Resize(k, 5).Insert Shift:=xlDown
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  tangandchun3
Hsieh µoªí©ó 2018-6-27 09:54



    ÁÂÁ§A¡C¦ý¬O§Ú·Q°Ý¤U¬O§_¤@©w­nvba¤~¯à§¹¦¨¡H
GOOD BOY

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD