데이터 분석, 차트 작성, 전달을 위한 도구를 갖춘 Microsoft 스프레드시트 소프트웨어 제품군입니다.
앞서 안내해 드린 내용처럼 새로운 Excel 파일에서는 발생되지 않으시나요?
혹시 항상 발생되는 문제가 아니라서 확인이 어렵다면, 아래 내용을 통해서 파일의 손상된 셀 스타일이나 이름을 제거해 보시기 바랍니다.
(아래 내용은 반드시 백업본을 만들어 주고 적용하시기 바랍니다.)
Excel 프로그램 실행 후 Alt+F11을 입력하여 VBA 매크로에서 [삽입]-[모듈]의 내용에 아래 매크로를 입력해 주시기 바랍니다.
(Sub DeleteNames() 과 Sub DeleteStyles()에서 각각 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