엑셀 시트 복사시 이름 정의 삭제프로그램

[주황규 팀장]

name_kill.xla

안녕하십니까? solidgun 님

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

문의 하신 Excel에서 시트 복사시 이름 충돌 문제에 대한 답변을 드리겠습니다.

말씀해 주신 [이름 관리자]에서 모두 제거하였는데도 이름 충돌 오류가 발생된다면, [이름]을 숨겨놓았을 가능성이 높습니다. 아래 내용을 확인하여 숨긴 이름을 보기로 변경하신 후 확인해 보시기 바랍니다.

VBA 편집기(Alt + F11)를 실행한 후 [삽입]-[모듈]에 아래 내용을 입력하시기 바랍니다.

Sub Show_Names()
'/// (숨겨진) 모든 이름을 보이게 함
Dim n As Name
For Each n In ThisWorkbook.Names
    n.Visible = True
Next n
End Sub

Sub Delete_Names()
Dim n As Name
On Error Resume Next
For Each n In ThisWorkbook.Names
n.Visible = True
n.Delete
Next n
End Sub

해당 내용을 입력하신 후 지금 실행(F5)를 눌러서 해당 매크로를 실행해 주시기 바랍니다.

다시 이름 관리자를 확인하여 숨겨져 있던 이름이 이제 보이는지 확인하신 후 손상된 이름을 제거해 보시기 바랍니다.

만약 해당 방법으로 해결이 안된다면, 해당 파일을 공개된 카페 또는 블로그에 올려 주신 후 링크를 주시기 바랍니다. 확인 후 지원을 도와드릴 수 있습니다.

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

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

응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.

esErrNameDelete.xls<=== 오류가 엑셀파일 열어놓고 좌측 엑셀도 열어놓고 F5

============================================================================

엑셀을 띄우시고요

ALT + F11을 눌러 주세요

메뉴의 보기-프로젝트탐색기   Ctrl+R을 눌러주세요

위와같이 비쥬얼베이직이 뜨면요

각시트들 더블클릭하면 흰색화면이 뜰것입니다.

거기에 이것을 붙여넣기 해주세요..

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

Sub Delete_Names() '숨겨진 이름목록 지우기
Dim n As Name
On Error Resume Next
For Each n In ThisWorkbook.Names
       n.Visible = True
       n.Delete
Next n
End Sub

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

붙여넣기 하셨으면 위와같은 모양일 것입니다.

그리고 메뉴에 형식밑에 비디오 플레이어 보시면 재생 비슷한 모양의 '▶' 삼각형을 눌러주시면 위와 같은 메뉴가 뜰것입니다.

각시트한번씩 실행시켜주시고

붙여넣기한것들 다 지워주시고 저장하신다음에 씨트 복사하시면 원활하게 될겁니다 ^^

엑셀 시트(sheet) 복사할때 이동하거나 복사할 수식이나 시트에 있는 이름 "○○"이(가) 대상 워크시트에 이미 있습니다. 이 이름을 그대로 사용하시겠습니까? 라고 뜰때 이 파일을 이 문구가 뜨는 파일과 같이 실행시키세요.

그럼 이름 정의 삭제프로그램이 실행됩니다.

아 참 이 첨부 파일을 실행하면 아이콘 3개짜리 도구창이 뜹니다. 거기서 제일 좌측 아이콘을 누르고 사용하십시오.

khnamealldelete.xls

원본 시트에 이름때문에 그렇습니다.

Ctrl + F3을 눌러보세요.

무의미한 이름을 삭제하세요. 그리고 그 메세지 창이 뜨면 계속 예를 해야 창이 닫히면서 시트복사가 됩니다.