シートを削除するマクロ

質問

現在開いているブックの一番後ろにあるシートだけ残して、残りのシートを全て削除するマクロを教えて頂きたいのですが。

回答No.4

bonaron · ベストアンサー

Dim i As Integer
Application.DisplayAlerts = False
For i = ActiveWorkbook.Worksheets.Count - 1 To 1 Step -1
　　Worksheets(i).Delete
Next
Application.DisplayAlerts = True

お礼

有難うございます。

回答No.3

marbin

なんどもすみません。

For i = Worksheets.Count-1 To 1 Step -1

でした。
失礼しました。

回答No.2

marbin

逆でした。
For i = Worksheets.Count-1 To 1
としないといけないですね。
失礼しました。

回答No.1

marbin

Worksheets.Count
でシート数が取得できます。

で
For i = 1 to Worksheets.Count-1
のようにループさせたらいいと思います。

なお、
Application.DisprayAlert = False
'シート削除処理
Application.DisprayAlert = True
としないとエラーになります。

お礼

有難うございます。