팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

어떻게 Excel에서 셀 값을 기반으로 워크 시트를 삭제하려면?

하나의 통합 문서에 여러 개의 워크 시트가 있습니다. 셀 값을 기준으로 시트를 삭제하려고합니다. 예를 들어 특정 셀 A1에 "KTE"텍스트가 포함되어 있으면이 텍스트가있는 모든 시트의 셀을 즉시 삭제해야합니다. 이 기사는 Excel에서이 작업을 처리하는 데 도움이 될 수 있습니다.

VBA 코드로 셀 값을 기준으로 워크 시트 삭제

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

화살표 오른쪽 파란색 거품 VBA 코드로 셀 값을 기준으로 워크 시트 삭제

여기에서는 특정 셀에 특정 값이있는 모든 시트를 삭제하는 코드를 소개합니다. 다음과 같이하십시오 :

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈다음 코드를 모듈 창문.

VBA 코드 : 셀 값을 기준으로 워크 시트 삭제 :

Sub deletesheetbycell()
'Updateby Extendoffice 20161008
    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 키를 눌러이 코드를 실행하고 프롬프트 상자가 튀어 나와서 시트를 삭제할 특정 값을 입력하라는 메시지가 표시되면 스크린 샷을 참조하십시오.

셀로 문서 삭제 시트 1

4. 그런 다음 OK 버튼을 누르면 셀 A1의 텍스트 KTE가있는 모든 시트가 한 번에 삭제됩니다. 스크린 샷보기 :

셀로 문서 삭제 시트 2


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

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

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ankur Shah · 3 months ago
    quick question, the above code works for me for deleting worksheets which contain the value which is entered, but what if i want to delete worksheets which do not contain value entered. I tried replacing the "=" operator with the <>" operator, but it does not work. Thanks!
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Ankur,
      As you said, you just need to change the "=" to " <>" as below code:

      Sub deletesheetbycell()
      Dim shName As String
      Dim xName As String
      Dim xWs As Worksheet
      Dim cnt As Integer
      shName = Application.InputBox("Input the text not 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

      Please try, hope it can help you!