엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail

1. Visual Basic 방식

엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail

엑셀을 실행 시킨 뒤 ALT + F11을 누르면 실행이 된다.

실행 후 "현재_통합_문서" 를 더블 클릭하여 편집창이 나오면 아래의 내용을 복사하여 넣는다.

Sub style_delete() 
   Dim n As Style 
   Dim counter As Long 
   For Each n In ActiveWorkbook.Styles 
       If n.BuiltIn = False Then 
           On Error Resume Next 
           n.Delete 
           counter = counter + 1 
           On Error GoTo 0 
       End If 
   Next 
   MsgBox counter & "개가 제거 되었습니다." 
End Sub
엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail
실행 완료 모습

넣은 후 F5를 눌러 실행하면 1차적으로 지워질건 지워진다. (응답없음이 오래 떠있을 경우도 있음, 기다리면 된다.)

이 작업을 한뒤에 "넣었던 내용을 삭제" 하고 나온다.

2. 파일 구조 변경
엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail

제거를 해도 지워지지 않는 스타일들이 있다. 사진과 같이 특수기호들과 깨진문자들이 그렇다. 

이를 제거 하려면 아래와 같이 진행 하면 된다.

엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail
.xlsx > .zip 확장자 변경
엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail
압축 해제

엑셀 파일의 확장자를 "zip파일"로 변경한다. 

이후 압축을 해제하여 보면 "_rels, docProps, xl, [Content_Types].xml " 이 나옵니다.

xl " 폴더로 들어가 "styles.xml" 파일을 편집기로 열고 작업을 합니다. (메모장, notepad++, 등등 다 됨) 

 

엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail
메모장으로 열기

 

엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail
<cellStyles count= 부터 </cellStles> 까지 삭제한다.

 


> 메모장으로 연뒤에 CTRL + F 를 눌러 "
cellstyles count" 을 검색하고, <cellStyles Count= *****지울 스타일들 쭉있다아아아아~~****************</cellStyles> 까지 지운다. 많을 것이다. 정확하게 지워야 한다. 지운 후 저장하고 닫는다.

> 양이 많기 때문에 팁을 주자면 "시작점을 검색하여 엔터로 내려놓고, 끝나는지점도 검색후 엔터로 분리" 를 한 후 제거한다. 

 

> 다음 다시 압축을 하고, 확장자를 변경한다. "zip" > "xlsx" 이 후 실행하면 엑셀 기본값으로 설정이 되어진다.

 

3. 수식삭제

 

엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail
불필요한 수식 삭제

위쪽까지 작업을 진행하였다면 다음 작업은 불필요한 수식을 삭제하는 작업이다.

상단에 " 수식 > 이름관리자" 순서로 누르면 이름 관리자 창이 뜨는데, 여기서 값이나, 이름을 보고 쓰지 않는 것들을 제거하면 된다. 

실제로 쓰고있는 수식도 있기 때문에 확인 하면서 지워야 한다. 

대부분 값에 #REF!가 삭제 대상이다. 

 

4. 셀 서식이 너무 많습니다.

이것도 저것도 아니고 너무 복잡하다 할때는 XLStyles Tool을 다운받아 작업하면 된다.

엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail
Microsoft Store 에서 XLStylesTool 을 검색하여 무료로 받아볼 수 있다.

 

 

엑셀 지워지지 않는 스타일 - egsel jiwojiji anhneun seutail
XLStyles Tool을 실행하여 파일을 불러온뒤 정리하면 된다. ( Get File > Process Files )

XLStyles Tool이 가장 강력하고 금방 끝나긴 하지만, 가끔 작업해둔 모든것이 날라가긴 한다. 

 

또한 이 툴은 자동으로 세이브가 되기 때문에, 복사본을 만들어 실행 해보고 이상이 없다면 사용하길 권장한다.

공유하기

게시글 관리

구독하기이엠지 블로그

저작자표시 비영리 변경금지

  • 카카오스토리
  • 트위터
  • 페이스북

'〔 Etc. 〕' 카테고리의 다른 글

한글 엑셀 파워포인트 임시저장  (0)2016.10.10[Excel] 한/영 자동 변환  (0)2016.08.09

서류 뭉치 좋아하는 관공서의 계약자료를 하루종일에 걸쳐 작성하고 저장 후 다시 열었더니 모든 서식이 깨져있다.

정말이지 뭉크의 절규가 저절로 재연되는 순간이며, 때아닌 개나리, 십장생, 신발끈, 조카 크레파스 색깔이 18색이라는 멘트가 ~~ 휴~~~~

오래 전부터 누적되어 사용하던 엑셀이 무겁다.

아마도 수식과 서식이 차곡차곡 쌓여 군살들이 어마무시하겠지

(실제 매크로 사용하여 스타일 삭제 해보니 6천개가 아닌 6만개의 스타일이 찾아짐 ㅠ 그러나 깨끗히 삭제되지 못해 아쉬움이 있다.)

캐드파일엔 퍼지(Purge)기능이 있어, 무게를 줄일 수 있는데, 엑셀에는 비슷한 기능이 없을까??

스트레스 만랩이라 열일 제켜두고 엑셀의 퍼지기능 찾아 엑셀 다이어트시키기.

두둥

두둥

두둥

결론부터 얘기하자면 방법이 있네!!

첫번째는 수식의 이름관리자 정리하기

두번째는 서식 스타일 정리하기

1. 수식의 이름관리자 정리하기

가. 엑셀 숨겨진 모든 이름 보이기

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

입력할 코드 (붙여넣기 하세요.)

Sub show_Names()

'/// (숨겨진) 모든 이름을 보이게 함

Dim n As Name

For Each n In ThisWorkbook.Names

n.Visible = True

Next n

End Sub

나. 이름관리자 삭제

엑셀 이름관리자 실행하면 숨어있던 이름이 왕창 뜸.

모두 선택 후 삭제하기 → 해결

↓ 이전에 올렸던 글

수식정리는 '숨은 이름 삭제'로 해결

https://kts201010.blog.me/220924586834