1. 程式人生 > >EXCEL URL提取巨集程式

EXCEL URL提取巨集程式

Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub