ªð¦^¦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 : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD