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

®æ¤l¿ï¨ú°ÝÃD

Sub test()
    ActiveCell.AutoFill Destination:=Range("B" & ActiveCell.Row & ":B" & [A2].End(xlDown).Row)
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD