Excel에서 모든 하이퍼 링크를 빠르게 나열하는 방법은 무엇입니까?
워크 시트를 사용할 때 그 안에 많은 하이퍼 링크를 만들 수 있으며 때로는 텍스트가 링크되는 위치를 알아야합니다. 하나씩 클릭하면 지루하고 시간이 많이 걸립니다. 워크 시트에 텍스트와 하이퍼 링크 주소가있는 모든 하이퍼 링크를 나열 할 수 있다면 Excel에서 모든 하이퍼 링크를 쉽게 확인할 수 있습니다.
Excel 용 Kutools를 사용하여 하이퍼 링크에서 모든 실제 주소 추출
VBA 코드로 선택한 모든 하이퍼 링크 나열
1. 나열 할 하이퍼 링크를 포함하는 범위를 선택하십시오.
2. 딸깍 하는 소리 개발자>Visual Basic을새를 애플리케이션 용 Microsoft Visual Basic 창이 표시되면 끼워 넣다>모듈을 클릭하고 모듈에 다음 코드를 입력합니다.
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub
3. 그런 다음 
버튼을 눌러 코드를 실행합니다. 그리고 모든 하이퍼 링크는 새 워크 시트에 표시됩니다. 하이퍼 링크 목록. 스크린 샷보기 :
Excel 용 Kutools를 사용하여 하이퍼 링크에서 모든 실제 주소 추출
와 더불어 Excel 용 Kutools의 하이퍼 링크 변환 기능을 사용하면 하이퍼 링크에서 실제 주소를 빠르게 추출 할 수 있습니다.
| Excel 용 Kutools : 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다.. |
설치 후 Excel 용 Kutools, 다음과 같이하십시오 :( 지금 Excel 용 Kutools 무료 다운로드 )
1. 실제 대상을 추출 할 하이퍼 링크를 선택하십시오.
2. 그런 다음 쿠툴 > (링크) > 하이퍼 링크 변환, 스크린 샷 참조 :
3. 에서 하이퍼 링크 변환 대화 상자에서 하이퍼 링크 주소는 셀 내용을 대체합니다. 옵션에서 변환 유형 섹션 아래에 결과를 넣을 셀을 지정하십시오. 결과 범위 섹션, 스크린 샷 참조 :
4. 그런 다음 OK 버튼을 클릭하면 모든 실제 주소가 하이퍼 링크에서 추출되었습니다. 스크린 샷 참조 :
주의 사항: 소스 범위 변환:이 옵션을 체크하면 추출 된 결과가 원래 셀 범위에 위치합니다.
관련 기사 :
Excel에서 모든 하이퍼 링크를 빠르게 삭제하는 방법은 무엇입니까?
최고의 사무 생산성 도구
| 🤖 | Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행 | 코드 생성 | 사용자 정의 수식 만들기 | 데이터 분석 및 차트 생성 | Kutools 기능 호출... |
| 인기 기능: 중복 항목 찾기, 강조 표시 또는 식별 | 빈 행 삭제 | 데이터 손실 없이 열이나 셀 결합 | 수식없이 반올림 ... | |
| 슈퍼 조회: 다중 기준 VLookup | 다중 값 VLookup | 여러 시트에 걸친 VLookup | 퍼지 조회 .... | |
| 고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성 | 종속 드롭다운 목록 | 다중 선택 드롭 다운 목록 .... | |
| 열 관리자: 특정 개수의 열 추가 | 열 이동 | Toggle 숨겨진 열의 가시성 상태 | 범위 및 열 비교 ... | |
| 특색 지어진 특징: 그리드 포커스 | 디자인보기 | 큰 수식 바 | 통합 문서 및 시트 관리자 | 리소스 라이브러리 (자동 텍스트) | 날짜 선택기 | 워크 시트 결합 | 셀 암호화/해독 | 목록으로 이메일 보내기 | 슈퍼 필터 | 특수 필터 (굵게/기울임꼴/취소선 필터링...) ... | |
| 상위 15개 도구 세트: 12 본문 도구 (텍스트 추가, 문자 제거,...) | 50+ 거래차트 유형 (Gantt 차트,...) | 40+ 실용 방식 (생일을 기준으로 나이 계산,...) | 19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...) | 12 매출 상승 도구 (숫자를 단어로, 환율,...) | 7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...) | ... 그리고 더 |
Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다. 가장 필요한 기능을 얻으려면 여기를 클릭하십시오...
Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.
- Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
- 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
