Excel 워크북에서 빈 시트를 제거하는 방법

여러분이 다수의 시트를 포함한 큰 워크북을 가지고 있지만, 그 중 일부는 내용이 없는 빈 시트가 있다고 가정해 봅시다. 워크북을 더욱 전문적이고 정식으로 만들기 위해 이러한 빈 시트를 제거하고 싶을 것입니다. 하나씩 수동으로 빈 시트를 삭제하는 대신, 이 가이드에서는 모든 빈 시트를 신속하게 제거하는 방법을 소개합니다.

VBA를 사용하여 모든 빈 시트 제거하기

Kutools for Excel을 사용하여 모든 빈 시트 제거하기

VBA를 사용하여 모든 빈 시트 제거하기

여기에서는 열려 있는 워크북에서 모든 빈 시트를 신속히 제거하는 데 도움이 되는 VBA를 소개합니다.

1. Alt + F11 키를 눌러 Microsoft Visual for Basic Applications 창을 활성화합니다.

2. 삽입 > 모듈을 클릭하고 아래의 VBA 코드를 새로 열린 모듈 창에 붙여넣습니다.

VBA: 빈 시트 제거하기.

Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
    Dim xWs As Worksheet
    Dim xAlert As Boolean
    Dim xCount As Long
    xAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
    For Each xWs In ActiveWorkbook.Worksheets
        If (Application.CountA(xWs.Cells) = 0) And _
           (xWs.Shapes.Count = 0) Then
            xWs.Delete
            xCount = xCount + 1
        End If
    Next
    MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
    Application.DisplayAlerts = xAlert
End Sub

3. F5 키를 누르거나 실행 버튼을 클릭하여 VBA를 실행합니다. 빈 시트를 제거할지 묻는 대화 상자가 나타납니다. 예를 클릭하여 진행하거나 아니요를 클릭하여 작업을 취소합니다.

4. 예를 클릭하면 제거된 시트의 개수를 보여주는 대화 상자가 나타납니다. 확인을 클릭하여 닫으면, 모든 빈 시트가 제거됩니다.

Kutools for Excel을 사용하여 모든 빈 시트 제거하기

Excel 초보자에게는 VBA를 사용하는 것이 다소 어려운 방법일 수 있습니다. 하지만 Kutools for Excel의 빈 워크시트 삭제 기능을 사용하면 세 번의 마우스 클릭만으로 워크북에서 모든 빈 시트를 빠르게 제거할 수 있습니다!

1. 빈 시트를 제거하려는 워크북을 활성화하고 Kutools Plus > 워크시트 > 빈 워크시트 삭제하기를 클릭합니다. 스크린샷 보기:

관련 기사:

• Excel에서 목록의 중복 항목을 계산하고 제거하는 방법은 무엇인가요?
• Excel에서 n번째 문자 이후의 문자열을 삭제하는 방법은 무엇인가요?
• Excel에서 괄호/괄호 안의 텍스트를 제거하는 방법은 무엇인가요?
• Excel에서 선 도형을 제거하는 방법은 무엇인가요?