목적

: 엑셀에서 특정한 시트 하나만 남기고 모두 삭제 or 원하는 시트만 남기고 모두 삭제하기

 

실행 결과

: 지정한 시트만 남고 모두 삭제됨

 

코드

Sub DeleteSheet()

    Dim xWs As Worksheet
    Application.ScreenUpdating = False
 	Application.DisplayAlerts = False
    'Error Window Hidden

    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
	'Error Window Option Activate


End Sub

'VBA' 카테고리의 다른 글

[VBA] Specific Data Distraction  (0) 2021.04.23
[VBA] last Data Cell Searching  (0) 2021.04.23
[VBA] Sheet.Add and Sheet.Delete Method  (0) 2021.04.23
[VBA] Specific Data Deleting  (0) 2021.04.23
Sheet Deleting except specific sheet  (0) 2021.04.23
Data Distraction and Data-analyzing-insertion  (0) 2021.04.23
블로그 이미지

remoted

Remoted's IT LAB & POST DATABASE

댓글을 달아 주세요