如何查找在Excel中使用某個命名范圍的位置？
如何查找在Excel中使用某個命名范圍的位置？
創建命名范圍后，可以在許多單元格和公式中使用此命名范圍。 但是如何在當前工作簿中找出這些單元格和公式？ 本文介紹了三種輕松解決問題的方法。
使用“查找和替換”功能查找在某個命名范圍內使用的位置
查找VBA使用特定命名范圍的位置
查找某個命名范圍的使用位置 Kutools for Excel
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節省50％的時間，并減少數千次鼠標單擊！
我們可以輕松地應用Excel的 查找和替換 功能可以找出所有使用特定命名范圍的單元格。 請執行以下操作：
1。 按 按Ctrl + F 同時按下鍵以打開“查找和替換”對話框。
備注：您也可以通過單擊打開“查找和替換”對話框 首頁 > 查找和選擇 > 找到最適合您的地方.
2.在打開的“查找和替換”對話框中，請執行以下顯示的屏幕截圖：
現在，您將看到所有包含指定命名范圍名稱的單元格都在“查找和替換”對話框的底部列出。 看截圖：
備注：“查找和替換”方法不僅查找使用此特定命名范圍的所有像元，而且還查找覆蓋此命名范圍的所有像元。
此方法將引入VBA宏，以查找使用Excel中特定命名范圍的所有單元格。 請執行以下操作：
1。 按 其他 + 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
3。 點擊 運行 按鈕或按下 F5 運行此VBA的密鑰。
Copy
4.現在首開 Kutools for Excel 對話框，請在其中輸入工作表名稱，然后單擊 OK 按鈕; 然后在第二個打開的對話框中，鍵入某些命名范圍的名稱，然后單擊 OK 按鈕。 查看屏幕截圖：
5.現在是第三個 Kutools for Excel 出現對話框并使用特定命名范圍列出單元格，如下圖所示。
點擊后 OK 按鈕關閉此對話框，將在指定的工作表中立即選擇這些找到的單元格。
備注：此VBA一次只能在一個工作表中使用特定命名范圍查找單元格。
在你有 Kutools for Excel 安裝，其 替換范圍名稱 實用程序可以幫助您查找并列出在Excel中使用特定命名范圍的所有單元格和公式。
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天，無需信用卡！ 立即免費試用！
1。 點擊 Kutools > 更多 > 替換范圍名稱 打開“替換范圍名稱”對話框。
2.在打開的“替換范圍名稱”對話框中，轉到 Name 選項卡，然后單擊 基本名稱 下拉列表，然后從中選擇特定的命名范圍，如下圖所示：
現在，使用特定命名范圍的所有單元格和相應的公式會立即在對話框中列出。
3.關閉“替換范圍名稱”對話框。
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天，無需信用卡！ 立即行動吧!
Kutools for Excel 包括適用于Excel的300多種便捷工具，可以在30天之內免費試用。 立即下載并免費試用!
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
