안녕하세요.__Excel 포멧 깨짐 현상에 관하여 문의 드립니다.__

Question

지금 Excel파일 하나로 여럿이 다른 컴퓨터에서 작업을 하는데 저장후 다른컴퓨터에서 열었을때 Format이 깨지는 현상이 있어 문의 드립니다.

예로 셀병합과 Number format, 셀 색깔이 다 깨지고 있습니다.

컴퓨터는 Window 7 (64bit) 와 Window Vista(32bit)이며 두 컴퓨터 모두 Office Excel 2007을 사용하고 있습니다.

파일 형식은 97-2003 호환용 .xls로 사용하고 있으며 .xlsx 도 가끔 사용하고 있습니다.

Answer 1

안녕하십니까? Suong-Sun Hong님

Microsoft Office의 Excel 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel의 서식이 손상되는 문제에 대한 답변을 드리겠습니다.

기본적으로 Excel 파일의 서식이 손상된다면, 해당 Excel 파일의 손상으로 발생할 수 있는 문제입니다.

Excel의 파일 손상 여부를 확인하는 방법을 알려 드리겠습니다.

1. 해당 Excel 파일을 실행하시기 바랍니다.
2. Excel 파일이 실행되면, 홈탭의 스타일 그룹의 [셀 스타일]을 선택합니다.

3. 셀 스타일 내용이 사용자가 일부러 지정해 놓은 부분을 제외하고 아래와 같은지 확인합니다. 4. 셀 스타일이 깨지고 이상한 문자가 포함되어 있을 경우 Excel 파일의 손상을 의심해 볼 수 있습니다.

Excel 파일 복구하는 방법 - 해당 방법은 반드시 복사본을 이용해서 사용하시기 바랍니다.

1. 안전 모드에서 실행하여 확인 -  또는 실행 창에[excel.exe /safe]를 입력합니다.

a. 윈도우 시작 버튼을 클릭합니다.

b. 모든 프로그램 목록에서 [Microsoft Office]를 선택합니다.

c. Office 항목 중에서 [Microsoft Office Excel 2007]을 Ctrl키를 누른 상태로 실행합니다.

d. 안전 모드에서 실행 여부를 묻는 창이 나타나면, [예(Y)]를 선택합니다.

e. 안전 모드에서도 문제가 반복될 경우, 안전 모드로 부팅하여 문제를 확인합니다.

(안전 모드 부팅하는 방법 : 시스템을 Reboot하고, 윈도우 로고가 나타나기 전에 [F8]이나 [Ctrl]키를 눌러서 부팅 메뉴 중 [안전 모드]를 선택합니다.) 2. 다른 프로그램에서 실행하여 확인

a. PowerPoint, Word, 워드패드, Internet Explorer에서 실행하여 확인합니다.

b. 다른 버전의 Excel(XP, 2000, 2003, 2010)에서 실행하여 확인합니다.

c. Excel Viewer를 통해서 문제 확인합니다.

(http://www.microsoft.com/downloads/details.aspx?FamilyID=1CD6ACF9-CE06-4E1C-8DCF-F33F669DBC3A&displaylang=ko) 3. 이름 관리자 삭제

a. 해당 Excel 파일을 실행합니다.

b. Excel 프로그램이 실행되면, 수식 탭의 [이름 관리자]를 선택합니다.

c. 이름 관리자 메뉴가 나타나면, 필터 메뉴 중 [오류가 있는 이름]을 선택합니다.

d. 검색된 모든 이름을 제거합니다. 4. 스타일 삭제 매크로를 이용하여 제거

a. Excel 프로그램을 실행합니다.

b. Excel 프로그램이 실행되면, Office 메뉴 중 [Excel 옵션]을 선택합니다.

c. 옵션 메뉴가 실행되면, 기본 설정 탭의 [개발도구 리본 메뉴에 표시]를 체크합니다.

d. 개발 도구 탭의 [Visual Basic Editor]를 선택합니다.

e. Visual Basic Editor가 실행되면, 삽입 탭의 [모듈]을 선택하고 실행창에 아래 매크로를 입력합니다.

---

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

---

f. [F5]를 눌러서 해당 매크로를 실행하여 이름과 스타일을 제거합니다.

제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.