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

½Ð°Ýexcel vba ªº¦Û°Ê¶ñ¤J

½Ð°Ýexcel vba ªº¦Û°Ê¶ñ¤J

½Ð°Ý¦U¦ì«e½ú
¥H¤U³o¬q vba
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=""9A95""&RC[2]"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B236")
    Range("B2:B236").Select

¤p©f·QÅý¥¦¦Û°Ê¶ñ¤J
¥i¬O¨C¦¸Àɮתºµ§¼Æ¦³¥i¯à·|¤£¤@¼Ë
Ä´¦p»¡  ³o¦¸ªºÀÉ®×  ¦³236µ§
¦ý¤U¦¸­n³B²zªºµ§¼Æ¥i¯àÅÜ280µ§
¦p¦ó§â¥¦§ï¦¨ÅܼÆ
¨Ì·Ó¨C¦¸­n³B²zªºµ§¼Æ¥h¦Û°Ê¶ñ¤J¤½¦¡©O??
ÁÂÁÂ

¦^´_ 1# niceshot
Selection.AutoFill Destination:=Range("B2:B" & [A2].End(xldown).Row)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ÁÂÁª©¤j
    °ÝÃD¸Ñ¨M¤F

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD