Excel 에서 특정 이름 범위가 사용된 위치를 어떻게 찾을 수 있나요？

Excel 의찾기 및 바꾸기기능을 사용하면 특정 이름 범위를 적용하는 모든 셀을 쉽게 찾을 수 있습니다。 다음 단계를 따르세요：

1. Ctrl+F키를 동시에 눌러 찾기 및 바꾸기 대화 상자를 엽니다。

참고： 이 찾기 및 바꾸기 대화 상자는홈>찾기 및 선택>찾기를 클릭해서 열 수도 있습니다。

2. 열린 찾기 및 바꾸기 대화 상자에서 다음 스크린샷과 같이 작업하세요：

(1) 특정 이름 범위의 이름을찾을 내용상자에 입력합니다；

(2)통합 문서를범위 내에서드롭다운 목록에서 선택합니다；

(3)모두 찾기버튼을 클릭합니다。

참고： 범위 내에서 드롭다운 목록이 보이지 않으면 검색 옵션을 확장하려면옵션버튼을 클릭하세요。

이제 지정한 이름 범위의 이름을 포함하는 모든 셀이 찾기 및 바꾸기 대화 상자 하단에 나열되는 것을 확인할 수 있습니다。 스크린샷 참조：

참고： 찾기 및 바꾸기 방법은 특정 이름 범위를 사용하는 모든 셀뿐만 아니라 해당 이름 범위로 포함된 모든 셀도 찾아냅니다。

이 방법에서는 Excel 에서 특정 이름 범위를 사용하는 모든 셀을 찾기 위한 VBA 매크로를 소개합니다。 다음 단계를 따르세요：

1. Alt+F11키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다。

2. 삽입>모듈을 클릭하고 열린 모듈 창에 다음 코드를 복사하여 붙여넣습니다。

VBA： 특정 이름 범위가 사용된 위치 찾기

Sub Find_namedrange_place()
Dim xRg As Range
Dim xCell As Range
Dim xSht As Worksheet
Dim xFoundAt As String
Dim xAddress As String
Dim xShName As String
Dim xSearchName As String
On Error Resume Next
xShName = Application.InputBox("Please type a sheet name you will find cells in:", "Kutools for Excel", Application.ActiveSheet.Name)
Set xSht = Application.Worksheets(xShName)
Set xRg = xSht.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not xRg Is Nothing Then
xSearchName = Application.InputBox("Please type the name of named range:", "Kutools for Excel")
Set xCell = xRg.Find(What:=xSearchName, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
        If Not xCell Is Nothing Then
xAddress = xCell.Address
If IsPresent(xCell.Formula, xSearchName) Then
xFoundAt = xCell.Address
End If
            Do
Set xCell = xRg.FindNext(xCell)
If Not xCell Is Nothing Then
If xCell.Address = xAddress Then Exit Do
If IsPresent(xCell.Formula, xSearchName) Then
If xFoundAt = "" Then
xFoundAt = xCell.Address
Else
xFoundAt = xFoundAt & ", " & xCell.Address
End If
End If
Else
Exit Do
End If
Loop
End If
If xFoundAt = "" Then
MsgBox "The Named Range was not found", , "Kutools for Excel"
Else
MsgBox "The Named Range has been found these locations: " & xFoundAt, , "Kutools for Excel"
End If
On Error Resume Next
xSht.Range(xFoundAt).Select
End If
End Sub
Private Function IsPresent(sFormula As String, sName As String) As Boolean
Dim xPos1 As Long
Dim xPos2 As Long
Dim xLen As Long
Dim I As Long
xLen = Len(sFormula)
xPos2 = 1
Do
xPos1 = InStr(xPos2, sFormula, sName) - 1
If xPos1 < 1 Then Exit Do
IsPresent = IsVaildChar(sFormula, xPos1)
xPos2 = xPos1 + Len(sName) + 1
If IsPresent Then
If xPos2 <= xLen Then
IsPresent = IsVaildChar(sFormula, xPos2)
End If
End If
Loop
End Function
Private Function IsVaildChar(sFormula As String, Pos As Long) As Boolean
Dim I As Long
IsVaildChar = True
For I = 65 To 90
If UCase(Mid(sFormula, Pos, 1)) = Chr(I) Then
IsVaildChar = False
Exit For
End If
Next I
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(34) Then
IsVaildChar = False
End If
End If
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(95) Then
IsVaildChar = False
End If
End If
End Function

4. 첫 번째로 열리는 Kutools for Excel 대화 상자에 시트 이름을 입력하고확인버튼을 클릭합니다。 그런 다음 두 번째로 열리는 대화 상자에 특정 이름 범위의 이름을 입력하고확인버튼을 클릭합니다。 스크린샷 참조：

5. 이제 세 번째 Kutools for Excel 대화 상자가 나타나고 아래 스크린샷과 같이 특정 이름 범위를 사용하는 셀이 나열됩니다。

이 대화 상자를 닫으려면확인버튼을 클릭하면 지정한 워크시트에서 찾은 셀들이 즉시 선택됩니다。

참고: 이 VBA 는 한 번에 하나의 워크시트에서만 특정 이름 범위를 사용하는 셀을 검색할 수 있습니다。

Kutools for Excel 이 설치되어 있다면， 여기에 포함된셀 이름 바꾸기유틸리티를 사용해 Excel 에서 특정 이름 범위를 사용하는 모든 셀과 수식을 찾아 목록으로 표시할 수 있습니다。

1. Kutools>더보기>셀 이름 바꾸기를 클릭하여 셀 이름 바꾸기 대화 상자를 엽니다。

2. 열린 셀 이름 바꾸기 대화 상자에서이름탭으로 이동한 후이름 기준드롭다운 목록을 클릭하고 아래 스크린샷과 같이 특정 이름 범위를 선택합니다：

이제 특정 이름 범위를 사용하는 모든 셀과 해당 수식이 대화 상자에 즉시 나열됩니다。

3. 셀 이름 바꾸기 대화 상자를 닫습니다。