하이퍼 링크 걸려있는 것들에서 역으로 URL 주소들을 추출하고 싶을때가 있습니다. 다른 곳에서 긁어온 내용을 엑셀에 붙인 뒤 거기에 하이퍼 링크 걸려있는걸 뽑고 싶은 경우에요. 어느 고수분이 짜주신 매크로를 이용해 간단히 해결했습니다.
저는 유튜브의 한 재생목록을 긁어와서 거기 나온 영상 제목들을 정리하는 작업을 하는 중이었는데요.
웹 브라우저에서 드래그 해서 긁어오다 보니 이렇게 엑셀에 붙여넣은 후에도 하이퍼링크가 걸린채로 그대로 따라오더라고요. 잘됐다 싶었는데 한가지 이 안에 들어있는 하이퍼링크의 URL 주소만 빼내고 싶었습니다.
한두개면 직접 하이퍼링크 편집을 눌러서 URL주소 복사를 하겠지만, 백개가 넘는지라 일일이 할 수가 없더라고요.
찾아보다가 어떤 고수분의 블로그에서 해답을 올려주신 것을 발견했습니다. 티스토리 Kini 님의 블로그 입니다.
- 2007년부터 티스토리 운영
- 블로그 스킨이 저처럼 줄공책 느낌
엑셀 해답을 얻은 것 외에도 위 두 가지 이유로도 반가운 블로그였네요.
하이퍼 링크 주소들을 추출하려면 다음과 같이 해주시면 됩니다.
① 리본메뉴 > 보기 > 매크로 > 매크로 보기에서 이름 하나 쓰고 만들기 클릭
(또는 단축키 Alt+F11 눌러서 창을 연 후 실행 > 매크로 실행에서 이름쓰고 생성)
② 첫줄 Sub와 마지막 줄 End 사이에 아래 코드를 기입합니다.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
③ visual basic 창을 닫고 엑셀로 돌아가서 매크로 실행
이렇게 하면 하이퍼 링크가 있는 위치의 오른쪽 셀에 각각 URL 주소가 추출되어 찍힙니다. 위 코드에서 offset(0,1) 이 부분이 추출한 URL주소를 기입할 상대주소입니다. (1,0) 으로 하시면 아래에 기입되고, (0,-1) 로 하시면 왼쪽에 기입됩니다.
엑셀에서 하이퍼링크 걸려있는 셀의 URL 주소 일괄 추출하는 방법 살펴보았습니다. 알아두면 퇴근시간이 빨라지는 아래 엑셀 꿀팁들도 참고해보시면 좋겠습니다.