ªð¦^¦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¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD