엑셀에서 하이퍼링크 여러 개 한번에 추출하기

 

 

 

22.03.03 추가

 

이 글을 참고 하시는 분들께 : 기존 데이터는 꼭 백업 해놓고 진행하세요!!!

 

 

---

 

 

엑셀 셀들에 하이퍼링크들이 나열된 경우, 한번에 추출하는 방법.

왼쪽그림에서 오른쪽 그림으로 변환하는 방법이다.

 

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) 변환하고자 하는 셀들을 범위로 지정해주고, 확인을 누르면 완료된다.

 

 

다른 방법들도 있는데, 이게 제일 편한 것 같다. 참조 사이트에서 다른 방법들을 확인해보면 된다.

---

 

 

참조

 

1. https://ko.extendoffice.com/documents/excel/1177-excel-extract-hyperlink-from-cell.html