엑셀) URL 하이퍼링크 자동으로 넣기 VBA 활용

https://m.blog.naver.com/PostView.naver?isHttpsRedirect=true&blogId=kirin_grimm&logNo=220682199418 

엑셀 인터넷주소 하이퍼링크 일괄 적용과 삭제

 

■ 이미 입력된 인터넷 주소 하이퍼링크 걸기

- VBA를 통한 이메일 주소, 인터넷 주소 하이퍼링크 설정

 

1. 단축키 Alt + F11를 눌러 VBA 창을 오픈

2. 왼쪽창 VBAProject 우클릭 > 삽입 > 모듈

3. 아래 코드 입력 

Sub create_HLink()     Dim C As Range     For Each C In Selection If Not IsEmpty(C) Then C.Hyperlinks.Delete ActiveSheet.Hyperlinks.Add Anchor:=C, Address:=C.Value, TextToDisplay:=C.Value End If Next C     End Sub

4. 영역 선택 후 Alt + F8 로 적용