如何檢查Excel工作表中是否存在超鏈接

發布:未知文本批量工具

如何檢查Excel工作表中是否存在超鏈接？

要檢查選擇中是否存在超鏈接，可以嘗試以下VBA代碼。

使用VBA代碼檢查選擇中是否存在超鏈接

使用VBA代碼檢查選擇中是否存在超鏈接驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

您可以使用以下VBA代碼檢查選擇或工作表中是否存在超鏈接。

1。按其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊插頁 > 模塊。然后將以下VBA代碼復制并粘貼到“代碼”窗口中。

VBA：檢查選擇中是否存在超鏈接

Sub HyperlinkCells()Dim xAdd As StringDim xTxt As StringDim xCell As RangeDim xRg As RangeOn Error Resume NextxTxt = ActiveWindow.RangeSelection.AddressLocalSet xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)If xRg Is Nothing Then Exit SubFor Each xCell In xRgIf xCell.Hyperlinks.Count > 0 Then xAdd = xAdd & xCell.AddressLocal & ", "NextIf xAdd <> "" ThenMsgBox "Hyperlink existing in the following cells: " & vbCrLf & vbCrLf & Left(xAdd, Len(xAdd) - 1), vbInformation, "Kutools for Excel"End IfEnd SubCopy

3。按 F5 鍵來運行代碼。然后你會得到一個 Kutools for Excel 對話框中，請選擇一個您想知道是否存在超鏈接的范圍，然后單擊 OK 按鈕。

然后會彈出一個對話框，向您顯示包含選定范圍內的超鏈接的單元格。