시트 이름이 목록에 없는 경우 시트를 삭제하려면 어떻게 해야 하나요?

아래 스크린샷과 같이 A열에 통합 문서 내의 시트 이름 목록이 포함된 워크시트가 있다고 가정해 보겠습니다. 그리고 통합 문서의 특정 시트 이름들은 해당 목록에 포함되어 있지 않습니다. 이제 저는 A열 목록에 없는 시트들을 삭제하고 싶습니다. 이 작업을 Excel에서 빠르고 쉽게 해결하려면 어떻게 해야 할까요?

VBA 코드를 사용하여 특정 목록에 없는 시트 삭제하기

VBA 코드를 사용하여 특정 목록에 없는 시트 삭제하기

일반적으로, 시트 이름을 하나씩 확인한 다음 목록에 없는 시트를 삭제할 수 있습니다. 하지만 여기서는 VBA 코드를 사용하여 처리하는 방법에 대해 설명드리겠습니다. 아래 단계를 따라 주세요:

1. 시트 이름 목록이 있는 워크시트로 이동한 후 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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 "No sheets found to delete.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Have deleted " & cnt & " worksheets."
    End If
End Sub

참고: 위의 코드에서 A2:A6 은 시트 이름이 포함된 셀 참조입니다. 필요에 따라 변경할 수 있습니다.

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면 목록에 없는 시트들이 즉시 삭제됩니다. 스크린샷을 참조하세요: