엑셀에서 여러 셀을 한번에 하이퍼링크 처리하기

전일 회사에서,
일반 문서에서 수백개의 메일을 복사해서 엑셀에 붙여넣기 했는데
그냥 글자만 복사되고 하이퍼링크로 인식되지 않아 일일이 F2와 엔터를 쳐야만 하는데
이걸 일괄 처리할 수 있는 방법을 묻는 전화가 왔다.

지금까지 몇 시간 찾아본 결과 VBA로 처리하는 방법이 가장 좋아 보인다.
다음 파일을 Visual Basic Editor에서 불러들여 적용시키면 된다.
아울러 그 하이퍼링크 속성을 일괄 삭제하는 파일도 같이 올린다.

invalid-file

invalid-file

적용 절차는 다음과 같다. (예시 환경:MS Office 2003)

Excel 실행 > 도구 > 매크로 > Visual Basic Editor 실행 (단축키 Alt+F11)

VBE가 실행되면 파일 > 파일 가져오기 실행 (단축키 Ctrl+M)

다운로드 받은 모듈 파일을 선택 후 열기 실행

파일 가져오기가 완료되면 파일 > 닫고 ... 실행 (단축키 Alt+Q)

해당 셀을 선택 후(반드시 변경할 셀만 선택해야 한다.) 도구 > 매크로 > 매크로 실행
(단축키 Alt+F8)

"ActiveHyperLink" 선택 후 실행 버튼 클릭

적용된 화면

하이퍼링크 속성 지우는 VBA 적용 방법도 마찬가지이다.
다만 지울 때는 전체 선택해도 오류 없이 적용된다.
파일 불러오기로 안 하고 직접 코드를 넣으려면 밑의 내용 참조.

Sub ActiveHyperLink()
  For Each c In Selection
     c.Hyperlinks.Add Anchor:=c, Address:="mailto:" & c.Value
  Next c
End Sub

Sub DeleteHyperLink()
  Dim h As Hyperlink
  For Each h In ActiveSheet.Hyperlinks
  h.Delete
  Next
End Sub

알만 한 사람은 내용을 보며 쉽게 눈치 챘겠지만 이 팁 찾으면서 VBA라는 것을 처음 알았다.
엑셀 사용하면서 VBE 화면을 처음 본다면 지금까지 엑셀을 50%도 제대로 활용 못 한 거란다.
일일 업무일지 쓰는 게 고작인데 뭐...

참조글(...이 아니라 그냥 퍼온 거나 다름 없다.)
네이버지식인
오픈튜터 사이트의 "곽승주님의 VBA이야기"