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

¥¨¶°ÅܼưÝÃD

¥¨¶°ÅܼưÝÃD

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2018-4-23 19:41 ½s¿è

Sub ¥¨¶°2()

    ActiveCell.FormulaR1C1 = "=RC[-1]/2"
    Range("D6").Select
    Selection.AutoFill Destination:=Range("D6:D69478")
    Range("D6:D69478").Select
End Sub

«e­±ªºA¡AB¡ACÄd³£¦³¸ê®Æ

¥H¤W¬O§Ú¤@­Ó³B²z¸ê®Æªº¥¨¶°¡A·Q½Ð±Ð¤@¤Uª©¤W¤j¤j¡Aµ{¦¡½X¸Ì­±=Range("D6:D69478")¡A¦]¬°¸ê®Æªº¦h¹è¤£¤@¡A¦pªG§Ú­n§âD69478§ï¦¨ÅܼƦӤ£¬O¹³²{¦bªº©T©w¼Æ­n«ç»ò§ï??

§Ú¦³·Q¹L¥ý¥ÎCOUNT¨ç¥Ü¥ýºâ¥X¨ÓCÄd¦³¦h¤Ö¼Æ¾Ú¡A¦ý¬O§Ú¤£ª¾¹D¦p¦ó§â¨ç¼Æ¥[¨ì¸Ì­±¡A§Ú­ì¥ý¬O§â¥¦§ï¦¨=Range("D6:"D"&COUNT(C5:C90000)")¡A¦ý¦n¹³¤£¦æ¡A©Ò¥H½Ð±Ðª©¤W¤j¤j­n¦p¦ó§ó§ï

¦^´_ 4# ­ã´£³¡ªL
­ã¤j¡A·PÁ§A¡A¯uµR§Qªº¸Ñµª

TOP

¦^´_ 3# GBKEE


    G¤j¡A·PÁ§A¡A¦n¤[¨S¤W¨Ó¤F¡A³Ìªñ²´·ú¦³¤ñ¸û¦n¤F¶Ü??

TOP

¦^´_ 7# GBKEE

G¤j¡A¥i¥H³Â·Ð§A¦³®É¶¡À°§Ú¬Ý¬Ý¦n¶Ü?? ·PÁÂ
    http://forum.twbts.com/viewthrea ... mp;extra=#pid105281

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD