- ©«¤l
- 364
- ¥DÃD
- 39
- ºëµØ
- 0
- ¿n¤À
- 404
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-4-18
|
¥¨¶°ÅܼưÝÃ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¤jn¦p¦ó§ó§ï |
|