SMART SPACE

シートを削除

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
'現在アクティブなシートを削除する
Sub DeleteWorksheet1()
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End Sub

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

'"Sheet1"を削除する
Sub DeleteWorksheet2()
     Application.DisplayAlerts = False
     Worksheets("Sheet1").Delete
     Application.DisplayAlerts = True
End Sub

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

Sub 削除()
'削除する
    Application.DisplayAlerts = False
    Worlsheets("    ").Delete
    Application.DisplayAlerts = True
End Sub

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 
Sub 削除2()
'アクティブシートから右側のシートをすべて選択する()
  Dim i As Long

  For i = ActiveSheet.Index To Sheets.Count
     Sheets(i).Select Replace:=False
  Next i
'削除する
    Application.DisplayAlerts = False
    Worlsheets("    ").Delete
    Application.DisplayAlerts = True
End Sub

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 

Sub 末尾までのシートを削除★success()
'Sheets(2)〜一番右側（末尾）までのシートを削除
 Dim ws As Worksheet
 Application.DisplayAlerts = False
 For Each ws In Worksheets
 If ws.Index >= 2 Then
 ws.Delete
 End If
 Next ws
 Application.DisplayAlerts = True
 MsgBox "削除しました"
 End Sub

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Sub 特定シート以外のシート削除()
'×
Dim Sh As Worksheet

For Each Sh In Sheets
If Not (Sh.Name = "sheet1") Then
'If Not (Sh.Name = "sheet1" Or Sh.Name = "sheet2") Then
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End If
Next

End Sub
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

マクロ集

選択したセル範囲に含まれる図形を削除するマクロ　http://www.relief.jp/itnote/archives/018407.php

 

複数シートを選択するサンプルマクロ　http://www.relief.jp/itnote/archives/017973.php

 

非表示の全ワークシートを削除するマクロ　http://www.relief.jp/itnote/archives/017802.php

 

非表示シートをまとめて表示したい　http://www.relief.jp/itnote/archives/001295.php