Excel VBA: 提取单元格超链接地址

最新推荐文章于 2025-07-31 11:41:49 发布

原创最新推荐文章于 2025-07-31 11:41:49 发布 · 1.4w 阅读

4 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vba #excel #function #c

收录于

本文介绍使用VBA从Excel单元格中提取超链接地址的方法。提供了三种实用方案：一是通过函数直接获取，二是利用子程序批量处理，三是解析公式字符串定位链接地址。

一、函数办法

Function GetAddress(HyCell)
    Application.Volatile True
    With HyCell.Hyperlinks(1)
        GetAddress = IIf(.Address = "", .SubAddress, .Address)
    End With
End Function

二、程序办法

Public Sub GetAddress()
Dim i, j
i = Range("B2").End(xlDown).Row
For j = 1 To i
    'Cells(j, 1).Hyperlinks.Add Cells(j, 1), "66", , "test"      ' 激活链接
    'Cells(j, 1).Hyperlinks(1).Address = Cells(i, 2).Hyperlinks(1).Address
    Cells(j, 1).FormulaR1C1 = Cells(j, 2).Hyperlinks(1).Address
Next j

End Sub

三、

Sub getchaolianjie()
On Error Resume Next
For Each cell In Range("A1:A10")
a = Len(cell.Formula)
For b = 12 To a
If Mid(cell.Formula, b, 1) = "," Then
cell.Offset(0, 1) = Mid(cell.Formula, 13, b - 14)
Exit For
End If
Next b
Next
End Sub