[EXCEL] Hyperlink 제거하기

이메일이나 웹사이트 입력시 자동으로 하이퍼링크가 연결된다.
이것을 제거하기 위해서는 설정에서 체크를 안하면 되지만, 자주 이용하기때문에 그냥 기본으로..

가끔 한 페이지 정도 하이퍼링크를 제거하고 싶을 때가 있다.
몇개 안될경우 하나씩 제거하면 되지만, 여러개일때 블럭지정시 어렵다.

구글 검색 결과 다음과 같다.
http://support.microsoft.com/kb/976085/ko#1

이 방법 중 두번째가 편한듯.. 한 시트 전제 제거시...

1. 제거할 하이퍼링크가 있는 시트를 선택합니다.
2. Alt + F11 키를 눌러 “VBA 편집기”를 엽니다.
3. Ctrl + g 키를 눌러 “직접 실행창”을 엽니다.
4. 아래와 같이 입력하거나 아래 구문을 복사해 직접 실행창에 붙여 넣은 다음 Enter를 누릅니다.

   ActiveSheet.Hyperlinks.Delete

   
   
   
   
   
   
5. Alt + q 키를 눌러 VBA편집기를 닫고 엑셀로 돌아갑니다

Step by Step: Excel 문서 내에서 하이퍼링크 한꺼번에 삭제하기

Excel 기본 기능인 선택하여 붙여 넣기를 이용하여 하이퍼링크를 한꺼번에 제거할 수 있습니다.

1. 빈 셀에 숫자 1을 입력합니다.
2. 셀을 마우스 오른쪽 단추로 클릭한 다음 바로 가기 메뉴에서 [복사]를 클릭합니다.
   
   

   바로 가기 키(Ctrl + C)를 눌러 복사하거나 홈 아래의 클립보드에서 [복사]를 클릭할 수도 있습니다.

   
   
   
3. Ctrl 키를 누르고 하이퍼링크를 해제할 범위를 선택합니다.
   

   하이퍼링크 대상으로 이동하지 않고 하이퍼링크가 포함된 셀을 선택하려면 셀을 클릭한 다음 마우스 단추를 누르고 있다 포인터가 십자 모양이 되면 마우스 단추를 놓습니다.

   
   
   
4. 홈 아래의 클립보드 그룹에서 [붙여넣기], [선택하여 붙여넣기]를 차례대로 클릭합니다.
   
   
   
   
   

   마우스 오른쪽 단추를 클릭한 다음 바로 가기 메뉴에서 [선택하여 붙여넣기(S)...]를 선택할 수 있습니다.

   
   
   
5. 선택하여 붙여넣기 화면에서 연산 아래의 [곱하기]를 선택한 다음 [확인]을 클릭합니다.
   
   
   
   
   
6. 스타일 그룹에서 [셀 스타일]을 클릭합니다.
7. 좋음, 나쁨 및 보통 아래에서 [표준]을 선택합니다.
   
   
   
   
   

   5번까지 선택하여 붙여넣기를 이용해 하이퍼링크가 일괄 제거됩니다. 6번과 7번 과정은 하이퍼링크 스타일을 표준 스타일로 변경하는 과정이므로, 이를 생략하더라도 이미 하이퍼링크는 제거된 것입니다.

   
   

   선택하여 붙여넣기를 이용해 하이퍼링크는 제거하는 방법은 워크시트 셀에 링크된 하이퍼링크만을 제거합니다. 도형이나 기타 개체에 연결된 하이퍼링크를 한꺼번에 제거하려면 VBA를 이용합니다.

   
   

위로 가기

방법2: VBA를 이용해 활성 시트의 하이퍼링크 일괄 제거하는 방법



이 방법은 Excel을 처음 다루는 초보자에게는 어려울 수 있습니다. VBA에 대한 기본적인 내용을 알고 계셔야 적용할 수 있습니다.

1. 제거할 하이퍼링크가 있는 시트를 선택합니다.
2. Alt + F11 키를 눌러 “VBA 편집기”를 엽니다.
3. Ctrl + g 키를 눌러 “직접 실행창”을 엽니다.
4. 아래와 같이 입력하거나 아래 구문을 복사해 직접 실행창에 붙여 넣은 다음 Enter를 누릅니다.

   ActiveSheet.Hyperlinks.Delete

   
   
   
   
   
   
5. Alt + q 키를 눌러 VBA편집기를 닫고 엑셀로 돌아갑니다.
   

위로 가기

방법3: VBA 프로시저를 작성해 통합문서의 하이퍼링크 일괄 제거하는 방법



1. Alt + F11 키를 눌러 VBA 편집기를 엽니다.
2. Alt + i + m 키를 누르거나 [삽입], [모듈]을 차례대로 클릭하여 모듈을 추가합니다.
3. 아래의 코드를 입력하거나 복사해 붙여넣습니다.

   
   
   Sub dhDeleteAllHyperLinks()
   
   
   Dim s As Object
   
   
   For Each s In Sheet
   
       	s.Hyperlinks.Delete
   
   
   Next s
   
   
   End Sub

4. F5 키를 누르거나, [실행], [Sub/사용자 정의 폼 실행 F5]을 차례대로 클릭해 dhDeleteAllHyperLinks 프로시저를 실행합니다.