150701_엑셀 하이퍼링크 주소 추출하기

엑셀 하이퍼링크 주소 추출하기 2008.01.23. 11:47 * 출처 : http://blog.naver.com/innobus?Redirect=Log&logNo=10026621702 [아이디어 브레이크] 엑셀 하이퍼링크 주소 추출하기 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. 그다음 만든 창을 닫고 다시 [도구]-[매크로]-자신이 만든 매크로를 선택-[실행]을 누르면....짜잔 추출된 주소를 볼 수 있답니다.