VBA 코드 문의 (특정문자가 입력된 시트 제외 후 모든 시트 삭제)

VBA
작성자
yongwo****
작성일
2020-10-08 06:57
조회
52
안녕하세요? 밤새 고민하다가 도저히 안되어, 염치 불구하고 오빠두 게시판에 문의글을 올려봅니다.

업무 특성상 다수의 엑셀 파일을 하나의 파일로 합친 다음(매크로로 해결함), 특정 시트만 추출, 피벗으로 관리해야 하는 문제가 있으며, 이 업무때문에 항상 야근이 필수입니다...ㅠㅠ

특정문자가 들어가있는 시트를 제외한 나머지 시트를 삭제하는 방법을 연구중에 있습니다.

제 생각에는 VBA로 진행해야 할 듯 한데, 어떻게 코드를 짜야 하는지 방법이 없어 연락드립니다.

도움을 주시면 감사하겠습니다.

 

예를 들어 시트가 Packing(1), Packing(2), Sheet1, Sheet2, Sheet3 로 5개의 시트가 있을 시,

"Packing" 문자가 들어간 시트를 제외하고 나머지 Sheet1, Sheet2, Sheet3 는 삭제하고 싶습니다.

 

인터넷에 찾다보니, 특정  시트를 제외한 나머지 시트를 삭제하는 코드는 발견하였는데,

시트의 정확한 Text를 넣어야 되는 문제가 있었습니다.

코드
Sub DeleteSheet()

Dim xWs As Worksheet

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each xWs In Application.ActiveWorkbook.Worksheets

If xWs.Name <> "Sheet1" And xWs.Name <> "남길시트이름" Then 'Sheet1 과 남길시트이름 두개만 남기고 모두 삭제됨

xWs.Delete

