Chúng ta có thể dễ dàng áp dụng Excel's Tìm và Thay thế tính năng để tìm ra tất cả các ô áp dụng phạm vi được đặt tên nhất định. Vui lòng làm như sau:

1. Nhấn nút Ctrl + F đồng thời để mở hộp thoại Tìm và Thay thế.

Chú thích: Bạn cũng có thể mở hộp thoại Tìm và Thay thế này bằng cách nhấp vào Trang Chủ > Tìm & Chọn > Tìm kiếm.

2. Trong hộp thoại Tìm và Thay thế đang mở, vui lòng thực hiện như ảnh chụp màn hình sau:

Bây giờ bạn sẽ thấy tất cả các ô có chứa tên của dải ô đã đặt tên được liệt kê ở cuối hộp thoại Tìm và Thay thế. Xem ảnh chụp màn hình:

Chú thích: Phương pháp Tìm và Thay thế không chỉ tìm ra tất cả các ô sử dụng dải ô được đặt tên nhất định này mà còn tìm ra tất cả các ô nằm trong dải ô được đặt tên này.

Phương pháp này sẽ giới thiệu một macro VBA để tìm ra tất cả các ô sử dụng phạm vi được đặt tên nhất định trong Excel. Vui lòng làm như sau:

1. Nhấn nút Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp vào Chèn > Mô-đunvà sao chép và dán mã sau vào cửa sổ Mô-đun đang mở.

VBA: Tìm nơi sử dụng một dải ô được đặt tên nhất định

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. Bây giờ trong hộp thoại Kutools cho Excel mở đầu tiên, vui lòng nhập tên bảng tính vào đó và nhấp vào OK cái nút; và sau đó trong hộp thoại mở thứ hai, vui lòng nhập tên của phạm vi được đặt tên nhất định vào đó và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

5. Bây giờ hộp thoại Kutools cho Excel thứ ba xuất hiện và liệt kê các ô bằng cách sử dụng phạm vi được đặt tên nhất định như hình minh họa bên dưới.

Sau khi nhấp vào OK để đóng hộp thoại này, các ô tìm thấy này được chọn trong trang tính được chỉ định cùng một lúc.

Chú thích: VBA này chỉ có thể tìm kiếm các ô sử dụng phạm vi được đặt tên nhất định trong một trang tính tại một thời điểm.

Trong bạn đã cài đặt Kutools cho Excel, Thay thế tên dải ô tiện ích có thể giúp bạn tìm và liệt kê tất cả các ô và công thức sử dụng phạm vi được đặt tên nhất định trong Excel.

1. Nhấp vào Kutools > Hơn > Thay thế tên dải ô để mở hộp thoại Thay thế Tên Dải ô.

2. Trong hộp thoại Thay thế Tên Phạm vi đang mở, hãy đi tới Họ tên và nhấp vào Tên cơ sở danh sách thả xuống và chọn phạm vi được đặt tên nhất định từ nó như hình ảnh chụp màn hình bên dưới:

Bây giờ tất cả các ô và công thức tương ứng sử dụng phạm vi được đặt tên nhất định sẽ được liệt kê trong hộp thoại cùng một lúc.

3. Đóng hộp thoại Replace Range Names.