要選擇工作表中所有包含超鏈接的單元格,用定位或查找的方法無法實現。下面的VBA代碼可以實現這一目的。
按Alt+F11,打開VBA編輯器,在“工程”窗口中雙擊某個工作表,在右側的代碼窗口中輸入下列代碼:
Sub SelectHyperlinkCells()
Dim hHlink As Hyperlink
Dim rRange As Range
Dim NotFirstlink As Boolean
On Error Resume Next
For Each hHlink In ActiveSheet.Hyperlinks
If NotFirstlink Then
Set rRange = Application.Union(rRange, hHlink.Range)
Else
Set rRange = hHlink.Range
NotFirstlink = True
End If
Next
If rRange Is Nothing Then End
rRange.Select
End Sub關閉VBA編輯器返回工作表界面,按Alt+F8打開“宏”對話框,運行“SelectHyperlinkCells”宏即可選擇工作表中所有包含超鏈接的單元格。