데이터 분석, 차트 작성, 전달을 위한 도구를 갖춘 Microsoft 스프레드시트 소프트웨어 제품군입니다.
안녕하십니까? 형균김wt 님
Microsoft Community 사이트를 방문해 주셔서 감사합니다.
문의 하신 Excel 파일 상호간의 복사에 대해 안내를 드리겠습니다.
말씀해 주신 내용은 스크린샷 만 가지고는 정확한 답변이 어렵습니다.
우선 데이터의 텍스트만 복사가 되는 문제의 경우 파일이 하나의 "프로세스"로 실행되지 않는 경우 수식 복사의 기능은 제공되지 않습니다. (폴더 옵션을 조정하신 부분이 원인으로 예상이 됩니다.)
Excel 파일을 하나 실행한 후 [Office]-[열기]를 통해서 파일을 하나더 실행하여 하나의 프로세스에서 2개의 파일을 열어본 후 파일을 복사해 보시기 바랍니다.
또한 서식이 너무 많다고 나타나고 있다면, 예상되는 부분은 2가지 입니다. Excel 파일의 최대 서식 개수를 초과하였거나 파일 손상이 의심이 됩니다.
(Excel 파일이 97~2003 형식-xls의 경우 4000개, 2007 이상-xlsx,xlsm의 겨우 64000개까지 저장이 가능합니다. 만약 xls로 되어 있는 파일이라면 xlsx로 저장하여 확인해 보시기 바랍니다.)
파일 손상의 경우에는 아래 매크로 2가지를 이용하여 손상된 데이터를 제거해 보시기 바랍니다.
(해당 작업은 반드시 백업본으로 진행하여 원본 손상이 없도록 하시기 바랍니다.)
- Alt+F11을 눌러서 VBA 매크로를 실행해 주시기 바랍니다.
- [삽입]-[모듈]을 선택하고 아래 매크로를 입력해 주시기 바랍니다.
(매크로 실행은 시간이 오래 소요될 수 있으며, Sub DeleteName()에서 F5를 눌러서 실행해 주신 후 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
추가적인 내용이 있다면 하단의 [응답] 버튼을 눌러 회신해주시기 바랍니다.
제시해 드린 답변이 도움이 되었기를 바랍니다.
응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.
감사합니다.