Note: The other languages of the website are Google-translated. Back to English

Excel에서 빈 워크 시트를 모두 삭제하는 방법은 무엇입니까?

많은 워크 시트가있는 통합 문서가있는 경우 그 안에 빈 워크 시트가 있습니다. 이제 빈 워크 시트를 삭제하여 파일을 저장하거나 보관하려고합니다. 여러 워크 시트에서 빈 시트를 검색하고 자동으로 삭제하려면 어떻게해야합니까?

VBA 코드가있는 모든 빈 워크 시트 삭제

Excel 용 Kutools로 모든 빈 워크 시트 삭제

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.
  • 무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
  • 20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
  • 붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
  • 슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; 필터 굵게, 수식, 주석으로 ...
  • 300개 이상의 강력한 기능; Office 2007-2021 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다.

화살표 블루 오른쪽 거품 VBA 코드가있는 모든 빈 워크 시트 삭제

빈 워크 시트를 확인하고 하나씩 제거하는 것은 번거롭지 만 다음 VBA 코드를 사용하면 모든 빈 워크 시트를 한 번에 쉽게 삭제할 수 있습니다.

1. 누르고 ALT + F11 키가 열립니다. 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여 넣습니다.

VBA : 모든 빈 워크 시트 삭제

Sub DeleteBlankWorksheets () 'Update 20130830 Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False For each Ws In Application.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Then Ws.Delete End 다음 Application.ScreenUpdating = True 인 경우 Application.DisplayAlerts = True End Sub

3. 그런 다음 F5 키를 누르면 모든 빈 워크 시트가 한 번에 삭제됩니다.


화살표 블루 오른쪽 거품 Excel 용 Kutools로 모든 빈 워크 시트 삭제

VBA 코드에 익숙하지 않은 경우 쉬운 도구를 소개해 드릴 수 있습니다. Excel 용 Kutools그와 빈 워크 시트 삭제 한 번의 클릭으로 모든 빈 워크 시트를 제거 할 수 있습니다.

Excel 용 Kutools 300 개 이상의 편리한 Excel 도구가 포함되어 있습니다. 30 일 동안 제한없이 무료로 사용해보세요. 그것을 지금.

Excel 용 Kutools를 설치 한 경우 다음 단계를 수행하십시오.

1. 딸깍 하는 소리 Enterprise > 워크 시트 도구 > 빈 워크 시트 삭제, 스크린 샷 참조 :

문서 삭제 공백 시트1

2. 빈 워크 시트를 모두 삭제할지 여부를 알려주는 프롬프트 상자가 나타납니다. 스크린 샷을 참조하십시오.

문서 삭제 공백 시트2

3. 그런 다음 가능, 빈 워크 시트가 성공적으로 삭제되었습니다. 스크린 샷보기 :

문서 삭제 공백 시트3
-1
문서 삭제 공백 시트4

이 기능에 대해 더 알고 싶다면 빈 워크 시트 삭제.


관련 기사 :

Excel에서 숨겨진 워크 시트를 삭제하는 방법은 무엇입니까?


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (3)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
'WorkbookClass' 유형의 'WorksheetFunction' 공개 멤버를 찾을 수 없습니다.
Interop.Excel을 사용하고 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Estimado, no se si me pueda ayudar. 매크로 사전 승인을 위한 사전 조치, 로그 없이 처리해야 하는 문제, 해결해야 할 문제, 해결해야 하는 문제 Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

라 매크로:

Sub Buscar_Hojas_Vacías_y_Eliminallas2()

정수로 Dim Nhojas
Dim i As 정수

오류에 대한 다음 재개
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = 시트.카운트

i = 1의 경우 Nhojas에게

WorksheetFunction.CountA(Sheets(i).UsedRange) = 0이고 Sheets(i).Shapes.Count = 0이면

시트(i).삭제

다른
' 나다
END IF
다음 i

오류 발생시 0
Application.ScreenUpdating = True
Application.DisplayAlerts = 참

최종 하위

Gracias, espero sus commentarios.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 당신의 언어를 말할 수 없지만 당신의 코드에 결함이 있습니다.
문제는 >> Nhojas = Sheets.Count입니다.
그런 다음 Nhojas에 의존하지만 시트를 삭제할 때 Nhojas를 1로 줄이지 않습니다.

따라서 "Sheets(i).Delete" 뒤와 "Else" 앞에 다음 줄을 코드에 추가하기만 하면 됩니다.
Nhojas = Nhojas - 1

기부 :)

좋은 일을 해냈지만 코드를 디버그하고 시도할 때 코드를 드라이 런해야 합니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호