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

VBA

2021.11.182025.06.02

この記事は約1分で読めます。

記事内に広告が含まれています。

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

ポイント

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

サンプルコード
解説

サンプルコード

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