Excel批量提取单元格内的超链接网址！

Excel批量提取单元格内的超链接网址！ 代码如下： Function 提取超链接(Rng) Application.Volatile True With Rng.Hyperlinks(1) 提取超链接 = IIf(.Address = "", .SubAddress, .Address) End With End Function