Excel에서 셀 값에 따라 워크시트를 삭제하는 방법은 무엇입니까?

통합 문서에 여러 시트가 있고 특정 셀의 내용을 기준으로 일부 시트를 삭제해야 하는 경우, VBA를 사용하여 이 작업을 자동화할 수 있습니다. 예를 들어, A1 셀에 특정 단어나 구문이 포함된 모든 시트를 제거하고 싶을 수 있습니다. 이 가이드에서는 Excel에서 이러한 시트를 신속히 식별하고 삭제하기 위해 VBA를 사용하는 방법을 보여드리겠습니다.

VBA 코드를 사용하여 셀 값에 따라 워크시트 삭제하기

VBA 코드를 사용하여 셀 값에 따라 워크시트 삭제하기

여기서는 특정 셀에 특정 값이 있는 모든 시트를 삭제하는 코드를 소개하겠습니다. 아래 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 셀 값에 따라 워크시트 삭제하기:

Sub deletesheetbycell()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
                                    "", , , , , 2)
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Range("A1").Value = shName Then
            xWs.delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub

참고: 위의 코드에서 A1은 삭제하려는 시트를 기준으로 특정 텍스트가 포함된 특정 셀입니다.

3. 그런 다음 이 코드를 실행하기 위해 F5 키를 누르면, 삭제하려는 시트를 기준으로 특정 값을 입력하라는 메시지 상자가 나타납니다. 스크린샷 참고:

4. 확인 버튼을 클릭하면, A1 셀에 'KTE'라는 텍스트가 포함된 모든 시트가 한 번에 삭제됩니다. 스크린샷 참고: