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

[µo°Ý] ¦Û°Ê¶ñ¤J¤º®e¨ì¸ê®Æ®æ¤º

[µo°Ý] ¦Û°Ê¶ñ¤J¤º®e¨ì¸ê®Æ®æ¤º

¥»©«³Ì«á¥Ñ kan109 ©ó 2010-11-2 16:41 ½s¿è

¦Û°Ê¶ñ¤J¸ê®Æ®æ
ªþ¥órar
B Ä椺¸ê®Æ®æ¤º,¦p¥ô¦ó¤º®e,¦Û°Ê¶ñ¤Jª½¨ì¤U¤@²Õ¤º®e¥X²{

¦pB64¦³¤å¦r(alfasnd) ª½¨ìB69«e§¡¬°ªÅ®æ. ­n65-68¦Û°Ê¶ñ¤JB64ªº¤å¦r(alfasnd)

·PÁÂ!!!!¦]¬°¦³17000 ¨Ò~¤£¯à³v®æ¤J©Î³v®æ½Æ¨î~!!!·PÁÂ!!!! sample_10.rar (4.19 KB)
excel~ ¾Ç¦n¥L§a

¦^´_ 1# kan109
§A¬O­n³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim Rng As Range, E As Range
  3.     Set Rng = Sheet1.Range("C:C").SpecialCells(xlCellTypeConstants).Offset(, -1).SpecialCells(xlCellTypeBlanks)
  4.     For Each E In Rng.Areas
  5.         Union(E, E.Offset(-1)).FillDown
  6.     Next
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


§ÚÀ³¸Ó¦p¦ó¨Ï¥Î¦¹¤½¦¡???·PÁ¸U¤À
excel~ ¾Ç¦n¥L§a

TOP

¦^´_ 3# kan109


    °ò¥»¾Þ§@
1.¿ï¨úb3:b92
2.«öF5
3.¯S®í/ªÅ®æ
4.¦¹®É§@¥ÎÀx¦s®æ¬°B5¿é¤J¤½¦¡=B4
5.«öCTRL+ENTER§¹¦¨¿é¤J
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-11-2 19:22 ½s¿è

¦^´_ 3# kan109
³o¤£¬O¤½¦¡ ¬OVBAªºµ{¦¡½X
¶i¤JVBAªºµøµ¡¦³¤G¦p¤U

EX1.GIF                              

¶i¤JVBAªºµøµ¡«á ¶K¤Wµ{¦¡½X¦p¹Ï   ½Ð±Nµ{¦¡½X ½Æ»s«á¶K¤W §¹¦¨



°õ¦æµ{¦¡½X¤èªk¦³¤G  
1¦bVBAªºµøµ¡ ·Æ¹«²¾¨ìµ{¦¡½X Sub x()   ......¤§¶¡...... End Sub   «ö¤UF5  °õ¦æµ{¦¡½X
2¦p¤U¤G¹Ï

      

TOP

GBKEE¤j¤j ¸ÑÄÀªº¦n¸Ô²Ó  Åý¤p§Ì¹ïVBA ¦³§ó¶i¤@¨B»{ÃÑ  ¦hÁÂÅo!!
swapjj

TOP

¦^´_ 6# swapjj


    ¨ä¹ê±z¥i¥H¸ÕµÛ¥ÎHSª©¥D©Ò±Ðªº°ò¥»¾Þ§@
²³æ©öÀ´¤]¹ê¥Î ^ ^....




¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¦^´_ 4# Hsieh

¥t¥~½Ð°Ýª©¥D
¦b¨|¾Ç¦Óºô¯¸ªº²Ä1ÃD¦Û§Úµû¶q..
    ¦p¦ó¦b15¬í¤º¤@¦¸±N4Äæ¦ì5¸U¦C¸ê®Æ¤@¦¸½Æ»s§¹¦¨©O¡H½Ð±NªÅ®æ¶ñº¡
©M¼Ó¥Dµoªº°ÝÃD¤@¼Ë
¥i¥H½Ð°Ý¦p¦ó¦P®É¥þ¿ï¸ê®Æ¤@¦¸½Æ»s§¹¦¨??
ÁÂÁ±z..

¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

§Y¦p¥|¼Ó©Ò¥Ü¡A¦ý²¤¹L¿ï¨ú½d³ò¨BÆJ¡C
¥þ¿ï¡AF5,¯S®í/ªÅ®æ, «ö"=",«ö¦V¤WÁä¡ACTRL+ENTER

TOP

¥»©«³Ì«á¥Ñ PD961A ©ó 2010-11-3 14:26 ½s¿è

¦^´_ 9# oobird


ÁÂÁ    ª©¥D
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD