首页 > Excel专区 > Excel函数 >

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

Excel函数 2023-01-13

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


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.