[Program.Excel]엑셀 Hyperlink 추출하기.

(1) Alt+F11키를 눌러 비주얼 베이직 에디터를 실행한다.

 

 

(2) [삽입]-[모듈]에서 아래의 소스를 삽입한다.
Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

​

​(3) F5 → 실행을 눌러준다.

 

 

(4) 하이퍼 링크가 있는 셀에 커서를 옮긴후, 셀 지정 후 확인을 누른다.