Excel VBAで「先頭以外のシートを削除する」コードを紹介します。
30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！
無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！
うめ
30日間以内に解約すれば費用は発生しません！
サンプルコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub sample() Application.DisplayAlerts = False Dim i As Long '最終シートから繰り返し For i = Sheets.Count To 1 Step -1 '1シート以外は削除 If i <> 1 Then Sheets(i).Delete End If Next i Application.DisplayAlerts = True End Sub |
解説
繰り返し処理の中で最大シートを取得して、シート位置が1シート以外であればシートを削除していきます。
うめ
最大シート数を取得して、後ろからシートを削除していきます。
For文で「For i = Sheets.Count To 1 Step -1」と指定することで、ループする度にiの数を減らす処理となります。
3シートの場合はi=3となりますが、ループで回すと(シート削除)i=2に減ります。
