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

[µo°Ý] (¤w¸Ñ¨M)¦p¦ó¥Î¤½¦¡¶ñº¡¥¼ª¾Äæ¦ì

[µo°Ý] (¤w¸Ñ¨M)¦p¦ó¥Î¤½¦¡¶ñº¡¥¼ª¾Äæ¦ì

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 17:03 ½s¿è

¦pªG¬O­n¶ñº¡¥¼ª¾¦C¼Æ §Î¦¡¦p¥k   
  Range("D2").AutoFill Destination:=Range("D2:D"& range("A65536").end(xlup).rows)
   ¿ï¨ú¥¼ª¾Äæ¦ì§Úª¾¹D¬O¤U­±ªº¤è¦¡
    Range("IV1").End(xlToLeft).Columns.Select
   ¥i¬O­n¥Î»É¹³¤è¦¡®M¨ì¶ñº¡¤½¦¡¸Ì­± ­n¦p¦ó¼g?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦pªG¬O­n¶ñº¡¥¼ª¾¦C¼Æ §Î¦¡¦p¥k   
  Range("D2").AutoFill Destination:=Range("D2" range("A65536").end(xlup).rows)
   ¿ï¨ú¥¼ª¾Äæ¦ì§Úª¾¹D¬O¤U­±ªº¤è¦¡
    Range("IV1").End(xlToLeft).Columns.Select
   ¥i¬O­n¥Î¦P¼Ë¤è¦¡®M¨ì¶ñº¡¤½¦¡¸Ì­± ­n¦p¦ó¼g?

¥´¿ù¦r¤F ©êºp
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

©êºp§Úªº°ÝÃDÀ³¸Ó¬O¥t¥~¤@­Ó
Range("D2").AutoFill Destination:=Range("D2:" & Range("IV1").End(xlToLeft).Columns)
¦pªG§Ú¤w¸g°µ¨ì¤W­±³o¦U¦¡¤l
§Ú­n¦A±N¾ã¦C¸ê®Æ¦b©¹¤U¶ñº¡®É­n¦p¦ó¼g?
    Range("D2").AutoFill Destination:=Range("D2:AG2"), Type:=xlFillDefault
    Range("D2:AG2").AutoFill Destination:=Range("D2:AG1381")
   ¤W­±¿ý»sªº±¡ªp¤U ¦pªGÄæ¦ì¬O¥¼ª¾ªº­n¦p¦ó§¹¦¨?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 3# freeffly
¦pªGÄæ¦ì¬O¥¼ª¾ªº   ¥¼ª¾ªº±ø¥ó??

TOP

¥¼ª¾ªºÄæ¦ì¡A¬O§_­þ¤@Äæ©Î¦C¦³¦s¦b¼Æ¾Ú§@¬°½d³òªº¨Ì¾Ú¡H
¦pªG¨S¦³¡A§A·Q«ç»òÅýexcelª¾¹D©p­n½Æ»s¨ì¨º¤@Ä樺¤@¦C¡H

TOP

Set a = [IV2].End(xlToLeft)
Range([D2], a).AutoFill Range([D2], a.Offset(1381))
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# oobird


    À³¸Ó»¡¤½¦¡½Æ»sªºÄæ¦ì¥H²Ä¤@¦æ§@§PÂ_
     ¥i¬O²Ä¤@¦æ·|¨C¤Ñ¼W¥[
     ²Ä¤@Ä檺¼Æ¶q°ò¥»¤W¬O©T©wªº
      ¥Ø«e¬ÝHsieh¤jªº¤è¦¡À³¸Ó¬O§Ú­nªº
      ±ßÂI¸Õ¸Õ
      «Ü©êºp¨S¦³»¡ªº«Ü²M·¡
·s¼WMicrosoft Excel ¤u§@ªí.rar (1.73 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD