수십 개 (또는 수백 개)가 포함 된 워크 시트로 일상적으로 작업합니까

이름이 지정된 셀의 이름은 대부분 불필요합니까? 이름을 정리하는 것은 큰 작업이 될 수 있지만 필요하지 않은 이름을 제거하면 통합 문서를 더 작고 효율적으로 만들 수 있습니다. 문제는 불필요한 이름을 한꺼번에 제거하는 방법입니다. 확실히 한 번에 하나씩 삭제할 수 있지만 이러한 프로세스는 금방 지루해집니다. 이름 관리자를 사용하여 삭제할 수도 있지만 (Ctrl + F3 누르기) 시간이 많이 걸릴 수도 있습니다.

한 가지 가능한 해결책은 단순히 새 통합 문서를 만들고 이전 통합 문서의 셀을 새 통합 문서로 복사하는 것입니다. 이전 통합 문서의 셀을 강조 표시하고 Ctrl + C를 사용하여 복사 한 다음 새 통합 문서의 워크 시트에 붙여 넣습니다. 이렇게하면 수식, 서식 등 이전 통합 문서의 거의 모든 항목이 복사됩니다. 인쇄 설정이나 범위 이름을 복사하지 않습니다. 남은 유일한 작업은 새 통합 문서에서 원하는 몇 가지 이름을 다시 정의하는 것입니다.

이전 통합 문서 (모든 이름이있는 통합 문서)로 작업하려는 경우 이름을 삭제하는 매크로를 만드는 것이 가장 좋습니다. 유지하려는 이름을 제외한 모든 이름을 삭제할 수있는 매크로가 필요합니다. 다음은이 작업을 수행하는 간단한 접근 방식입니다.

Sub DeleteSomeNames()

Dim vKeep     Dim nm As Name     Dim x As Integer     Dim AWF As WorksheetFunction

'Add Names to keep here     vKeep = Array("Name1", "Name2")



Set AWF = Application.WorksheetFunction     For Each nm In ActiveWorkbook.Names         x = 0         On Error Resume Next         x = AWF.Match(nm.Name, vKeep, 0)

On Error GoTo 0         If x = 0 Then             nm.Delete         End If     Next     Set AWF = Nothing End Sub

매크로를 사용하기 전에 vKeep 배열을 만드는 줄을 수정하십시오.

배열 내에 유지하려는 이름을 따옴표로 묶고 쉼표로 구분하여 입력하기 만하면됩니다. (여기에 표시된 예에서는 “Name1″및 “Name2″라는 이름이 유지됩니다.) 매크로는 통합 문서의 모든 이름을 반복하고 Match 함수를 사용하여 이름이 배열에 있는지 확인합니다. 그렇지 않은 경우 삭제됩니다.

통합 문서의 이름을 관리하기 위해 타사 솔루션을 사용하려는 경우 Jan Karel Pieterse가 작성한 이름 관리자 추가 기능을 선택하는 것이 좋습니다. 여기에서 추가 기능에 대한 자세한 정보를 찾을 수 있습니다.

http://www.jkp-ads.com/officemarketplacenm-en.asp

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (11787)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전은 여기에서 찾을 수 있습니다.

link : / excel-Deleting_All_Names_but_a_Few [Deleting All Names but a Few].