모든 사용자 정의 셀 스타일 삭제 EXCEL

Question

통합 문서에서 사용자 정의/생성된 셀 스타일을 모두 삭제할 수 있습니까? 기본 스타일을 그대로 둡니다.

일일이 삭제할 필요 없이

Answer 1

다음 작은 VBA 매크로를 사용해 보세요.

Sub StyleKiller()
    Dim N As Long, i As Long

    With ActiveWorkbook
        N = .Styles.Count
        For i = N To 1 Step -1
            If Not .Styles(i).BuiltIn Then .Styles(i).Delete
        Next i
    End With
End Sub

이는 다음을 해결합니다.내장대관습문제. 루프를 실행합니다.뒤로루프 인덱스 손상을 방지합니다.

Answer 2

를 사용하지 않고 간단히 모두 제거하려면 INDEX다음을 시도하십시오.

Sub StyleKiller()
    Dim st As Style
    On Error Resume Next
    For Each st In ActiveWorkbook.Styles
      If Not st.BuiltIn Then
        st.Delete
      End If
    Next
    On Error GoTo 0
End Sub

Answer 3

위의 모든 작업은 작동하지만 작업용 PC는 꽤 오래되어 매크로가 계속 충돌합니다. 어떤 이유로 많은 파일에 수백 개의 셀 스타일이 있어 문서 속도가 느려집니다.

내 솔루션은 쉽고 빠르다는 것이 밝혀졌습니다.

통합 문서의 모든 워크시트를 선택하고 새 책에 복사합니다. 이는 모든 외부 링크와 형식, 그리고 스타일을 제외한 모든 것을 유지하며 복사되지 않습니다.

이전 통합 문서 위에 새 통합 문서를 저장합니다(이전 통합 문서를 먼저 닫습니다).

Answer 4

사용자 정의 스타일 문제는 다음에서도 논의됩니다.http://support.microsoft.com/kb/213904

KB 문서에서 제안한 대로 MS Store에서 무료 "XLStyles 도구"를 설치하는 것이 사용자 정의 스타일을 삭제하는 매우 편리한 방법이라는 것을 알았습니다.