エクセルVBAマクロ　セル削除・挿入　足立区西新井 パソコン教室 アクティブ

指定したセルを削除

Sub Delete_Cell()
Range("C3").Delete
End Sub
　　セル削除後上方向へシフトされます。

削除後左方向へシフト

Sub Delete_Cell()
Range("C3").Delete Shift:=xlShiftToLeft
End Sub

若しくは
Sub Delete_Cell()
Range("C3").Delete (xlShiftToLeft)
End Sub
　　セル削除後左方向へシフトされます。

指定したセルを挿入　Insert

Sub Insert_Cell()
Range("C3").Insert
End Sub
　　セル挿入後下方向へシフトされます。

挿入後右へシフト

Sub Insert_Cell()
Range("C3").Insert Shift:=xlShiftToRight
End Sub

若しくは
Sub Insert_Cell()
Range("C3").Insert (xlShiftToRight)
End Sub
　　セル挿入後右方向へシフトされます。

Sub Clear_Cell()
Range("C3:E5").ClearContents
End Sub
指定されたセルの入力されたデータが削除されます

指定したセルの全てクリア

Sub Clear_Cell()
Range("C3:E5").Clear
End Sub
指定されたセルの全て（書式含む）が削除されます

指定したセルのコピー

Sub Copy_Cell()
Range("C3:E5").Copy Destination:=Range("G3")
End Sub
　　指定下セルにコピー（書式含む）
　　Destination 目的地　

指定したセルを違うシートにコピー

Sub Copy_Cell()
Range("C3:E5").Copy Destination:=Worksheets("Sheet2")_Range("G3")
End Sub

指定したセルの切り取り貼り付け

Sub Cut_Cell()
Range("C3:E5").Cut Destination:=Range("G3")
End Sub
　　指定下セル切り取り貼り付け（書式含む）
　　Destination 目的地　

指定したセルを違うシートにコピー

Sub Cut_Cell()
Range("C3:E5").Cut Destination:=Worksheets("Sheet2")_Range("G3")
End Sub

ワークシートの追加（後ろに追加）
Sub Add_WorkSheet()
Worksheets.Add
End Sub

ワークシートの追加（後ろにCount分追加））
Sub Add_WorkSheet()
Worksheets.Add Count:=3
End Sub