投稿日: 2020年8月29日 投稿者: knsys編集済 最終セル Sub SampleStatement() ActiveCell.SpecialCells(Type:=xlCellTypeLastCell).Activate End Sub