Excel에서 특정 명명된 범위가 어디에 사용되었는지 어떻게 찾을 수 있나요?

우리는 Excel의 찾기 및 바꾸기 기능을 쉽게 적용하여 특정 명명된 범위를 적용하는 모든 셀을 찾을 수 있습니다. 아래 단계를 따라주세요:

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

참고: 홈 > 찾기 및 선택 > 찾기를 클릭하여 이 찾기 및 바꾸기 대화 상자를 열 수도 있습니다.

2. 열린 찾기 및 바꾸기 대화 상자에서 다음 스크린샷에 표시된 대로 진행하세요:

(1) 찾을 내용 박스에 특정 명명된 범위의 이름을 입력합니다;

(2) 내부 드롭다운 목록에서 통합 문서를 선택합니다;

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

참고: 내부 드롭다운 목록이 보이지 않는 경우, 검색 옵션을 확장하기 위해 옵션 버튼을 클릭하세요.

이제 지정된 명명된 범위의 이름이 포함된 모든 셀이 찾기 및 바꾸기 대화 상자의 하단에 나열됩니다. 스크린샷 참조:

참고: 찾기 및 바꾸기 방법은 특정 명명된 범위를 사용하는 모든 셀뿐만 아니라, 해당 명명된 범위로 덮여진 모든 셀도 찾습니다.

이 방법에서는 특정 명명된 범위를 사용하는 모든 셀을 찾기 위한 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이 설치되어 있다면, Replace Range Names 유틸리티를 사용하여 특정 명명된 범위를 사용하는 모든 셀과 수식을 찾고 나열할 수 있습니다.

1. Kutools > 더 보기 > Replace Range Names 를 클릭하여 Replace Range Names 대화 상자를 엽니다.

2. 열린 Replace Range Names 대화 상자에서 이름 탭으로 이동하고, 기본 이름 드롭다운 목록을 클릭하고 아래 스크린샷에 표시된 대로 특정 명명된 범위를 선택하세요:

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

3. Replace Range Names 대화 상자를 닫습니다.