【VBA】先頭以外のシートを削除

Excel VBAで「先頭以外のシートを削除する」コードを紹介します。

ポイント

今回の処理はシート名は気にせず、シート位置で削除対象になっているか判断をしています。

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

サンプルコード
解説

サンプルコード

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