2021-05-28

엑셀로 복사된 하이퍼링크의 주소를 추출하는 방법

* 잊지 않으려고 다시 메모...


* 출처 : https://m.blog.naver.com/PostView.naver?blogId=tajo70&logNo=221209994111&proxyReferer=https:%2F%2Fwww.google.com%2F


인터넷에 떠도는 어마어마한 자료 속에서, 하이퍼링크는 너무나 많은데, 이것을 일일이 저장하는 것은 시간낭비다.



일단 주소를 뽑을 인터넷 상의 mariadb 다큐먼테이션을 복사해서 엑셀로 정리했다. 


이렇게 하이퍼링크가 걸려있으면, 공부하는데 눈에 잘 안 들어온다. 


래서 내가 공부할 수 있는 자료로 변환하는 방법을 소개한다. 


일단, 엑셀로 불러온 자료의 하이퍼링크를 분리할 매크로 작성을 위하여, 개발도구 > 매크로 를 클릭한다. 


그리고 주소추울이라고 매크로 이름을 정하고 확인을 클릭한다. 


나는 이미 만들어 두어서, 실행이 바로 뜨는 것이다. 


처음 만드는 사람은 대화상자의 하단의 확인을 클릭하라


그러면, 코드를 삽입하는 vba창이 나타난다. 상당히 익숙하지 않은 장면일 수 있다. 


그런데 아래처럼 코딩을 하라.


코드는 아래와 같고, 이를 복붙해도 된다. 


Sub 주소추출()

On Error Resume Next

Dim rngcell As Range

Dim inklink As Hyperlink

For Each inklink In ActiveSheet.Hyperlinks

With inklink.Parent

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

 End With

 Next inklink

End Sub



그리고, vba창의 저장을 클릭한다. 


파랑색 디스켓 아이콘이 저장이다. 


그리고 나서, 실행-녹색 화살표머리 부분클릭-을 클릭하면, 아래처럼 결과가 나온다. 




주소가 나오는데, 원래 자료의 들여쓰기 배열과 똑같이 나타남을 알수 있다.


이 들여쓰기도 엑셀에서는 아주 중요한 정보로, 보고 싶은 자료들만 뽑아내는 데 유용하다.


일거에 4216개의 주소가 뽑힌 것을 확인할 수 있다.


이렇게 한 경우에는 엑셀의 스타일 그룹의 스타일에서, 하이퍼링크를 설명텍스트로 바꾸라, 


바로 표준으로 바꾸면, 들여쓰기가 사라진다. 


그러면, 이탤릭체로 나오는데, 이것은 글꼴에서 클릭해서 적당히 수정한다.


그러면 아래처럼 공부하기 좋은 형태로 나온다. 



이렇게 되면, 공부할 만하다. 


이런 방식으로, 복잡한 프로그래밍이나 학문에 대한 공부를 진행하면, 타인보다 최소 100배 이상 빨리 습득하게 될 것이다.


댓글 없음:

댓글 쓰기