(1) Alt+F11키를 눌러 비주얼 베이직 에디터를 실행한다. (2) [삽입]-[모듈]에서 아래의 소스를 삽입한다. Sub Extracthyperlinks() 'Updateby Extendoffice Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng If Rng.Hyperlinks.Count > 0 Then Rng.Value = Rng.Hyperlin..
