Excel ] 엑셀 스타일 삭제하기

 

 

 

외부에서 가져온 엑셀 파일에 스타일이 굉장히 많이 존재하는 경우가 있다.

 

 

 

이렇게 많은 스타일은 파일의 용량을 커지게하고, 속도저하의 원인이 될 수 있으므로 꼭 필요한게 아니라면 삭제해주면 좋다.

 

 

1. 단축키 ALT + F11 을 눌러 Visual Basic을 연다.

 

파일 - 옵션 - 리본 사용자 지정 에서 개발도구를 체크 한 뒤 개발 도구 탭에서 Visual Basic을 클릭해도 된다.

 

 

 

2. 삽입 - 모듈

 

 

 

3. 모듈에 아래 텍스트를 입력한다.

Sub 셀스타일삭제()

  Dim 스타일 As Style
  Dim 개수 As Long
  For Each 스타일 In ActiveWorkbook.Styles
      If 스타일.BuiltIn = False Then
          On Error Resume Next
          스타일.Delete
          개수 = 개수 + 1
          On Error GoTo 0
      End If
  Next
  MsgBox 개수 & "개의 불필요한 셀 스타일 제거 완료"
End Sub

 

4. 모듈을 실행한다.

 

 

 

 

 

삭제 완료.

 

 

모듈 삭제 후 Visual Basic을 종료한다.

 

 

 

출처 : https://m.blog.naver.com/vp7080/221041611404