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

꿀팁

엑셀작업을 하다보면,

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