shift+F11 로 VB 편집기에 들어가서,

메뉴에서 도구 - 매크로 로 들어가서 매크로를 새로 만들어

아래의 적색 내용을 붙여 넣으면 됨.


----------------------------------

Sub 링크추출()
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
End Sub

'Microsoft > Excel' 카테고리의 다른 글

Excel 매크로 (VB) 샘플  (0) 2014.04.22
엑셀 단축키  (0) 2014.04.07
[펌] 엑셀: 다중조건에 따라 찾는 결과값의 함수문의  (0) 2013.03.22
Posted by 세모아
,