엑셀 스타일 지우기 소개(VBA이용)

회사 생활하면서 엑셀 정말 많이 씁니다. 그러다 보니 여러 사람을 거친 엑셀 파일에 '스타일'이 많이 남아있기도 합니다. 엑셀 시트에 별 정보도 없는데 용량이 크거나 로딩 시간이 오래 걸리는 이유가 스타일이 워낙 많아서 이기도 합니다. 

엑셀 기능 스타일은 미리 정해진 셀 서식입니다. 엑셀 파일을 열면 홈 탭에서 스타일을 확인할 수 있습니다.

클릭 한번으로 미리 정해진 스타일을 골라서 쓸 수가 있어 편합니다.

 

 

하지만 서두에 말씀드린 것처럼 스타일이 엄청나게 많은 지저분한 엑셀도 있습니다. (아래를 보시면 스타일이 엄청 많은 엑셀입니다)

 

스타일 지우는 방법 소개드리겠습니다. ALT+F11 을 눌러서 VBA 창으로 들어갑니다.

 

현재_통합_문서에 커서를 대고 마우스 왼쪽을 두 번 클릭하면 오른쪽에 빈 화면이 생깁니다.

아래 코드를 복사를 하고,

Sub styleDel()

Dim i As Long

On Error Resume Next

For i = ThisWorkbook.Styles.Count To 1 Step -1

    ThisWorkbook.Styles(i).Delete

Next i

MsgBox "스타일 삭제 완료"

End Sub

 

코드를 붙여넣기 해줍니다.

 

붙여진 코드 화면에서 F5를 누르면 매크로 창이 뜨는데요. 코드 styleDel이 파란색으로 선택되어 있는 것을 확인하고 오른쪽에 '실행'을 눌러줍니다.

 

 

스타일 개수에 따라 시간이 많이 소요될 수도 있습니다. 스타일 삭제가 완료되면 아래와 같은 메시지가 뜹니다.

엑셀 창으로 가서 스타일을 확인해 보면 그 많던 스타일이 다 사라졌습니다. 그런데 안 지워진 스타일도 보이네요. 이 놈들도 지워보겠습니다.

 

 지우고 싶은 스타일에 커서를 대고 마우스 오른쪽을 누르고 '수정'을 선택해줍니다.

 

맨 아래 보호에 체크를 해제하면 선택한 스타일을 지울 수 있습니다.

이상 엑셀 스타일 지우기 소개였습니다.