excel vba选取所有包含超链接的单元格

在excel中录入网址可以点击后直接跳转到该网址。有的时候，我们需要获取所有这些地址如何选择工作表中所有包含超链接的单元格呢，用定位或查找的方法无法实现。下面我们通过一段VBA代码来可以实现这个功能。
在工作表的 VBA后台录入以下函数代码：SubSelectHyperlinkCells()
DimhHlinkAsHyperlink
DimrRangeAsRange
DimNotFirstlinkAsBoolean
OnErrorResumeNext
ForEachhHlinkInActiveSheet.Hyperlinks
IfNotFirstlinkThen
SetrRange=Application.Union(rRange,hHlink.Range)
Else
SetrRange=hHlink.Range
NotFirstlink=True
EndIf
Next
IfrRangeIsNothingThenEnd
rRange.Select
EndSub
运行“SelectHyperlinkCells”函数即可选择工作表中所有包含超链接的单元格。如下图
1507972250101270.png (56.55 KB, 下载次数: 0, 售价: 2 金钱)

2022-4-22 09:45 上传

点击文件名下载附件
1507972250101270.png