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

[µo°Ý] (¤w¸Ñ¨M)¨Ï¥Î¦Û°Ê¿z¿ï­×§ï¸ê®Æ

¦^´_ 9# bgtsai
³o¤@¥y·|µo¥Í¿ù»~(¦¹³B»Ý­nª«¥ó)
   
  1. With ¤u§@ªí2  '<- ª«¥ó¦b³o¸Ì
  2.    For Each a In .Range(.[A2], .[A2].End(xlDown))  '¦bA2¥H¤UÀx¦s®æ°µ°j°é'
  3. '   
  4. ' d(a.Value) = a.Offset(, 1).Value  '¥Haªº­È§@¬°¯Á¤Þ¡Aaªº¥k°¼Àx¦s®æªº­È¥[¤J¦r¨åª«¥ó
  5.    Next
  6. End With
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD