ªð¦^¦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 : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD