엑셀 스타일 삭제 방법1, 방법2

[방법 1]

1. 파일 확장자를 xlsx ->zip으로 확장자 강제 변경

  cf) xls일 경우 xlsx로 저장 후 작업

2. 압축해제

3. 압축 폴더 내부 xi 폴더 내 styles.xml을 메모장으로 열기

4. 찾기(Ctrl+F) "cellstyles"

5. <cellstyles>부터 </cellstyles> 모두 삭제

6. 저장

7. 재압축

8. 파일확장자를 zip->xlsx로 강제 변경(1번의 역순)

9. 끝

참고 : https://gong6587.tistory.com/2377

[방법 2]

엑셀시트 오른쪽 마우스 우클릭 → 코드보기→코드입력→실행(F5)→나가기→완료

①과 ②를 각각 실행시키기.

①
Sub DeleteNames()
Dim n As Name
Dim lngCount As Long
On Error Resume Next
lngCount = ThisWorkbook.Names.Count
For Each n In ThisWorkbook.Names
    n.Visible = True
    n.Delete
Next n
MsgBox "총 " & lngCount & "개의 [이름] 중, " & lngCount - ThisWorkbook.Names.Count & "개의 [이름] 삭제 완료."
End Sub

②
Sub DeleteStyles()
'/ 첫번째 스타일이 삭제가 되지 않을 때 진행되지 않는 문제로
'/ 마지막 스타일부터 삭제하는 방식으로 수정 (2009-11-20)
Dim lng As Long
Dim lngCount As Long
lngCount = ThisWorkbook.Styles.Count
On Error Resume Next
For lng = ThisWorkbook.Styles.Count To 1 Step -1
    ThisWorkbook.Styles(lng).Delete
Next lng
MsgBox "총 " & lngCount & "개의 [스타일] 중, " & lngCount - ThisWorkbook.Styles.Count & "개의 [스타일] 삭제 완료."
End Sub

출처 : https://kts201010.blog.me/221588802021