首页 excel技巧 excel用VBA选择工作表中所有包含超链接的单元格

excel用VBA选择工作表中所有包含超链接的单元格

发布:2024-03-09 10:49:32 阅读:109

要选择工作表中所有包含超链接的单元格,用定位或查找的方法无法实现。下面的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”宏即可选择工作表中所有包含超链接的单元格。

上一篇:excel利用VBA选择活动单元格所在的数组区域 下一篇:在选定区域中进行数量统计的VBA代码
相关文章 查看更多