[엑셀 - 매크로 ] 링크 주소 추출

[엑셀 - 매크로 ] 링크 주소 추출

execel -> Art + F11(매크로툴) -> 도구-매크로 -> 매크로 이름 - 만들기 -> 아래소스 붙여넣기

On Error Resume Next

Dim rngCell As Range

Dim lnkLink As Hyperlink

 

For Each lnkLink In ActiveSheet.Hyperlinks

With lnkLink.Parent

.Offset(0, 1) = .Hyperlinks.Item(1).Address

End With

Next lnkLink

도구-매크로-실행

[출처] http://blog.naver.com/innobus?Redirect=Log&logNo=10026621702