엑셀 하이퍼링크 주소 추출하기 > information

1. 자신이 원하는 하이퍼 링크가 걸린 목록을 엑셀 시트에 복사하여 붙여 넣는다.

2. 그 다음 복사해 놓은 열을 클릭한다.(여기서는 B열을 클릭)

3. 그 상태에서 Art+F11  누르면 바로 이 화면이 뜨게 된다. 거기서 [도구]-[매크로]를 클릭하라.

4.매크로 이름에 자신이 원하는 이름을 넣고 [만들기]를 클릭하라

5. 그러면 바로 밑에 있는 창이 뜰것이다. 그곳에다 파란색 소스를 집어 넣어라

<파란색 부분만 집어 넣어라>

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

6. 그다음 만든 창을 닫고 다시 [도구]-[매크로]-자신이 만든 매크로를 선택-[실행]을 누르면....짜잔

   추출된 주소를 볼 수 있답니다.

많은 도움이 되시길 바라며 엑셀2007 에서만 해본 것이니 다른 버전 문의는 사절 ㅋㅋ