セル 指定セルを上方向に削除
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub ExcelCellUpDelete() '*********************** '指定セルを上方向に削除 '*********************** Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Sheet1") With sht .Range(.Cells(3, 2), .Cells(5, 2)).Delete Shift:=xlUp End With '左方向に削除 Selection.Delete Shift:=xlUp '行全体を削除 Selection.Delete Shift:=xlToLeft '列全体を削除 Selection.EntireColumn.Delete End Sub |