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

[µo°Ý] VBA¦hÄæ¦Û°Ê¦V¤U¶ñº¡

¦^´_ 1# msmplay
  1. Sub ¦Û°Ê¶ñº¡()
  2.     Dim r
  3.     r = Cells(Rows.Count, "T").End(xlUp).Row
  4.     Range("U2:BU2").AutoFill Destination:=Range("U2:BU" & r), Type:=xlFillCopy
  5.     Range("U2:BU" & r).Select
  6. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD