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

EXCEL²Å¦X±ø¥óÀx¦s®æ¤U¤è´¡¤J¤@¦C

EXCEL²Å¦X±ø¥óÀx¦s®æ¤U¤è´¡¤J¤@¦C

¦U¦ì¤j¤j¦n¤p§Ì§Ú¦³¤@­Óexcel°ÝÃD¤£ª¾¦p¦ó³B¸Ì½Ð±Ð¤@¤U
po n01234        po#5678
zxcv                                 1
zxcv                                 24
zxcv                                    31
po n01234        po#5678                  
zxcv                                 21
zxcv                                 21
zxcv                                 3
po n01234        po#5678
zxcv                                12
zxcv                                  2
zxcv                                  3

·Q­n±N¦oÂà´«¦¨   

po n01234
po#5678
zxcv
zxcv
zxcv
po n01234
po#5678
zxcv
zxcv
zxcv
po n01234
po#5678
zxcv
zxcv
zxcv
½Ð±Ð§Ú­n¦p¦ó³B¸Ì§Ú¸Õ¤F«Ü¦h¤èªk¬Ò¤£¯à¹F¨ì­n¨D
lionliu

¦^´_ 1# lionliu

²Å¦X±ø¥óÀx¦s®æ¤U¤è´¡¤J¤@¦C
±ø¥ó ¬O¤°»ò?
1.gif

TOP

¥»©«³Ì«á¥Ñ lionliu ©ó 2012-3-23 11:47 ½s¿è

·PÁÂregister313ªº«ü¾É°Õ
§Aªº¤èªk§Ú²{¦b´ú¸Õ¤¤
¦ý¬O¦³¥i¯à¥Î¦Û°Ê¿z¿ï¨Ó°µ¶Ü
±ø¥ó¦¡ range(a:a).value = "PO**"
¦]¬°§Úªºpo­È¤£©T©w©Ò¥H¤~·|·Q¥H"po**"§@±ø¥ó
Ãþ¦ü³o¼Ëªº§@ªk¶Ü
ÁÂÁ§A
lionliu

TOP

¦^´_ 3# lionliu

VBA
  1. Sub FF()
  2. LastR = [A65536].End(xlUp).Row
  3. For R = LastR To 1 Step -1
  4.   If Cells(R, 1) Like "po*" Then
  5.      Cells(R + 1, 1).Insert Shift:=xlDown
  6.      Cells(R, 2).Copy Cells(R + 1, 1)
  7.   End If
  8. Next R
  9. [B:B] = ""
  10. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂregister313²Ä¤@ºØ¤èªk¦³°µ¥X¨Ó¤FÁÂÁÂ
¦ý¦]¹³¦¸«Üªø©Ò¥H¤~·|¦³²Ä¤GºØ·Qªk
²{¦b¨Ó¸Õ¤@¤U
lionliu

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD