Excel - 하이퍼추출 매크로

shift+F11 로 VB 편집기에 들어가서,

메뉴에서 도구 - 매크로 로 들어가서 매크로를 새로 만들어

아래의 적색 내용을 붙여 넣으면 됨.

----------------------------------

Sub 링크추출()
On Error Resume Next
Dim rngCell As Range
Dim lnkLink As Hyperlink

For Each lnkLink In ActiveSheet.Hyperlinks
With lnkLink.Parent
.Offset(0, 1) = .Hyperlinks.Item(1).Address
End With
Next lnkLink
End Sub