End If

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True
전체 3

  • 2020-10-08 22:27

    명령문의 If 절을 아래와 같이 수정하면 바로 해결되실 듯 합니다.

    If Not instr(1, xWs.Name, "Packing") > 0 Then 'Sheet1 과 남길시트이름 두개만 남기고 모두 삭제됨

    xWs.Delete

    End If

    답변이 도움이 되셨길 바랍니다.


    • 2020-10-12 10:36

      대박!!!!!!!!!!!!!

      내일부터 마감인데.... 칼퇴를 바라볼 수 있게 되었습니다... 너무너무너무 감사해요 ㅠㅠ


      • 2020-10-12 10:37

        진짜 진심입니다


      전체 1,351
      번호 카테고리제목작성자작성일추천조회
      1346 함수/공식
      New vlookup 여러개값 가져오기 공식자료의 활용 첨부파일
      승재빠 | 01:05 | 추천 0 | 조회 7
      승재빠01:0507
      1345 차트/그래프
      New 유동적으로 움직이는 그래프 구현 질문드립니다. 첨부파일 (1)
      cress | 2020.10.26 | 추천 0 | 조회 10
      cress2020.10.26010
      1344 차트/그래프
      New 간트차트에서 날짜를 일반서식으로 바꿔도 표기형식이 그대로 보이는 이유는 뭘까요 (1)
      still | 2020.10.26 | 추천 0 | 조회 12
      still2020.10.26012
      1343 함수/공식
      New 셀값안에 있는 다른 경로의 워크시트명을 자동으로 바꿀 수 있나요? (1)
      yachtclub | 2020.10.26 | 추천 0 | 조회 21
      yachtclub2020.10.26021
      1342 VBA
      New VBA 웹크롤링 다운로드 팝업창 열기/저장/취소 선택 방법 (1)
      묵비권 | 2020.10.26 | 추천 0 | 조회 17
      묵비권2020.10.26017
      1341 함수/공식
      New B열의 각 셀이 한개라도 A열과 각셀과 내용이 일치하지 않는 게 있으면 B열 전체색깔을 빨갛게 표시하는 함수가 있을까요? (3)
      마운틴 | 2020.10.26 | 추천 0 | 조회 20
      마운틴2020.10.26020
      1340 VBA
      New vba 특정 셀의 값에 따라 메시지 띄우기 (1)
      엑셀늅늅이 | 2020.10.25 | 추천 0 | 조회 27
      엑셀늅늅이2020.10.25027
      1339 함수/공식
      New 세트 상품을 단품으로 수량 기입해서 합산해야하는데, 문제가 있어요. (2)
      oster | 2020.10.25 | 추천 0 | 조회 27
      oster2020.10.25027
      1338 함수/공식
      New 문장변경 (1)
      작은소녀 | 2020.10.24 | 추천 0 | 조회 30
      작은소녀2020.10.24030
      1337 함수/공식
      New 휴가 현황을 확인할 수 있도록 할 수 있을까요? 첨부파일 (3)
      봉보로봉봉 | 2020.10.24 | 추천 0 | 조회 38
      봉보로봉봉2020.10.24038
      1336 함수/공식
      New 만년 달력 사용중 첨부파일 (1)
      시딘씨 | 2020.10.24 | 추천 0 | 조회 38
      시딘씨2020.10.24038
      1335 VBA
      엑셀 결과 값 매크로 버튼 눌렀을 때만 바뀌게 하는법 있을까요 (1)
      nm12**** | 2020.10.23 | 추천 0 | 조회 43
      nm12****2020.10.23043
      1334 함수/공식
      조건에 맞는 데이터 내림차순으로 정렬 함수 문의 첨부파일 (2)
      혁궁 | 2020.10.23 | 추천 0 | 조회 28
      혁궁2020.10.23028
      1333 대시보드
      대시보드 만들기 3강 (SUMPRODUCT 값 Name 오류) 첨부파일 (2)
      료마 | 2020.10.23 | 추천 0 | 조회 35
      료마2020.10.23035
      1332 함수/공식
      데이터유효성 검사 중 '공백무시'는 어떤 의미인가요? (1)
      성현생각 | 2020.10.23 | 추천 0 | 조회 32
      성현생각2020.10.23032
      1331 VBA
      한글(HWP)로 된 문서를 엑셀에 붙여넣는 작업을 매크로를 이용해 자동화하기 (2)
      화가 | 2020.10.23 | 추천 0 | 조회 35
      화가2020.10.23035
      1330 VBA
      각각 다른 파일을 개별로 메일을 보내고 싶습니다. (1)
      DAN | 2020.10.23 | 추천 0 | 조회 22
      DAN2020.10.23022
      1329 차트/그래프
      거품차트+원형차트 복합 (Compound bubble and pie chart) (4)
      아카시아 | 2020.10.23 | 추천 0 | 조회 40
      아카시아2020.10.23040
      1328 함수/공식
      2가지 조건을 만족하는 함수를 작성해야합니다. (4)
      THEEUGENE | 2020.10.22 | 추천 1 | 조회 49
      THEEUGENE2020.10.22149
      1327 차트/그래프
      간트 차트 내용 추가 관련 문의 드립니다. (1)
      나짱보이 | 2020.10.22 | 추천 0 | 조회 23
      나짱보이2020.10.22023
      1326 VBA
      VBA로 특정 셀 잠그기 / 잠금 해제하기 (1)
      엑셀늅늅이 | 2020.10.22 | 추천 0 | 조회 32
      엑셀늅늅이2020.10.22032
      1325 피벗테이블
      피벗테이블에서 사용날짜에 있는 값들이 이전 달에 들어가서 합이 되어 버리는 오류가 발생합니다. 첨부파일 (2)
      김광수 | 2020.10.22 | 추천 0 | 조회 36
      김광수2020.10.22036
      1324 차트/그래프
      [질문] 월 데이터를 그래프로 그릴 때 공휴일, 토, 일은 그래프에서 삭제하고 싶습니다. (4)
      그때의너 | 2020.10.22 | 추천 0 | 조회 40
      그때의너2020.10.22040
      1323 차트/그래프
      연결하여 붙여넣기(그림) 선택옵션에서 안보여서용 ㅠㅠ도와주세용 (2)
      윤사슴 | 2020.10.21 | 추천 0 | 조회 42
      윤사슴2020.10.21042
      1322 기능/도구
      조건부서식 아이콘표시 문의 첨부파일 (10)
      글래스 | 2020.10.21 | 추천 0 | 조회 56
      글래스2020.10.21056
      1321 차트/그래프
      선생님.. 첨부파일 (3)
      rpaq**** | 2020.10.21 | 추천 0 | 조회 55
      rpaq****2020.10.21055
      1320 함수/공식
      다운받은게 추가기능에서 설치가 된거 같은데 작동을 안하네요. 첨부파일 (1)
      Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 39
      Fund 꿈전사2020.10.21039
      1319 문서서식
      원하는 프르그렘 엑셀 유료 제작도 해주시나요? (1)
      Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 72
      Fund 꿈전사2020.10.21072
      1318 VBA
      엑셀에서 아웃룩일정 입력하는 방법에 관한 질문 (2)
      naver_5f8b682a12bb7 | 2020.10.21 | 추천 0 | 조회 34
      naver_5f8b682a12bb72020.10.21034
      1317 문서서식
      인쇄물 좌측하단 사용자정보 삭제방법 문의 첨부파일 (2)
      naver_5f8ee15a8602b | 2020.10.20 | 추천 0 | 조회 34
      naver_5f8ee15a8602b2020.10.20034