시간과 공간 그리고 진실의 방

www.oppadu.com/%EC%97%91%EC%85%80-vba-%EB%A7%88%EC%A7%80%EB%A7%89-%EC%85%80-%EC%B0%BE%EA%B8%B0-%EB%A7%88%EC%A7%80%EB%A7%89-%ED%96%89-%EC%B0%BE%EA%B8%B0/

1. 시트 추가

아래는 시트를 추가하는 소스의 예제이다.

Sub AddSheets()
    Sheets.Add
    Sheets.Add after:=Sheets(2)
    Sheets.Add before:=Sheets(2)
End Sub

Sheets.Add는 실행한 시트 왼쪽에 새로운 시트를 만든다.

Sheets.Add after:=Sheets(인덱스 번호)는 인덱스 번호에 있는(2의 경우 두번째 시트)시트를 기준으로 오른쪽에

새로운 시트를 생성한다.

Sheets.Add before:=Sheets(인덱스 번호)는 인덱스 번호에 있는(2의 경우 두번째 시트)시트를 기준으로 왼쪽에

새로운 시트를 생성한다.

2. 시트 삭제

아래는 시트를 삭제하는 소스의 예제이다.

Sub DeleteSheets()
    Sheets(5).Delete
End Sub

Sheets(인덱스 번호).Delete는 해당 인덱스 번호의 시트(5의 경우 다섯번째 시트)를 삭제한다.

단 데이터가 있는 경우 삭제확인을 한다.

삭제 확인을 안보고 싶다면 Sheets(인덱스 번호).Delete 위에 

Application.DisplayAlerts = False

를 추가해주면 된다. 단 위 구문 이후에는 경고창이 안나오기 때문에 되돌리고 싶다면

위 구문에서 False를 True로 해주면 된다.

mainia.tistory.com/1235

목적

: 엑셀에서 특정한 시트 하나만 남기고 모두 삭제 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