|
名前を付けてシート挿入 (位置指定)
Worksheets.Add(After:=ActiveSheet).Name = "アクティブシートの後"
Worksheets.Add(After:=Worksheets("Sheet1")).Name = "Sheet1の後"
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "最後のシート"
最後に複数
Worksheets.Add After:=Worksheets(Worksheets.Count), Count:=2
>追加したシートを削除して元の状態に戻す方法
これは、
1、追加する前の全シート名をどこかに控えおいて、控えたシート名の中に無かったら削除するとか。
2、もしくは、追加したシートのシート名をどこかに控えておいて、控えておいたシート名で削除するとか。
(2は、複数枚のソート挿入には対応できないと思う。複数枚挿入時の名前の付け方を知らない。)
>・シートを前に追加していくときに、一番最初のシートからシートまで、左を先頭にして順に並べる
意味が良く解りませんが、下を参考にして見てください、
【51943】選択した複数のシートをソート
|
|