ExcelVBAでアクティブシート以外のシートを削除する

ExcelのVBAでアクティブシート以外のシートを削除する方法。

残したいシート（アクティブシート）を先頭に移動しておき、先頭シートを残すように最終シートから先頭シートに向かってシートの削除を行う。

Sub SheetsClear()

'' アクティブシートを先頭に移動

ActiveSheet.Move Before:=Sheets(1)

'' 確認・警告メッセージの抑制

Application.DisplayAlerts = False

'' 最終シートから先頭シートの1つ前までを削除

For i = Sheets.Count To 2 Step -1

Sheets(i).Delete

Next i

'' 確認・警告メッセージの抑制解除

Application.DisplayAlerts = True

End Sub

上記の例では、シートの削除を行うときに確認メッセージが表示されないように「Application.DisplayAlerts」にFalseを設定し、処理が終わったらTrueに戻している。