2012-06-24 ■ '1列だけ削除するとき、Range()には同じセルを入れる Sub 削除1列() ActiveSheet.Range(Cells(1, 1), Cells(1, 1)) _ .EntireColumn.Delete End Sub