엑셀 스타일 한번에 삭제 및 기본값 복원

스타일삭제 및 기본값 복원 아래 내용은 손상된 셀 스타일과 이름을 제거하는 매크로입니다.

 

Excel 파일을 실행하고,

 Alt+F11을 눌러서 VBA 매크로를 실행합니다.

 

[삽입]-[모듈]을 선택한 후 아래 내용을 입력합니다.

 

---------------------------------------------------------------------------

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

---------------------------------------------------------------------------

 

Sub DeleteNames()/Sub DeleteStyles()에서 각각 F5를 눌러서 이름과 스타일을 제거하시기 바랍니다.

(해당 작업은 시간이 오래 소요될 수 있습니다.)

삭제가 완료되면, 손상되어 사라진 스타일들을 다시 지정하시기 바랍니다.

 

다른 방법으로 하다 응답없음 되었는데 이 방법으로 제거가 됐습니다.

 

스타일이 많아 처음에 응답없음으로 되다 조금 지나면 삭제가 완료 됩니다.

 

이상 충돌이 입니다. ^^