통합 문서에서 빈 시트를 제거하는 방법

시트가 여러 개인 큰 통합 문서가 있지만이 통합 문서에 내용이없는 빈 시트가 있다고 가정합니다. 통합 문서를보다 전문적이고 형식적으로 만들기 위해 통합 문서에서 이러한 빈 시트를 제거 할 수 있습니다. 빈 시트를 하나씩 제거하는 대신 모든 빈 시트를 빠르게 제거하는 방법을 소개합니다.

VBA로 빈 시트 제거

Excel 용 Kutools로 빈 시트 제거

---

VBA로 빈 시트 제거

여기에서는 열린 통합 문서에서 모든 빈 시트를 빠르게 제거하는 데 도움이되는 VBA를 소개합니다.

1. 프레스 Alt + F11 활성화 할 키 기본 애플리케이션 용 Microsoft Visual 창.

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를 실행하고 빈 시트를 제거할지 여부를 알려주는 대화 상자가 나타나면 가능 제거를 계속하려면 아니 이 VBA를 취소합니다.

4. 클릭 후 가능, 제거 된 시트의 수를 알려주는 대화 상자가 나타나면 OK 닫고 모든 빈 시트가 지금 제거되었습니다.

---

Excel 용 Kutools로 빈 시트 제거

일부 Excel 녹색 손의 경우 VBA는 실행하기가 다소 어려운 방법이지만 Excel 용 Kutools의 빈 워크 시트 삭제 기능을 사용하면 세 번의 마우스 클릭으로 통합 문서에서 모든 빈 시트를 빠르게 제거 할 수 있습니다!

무료 설치 Excel 용 Kutools는 다음과 같이하십시오.

1. 빈 시트를 제거 할 통합 문서를 활성화하고 쿠툴즈 플러스 > 워크 시트 > 빈 워크 시트 삭제. 스크린 샷보기 :

 

---

관련 기사 :

• Excel의 목록에서 중복 항목을 계산하고 제거하는 방법은 무엇입니까?
• Excel에서 n 번째 문자 뒤의 문자열을 삭제하는 방법은 무엇입니까?
• Excel에서 대괄호 / 괄호 안의 텍스트를 제거하는 방법은 무엇입니까?
• Excel에서 선 모양을 제거하는 방법은 무엇입니까?

---