엑셀 하이퍼링크 VBA로 수작업 줄이기 - 유딩동 Tistory

 

 

1. 엑셀 실행

2. VBA 실행

 - Alt + F11

3. 코드 입력

Public Sub HyperLink()
  Dim Cell As Range
  For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
    If Cell <> "" Then
      ActiveSheet.Hyperlinks.Add Cell, Cell.Value
    End If
  Next
End Sub

 코드 입력 하고, 닫아주세요.

 

4. 하이퍼링크 할 셀 선택

 

5. Alt+F8 눌러 매크로 실행

 

HyprLink를 선택하고 실행을 눌러주세요.

 

엑셀에서 바로 링크로 연결 됩니다.