Excelシートの追加・削除

ExcelVBAから、ワークシートの追加、削除をする方法です。

Sub test()
     Dim tuikaWorksheet As Worksheet
     'ワークシートの追加をします。
       Set tuikaWorksheet = Sheets.Add
     '追加したワークシートの名前を変更します。
       tuikaWorksheet.Name = "hoge"
End Sub

これで、今選択されているワークシートの直前に新しいワークシートが追加されます。
今あるワークシートの最後に追加する場合、

Sub test()
     Dim tuikaWorksheet As Worksheet
     '最後のシートの後ろにワークシートの追加をします。
      Set tuikaWorksheet = Sheets.Add(After:=Worksheets(ActiveWorkbook.Worksheets.Count))
     '追加したワークシートの名前を変更します。
       tuikaWorksheet.Name = "hoge"
End Sub

このような形になります。任意のワークシート名の後ろに追加する場合は、上記の
After:=Worksheets(ActiveWorkbook.Worksheets.Count)の中の
ActiveWorkbook.Worksheets.Countの部分をワークシート名にすればOKです。

ワークシートを削除する場合は、

Sub test()
     'アラートを表示させないようにします。
     Application.DisplayAlerts = False
     'ワークシート名を指定して削除します。
     ActiveWorkbook.Worksheets("hoge").Delete
     'アラートを表示させるようにします。
     Application.DisplayAlerts = True
End Sub

のようにワークシート名を指定して削除します。ワークシート番号でも指定可能です。

VBAのお勉強　まとめへ戻る