VBAでのシートの削除について

質問

あるシート("コントロール")の前に存在するシートを全て削除しようと思います。どう記述すれば良いでしょうか？

あるシート("コントロール")の前にシートを追加するときは、
Worksheets.Add BEFORE:=Sheets("コントロール")
でいけたので、
Worksheets.Delete BEFORE:=Sheets("コントロール")
でいけるだろうと思ったら、無理でした。

教えてください。

回答No.1

Wendy02 · ベストアンサー

あまり、そのようなコードを考えたことはないけれども、こんな風にすればできるかな？

Sub test()
　Application.DisplayAlerts = False
For i = 1 To Worksheets.Count
　On Error GoTo Endline
　Worksheets("コントロール").Previous.Delete
Next
Endline:
　Application.DisplayAlerts = True
End Sub

回答No.2

imogasi

下記実験をしてみてください。
私の場合３つのシートが当初作られるように設定してます。
それにワークシート挿入をして４つにしました。ただし３や４に意味はありません。
（Ａ）
Sub test01()
For i = 1 To 4
MsgBox Worksheets(i).Name
Next i
End Sub
（Ｂ）
Sub test02()
MsgBox Worksheets("sheet4").Index
End Sub
（Ｃ）
Sub test03()
d = Worksheets("sheet4").Index
For i = 1 To d
MsgBox Worksheets(i).Name
Next i
End Sub
（Ａ）を実行すると、左からシート名が表示されることを納得してください。
（Ｂ）を実行すると、同じく左からシート名が表示されます。
Ｓｈｅｅｔ４の位置を前後に移動させてやってみてください。
ワークシートというコレクションはＩＮＤＥＸで指定できます。
ＩＮＤＥＸ順に表示されてます。
であれば（Ｃ）でＳｈｅｅｔ４というシート名のＩＮＤＥＸ値をしり、
１からそれまで（または１つ手前まで）を指定すれば、質問のことができることがわかります。
後は、コレクションから減らすときはＤＥＬＥＴＥなので、ＤＥＬＥＴＥに変えればよい。
Sub test04()
Dim sn(30)
d = Worksheets("sheet4").Index
For i = 1 To d
sn(i) = Worksheets(i).Name
Next i
For i = 1 To d
Worksheets(sn(i)).Delete
Next i
End Sub
前半のＮａｍｅの部分をＤｅｌｅｔｅにして（後半をなしにして）実行すると、Ｄｅｌｅｔｅのつどｄが少なくなるのでうまくいきませんので注意。