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

[µo°Ý] ½Ð°Ý¤@¤U¦p¦óÀò¨ú¼Ï¶sÄæ¦ì¸Ì¶µ¥Ø??

¥i¥H´£¨ÑÀɮ׶Ü?
¥t¥~¥Ø«e±oª¾µLªkª½±µ¨ú±o¤j¤ÀÃþ¤¤ªº¶µ¥Ø¡A¥i¥HÅܳq¤@¤U¶¡±µ¨ú±o¡C

TOP

¥H¤U´X­Ó°ÝÃD»P±z½T»{¤U:
1. §Aªº¸ê®Æ½d³ò©Ç©Çªº¡C


2. ª÷ÃB&¼Æ­ÈÀ³¸Ó­n©Ô¨ì­ÈªºÄæ¦ì¸Ì¡C
2017-11-01_101610.jpg

3. ­Y­n¬Ý¨ì¸Ô²Óªº¤º®eÀ³¸Ó­n§â "¤j¤ÀÃþ"©Ô¨ì ¦C¼ÐÅÒ¡A
´N¥i¥H¬Ý¨ì¸Ì­±ªº­È¡C


4. ¦A±N±z­nªº½d³ò¥ý"½Æ»s" ¡A
¦A¨ìK1Äæ ¡A«ö·Æ¹«¥kÁä "¿ï¾Ü©Ê¶K¤W" ­È¡A
¦A±NªÅ®æ¶ñº¡§A­nªº­È¡A´N¬O§A­nªº²M³æ¡C


±N¥H¤Wªº°Ê§@¥Î¥¨¶°¿ý»s°_¨Ó´N¬O±z­nªºµ{¦¡¤F¡C
æ´»é_ç°_-1.zip (9.76 KB)

TOP

Sub EX_1()

    Range("A1").Select
    Selection.End(xlDown).Select
   
    ROW1 = ActiveCell.Row
   
    Range("AD1:AD" & ROW1).Value = Range("A1:A" & ROW1).Value

End Sub

æ´»é_ç°_ -2.zip (22 Bytes)

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD