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

[µo°Ý] ¦Û°Ê¤U©Ô¸ê®Æªº°ÝÃD

[µo°Ý] ¦Û°Ê¤U©Ô¸ê®Æªº°ÝÃD

½Ð°Ý¦U¦ì¤j¤j
·Q½Ð±Ð¤@­Ó¤U®Æ¸ê®Æªº°ÝÃD
¦pÀɮ׸̪º¥¨¶°¡A¦ý§Ú·Q¦]§Ú¼W¥[CÄ檺µ§¼Æ¥i¥H°µ¦Û¤v¤U©Ô¤ñ¼Æªº½Õ¾ã
½Ð°Ý¸Ó«ç»ò§ï³o­Ó³¡¤À
Selection.AutoFill Destination:=Range("D3:D12")

¤U©Ô¸ê®Æ.zip (5.38 KB)

¦^´_ 1# imzues


    [D3].AutoFill Destination:=Range([D3], [C3].End(xlDown).Offset(, 1))
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

­Y§ÚDÄæ©MEÄæ³£¦³¸ê®Æ­n¤U©Ô
¨º§Ú¬O¥u­n§ó§ïOFFSETªº³¡¥÷¶Ü¡H

TOP

¦^´_ 3# imzues
DÄæ©M EÄæ.....³£¦³¸ê®Æ­n¤U©Ô -> ¥i©µ¦ù¨ì³sÄòªºÄæ¦ì
  1. Sub Ex()
  2.     With Range("C3").CurrentRegion
  3.         .Cells(1).Resize(, .Columns.Count).AutoFill Destination:=.Cells
  4.     End With
  5. End Sub
½Æ»s¥N½X

TOP

·PÁ¤j¤jªº¦^´_!!°ÝÃD¤w¸g¸Ñ¨M¤F!!

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD