シート名がリストにない場合、シートを削除するにはどうすればよいですか？

たとえば、下のスクリーンショットに示すように、列Aのワークブック内のシート名のリストを含むワークシートがあり、ワークブック内の特定のシート名の一部がリストにない場合、そうでないシートを削除したいとします。列Aのリストにあります。Excelでこのタスクをすばやく簡単に解決するにはどうすればよいですか。

VBAコードで特定のリストにないシートを削除する

VBAコードで特定のリストにないシートを削除する

通常、シート名をXNUMXつずつ確認し、シート名リストにないものを削除することができます。 しかし、ここでは、それに対処するためのVBAコードについて話すことができます。 次のようにしてください。

1。 シート名リストを含むワークシートに移動し、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：リストにないシートを削除する

Sub Deletenotinlist()
'Updateby Extendoffice
    Dim i As Long
    Dim cnt As Long
    Dim xWb, actWs As Worksheet
    Set actWs = ThisWorkbook.ActiveSheet
    cnt = 0
    Application.DisplayAlerts = False
    For i = Sheets.Count To 1 Step -1
        If Not ThisWorkbook.Sheets(i) Is actWs Then
            xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
            If IsError(xWb) Then
                ThisWorkbook.Sheets(i).Delete
                cnt = cnt + 1
            End If
        End If
    Next
    Application.DisplayAlerts = True
    If cnt = 0 Then
        MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Have deleted" & cnt & "worksheets"
    End If
End Sub

Note：上記のコードでは、 A2：A6 はシート名を含むセル参照です。必要に応じて変更できます。

3。 そして、 F5 このコードを実行するためのキー、リストにないシートはすぐに削除されました。スクリーンショットを参照してください。