シート作成毎の削除方法

質問

３０枚シートを作成し５シート毎に新規ブックで保存をし、アクティブシートに新規で保存した分は
削除し、新たに５シート毎に新規ブックで保存し。。を繰り替えし30枚シートを6ブックに分けたいのですが
うまくいきません。
初めにインデックスを作成しているのでワークシートa以降から５シート毎に削除したいのですが・・
下記のプログラムをループの中に入れて実行させたいのですが、'★からの命令でaシート以降５シート毎に削除
したいのですが削除すらできません。。
何かアドバイスがありましたらお願い致します。

　　　　　　list_cnt = list_cnt + 1

If list_cnt = 5 Then

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "【●●】分析資料.xls"

’★ ActiveWorkbook.Worksheets.Delete After:=Worksheets("a")

End If

回答No.2

n-jun · ベストアンサー

後ろから５枚ずつを５つのブックに分けます。
⇒残った５枚を移動させるの・・・？

Sub　try()
　Dim　i　As　Integer,　j　As　Integer
　Dim　v(4)　As　Variant

　Application.ScreenUpdating　=　False
　For　i　=　5　To　1　Step　-1
　　　　　For　j　=　0　To　4
　　　　　　　　　v(j)　=　i　*　5　+　(j　+　1)
　　　　　Next
　　　　　ThisWorkbook.Worksheets(v).Move
　　　　　ActiveWorkbook.Close　True,　Filename:=ThisWorkbook.Path　&　"\○○_"　&　i　&　".xls"
　Next
　Application.ScreenUpdating　=　True
End　Sub

一旦配列変数：vにシートインデックスＮｏを代入し５枚毎にMove（移動）させ、
新しいブックに重複しないようファイル名を変えながら保存してます。

ご参考になれば。

回答No.4

n-jun

n-junです。

＞３０枚シートを作成し５シート毎に新規ブックで保存をし、
＃２のコードは”３０シート出来ている”状態の物ですので、作成からであれば
・・・ちょっと的はずれかも。

回答No.3

imogasi

5シートはどういう風に決定するのか、しっかり書かないと、解答しようが無い。
（１）シートタブの左から見えている順
シートの「インデックス番号の１－５、６－１０、・・
ということになる。
（２）シートの名前がa1,a2,a3,a4,a5,b1,b2,b3,b4,b5・・・
などと在って、aのシート５つ、bのシート５つという風にまとめるのか。この場合、サブ番号数字の判別など結構複雑と思う。
（３）その他のまとめ方か
ーー
削除については
この質問の５ブックに５シートずつ保存して、１つのシートを残し（エクセルでは１つは必要）他を削除してはダメですか。
下記は削除する処理のみ
Sub test01()
Application.DisplayAlerts = False
Sheets.Add
For i = 2 To Sheets.Count
Sheets(2).Delete
Next i
Application.DisplayAlerts = True
End Sub
ーー
質問の重点が
シートの５シートづつ分割にあるのか
シートの削除にあるのか
はっきりしない。
---
>初めにインデックスを作成しているのでワークシートa以降から５シート毎に削除したいのですが・
＞インデックスを作成しているので
＞a
の意味もわかりにくい。突然aとは何。

回答No.1

fujillin

ワークシートの後ろから5シートを削除したいのですよね？

　Application.DisplayAlerts = False
　For i = 1 To 5
　　ActiveWorkbook.Worksheets(Worksheets.Count).Delete
　Next i
　Application.DisplayAlerts = True
とかではどうでしょうか？
（まとめて指定して消去するのもありだろうけど、同じようなものなので…）

なお、直接の御質問内容ではありませんが、
　Filename:=ThisWorkbook.Path & "【●●】分析資料.xls"
は、思ったとおりのパス（ファイル名）になっていますか？
（\をつけなくてもいいのかな？）
…というか、毎回同じ名前で上書きしてたりしませんか？