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

最新推荐文章于 2025-01-06 00:59:44 发布

gz775

最新推荐文章于 2025-01-06 00:59:44 发布

阅读量1.3w

点赞数 1

本文链接：https://blog.csdn.net/gz775/article/details/5094265

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、函数办法

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