投稿日: 2020年8月27日 投稿者: knsys終端セル Sub SampleStatement() ActiveCell.End(Direction:=xlDown).Activate End Sub