엑셀 하이퍼링크 일괄적용 방법

꿀팁

엑셀작업을 하다보면,

URL을 Copy & Paste를 해서 URL을 붙여넣어야 하는 경우가 있는데 이경우 이매크로를 사용하면 해결

ALT+F11 눌러서

하단의 내용을 복사해서 붙여 넣기 합니다.

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

이렇게 붙여넣고 닫으면 끝

그리고 적용은

엑셀 드래그 하고 Alt+F8

url 한꺼번에 열기는 요거

Sub OpenHyperLinks()
Dim xHyperlink As Hyperlink
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("범위 선택", "링크들을 선택해주세요.", WorkRng.Address, Type:=8)
For Each xHyperlink In WorkRng.Hyperlinks
xHyperlink.Follow
Next
End Sub