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

¤£½T©w®æ¤l¦V¤U¶ñº¡

¤£½T©w®æ¤l¦V¤U¶ñº¡

½Ð±Ð¦U¦ì«e½ú¡A¤p§Ìª¾¹D¦Û¤w¼gªº¥y¤l¡A¥i¥H¦b¦³AÄ榳­È±¡§Î¤U¡A
¥i¥H¦b§ÀÄæ¤U©Ô¦Û°Ê¶ñº¡
¦ý¬O·|¹J¨ìªº±¡§Î¨Ã¤£¤@©w·|¬O¦bAÄ榳­È
¤]³\·|¬O¦bE©Î F©Î¤£½T©w¬YÄæ·|¥X²{²Ä¤@Äæ


¨ú²Ä¤@®æªº¦C = Selection.Row
¨ú²Ä¤@®æªº¼Æ¶q = Selection.Count

With Selection.Resize(Range("A1").CurrentRegion.Rows.Count + 1 - ¨ú²Ä¤@®æªº¦C, ¨ú²Ä¤@®æªº¼Æ¶q)
   '³o¤@¥y¤p§Ì·Q¯}ÀY¤]¤£·|~~~½Ð¦U¦ì¤j¤j«ü¾É

     .FillDown
    ActiveSheet.Range("A1").CurrentRegion.Calculate
    .Copy
    .PasteSpecial Paste:=xlPasteValues
   
End With

¥¼©R¦W.jpg (139.18 KB)

¥¼©R¦W.jpg

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD