blog.naver.com/innobus
[아이디어 브레이크] 엑셀 하이퍼링크 주소 추출하기
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 에서만 해본 것이니 다른 버전 문의는 사절 ㅋㅋ
[출처] [아이디어 브레이크] 엑셀 하이퍼링크 주소 추출하기|작성자 커뮤니케이션 꾼