ªð¦^¦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
2017-11-01_101446.jpg
2017-11-1 10:37


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


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


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
2017-11-01_104517.jpg
2017-11-1 10:48


±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)

2017-11-01_134930.jpg
2017-11-1 13:50

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD