Mezga에는 하이퍼 링크가 포함 된 일련의 셀이 있습니다. 이러한 하이퍼 링크는 “여기를 클릭하십시오”또는 “추가 정보”와 같은 단어로 구성됩니다. 즉, 각 하이퍼 링크에는 링크를 클릭 할 때 활성화되는 기본 URL과 다른 표시 텍스트가 포함됩니다. Mezga는 매크로를 사용하지 않고 이러한 각 하이퍼 링크에 대한 기본 URL을 추출하고 해당 URL을 다른 셀에 배치하는 방법이 있는지 알고 싶습니다.

매크로를 사용하지 않고 다음과 같이 할 수 있습니다.

  1. 하이퍼 링크를 마우스 오른쪽 버튼으로 클릭합니다. 컨텍스트 메뉴가 나타납니다.

  2. 컨텍스트 메뉴에서 하이퍼 링크 편집을 선택합니다. Excel에 하이퍼 링크 편집 대화 상자가 표시됩니다. (그림 1 참조)

  3. 대화 상자의 주소 필드에서 전체 URL을 선택하고 복사 (Ctrl + C)합니다.

  4. Esc 키를 눌러 하이퍼 링크 편집 대화 상자를 닫습니다.

  5. 원하는 셀에 URL을 붙여 넣습니다.

이것은 단일 하이퍼 링크에 대한 것입니다. 워크 시트에 많은 하이퍼 링크가 있고 URL을 복구하려는 경우 각 하이퍼 링크에 대해이 작업을 수행해야합니다. 분명히 이것은 매우 빠르게 지루해질 수 있습니다.

지루함을 치료하는 방법은 매크로입니다. 매크로를 사용하면 하이퍼 링크의 기본 URL에 접근하는 것은 어린이의 놀이입니다. 매크로가해야 할 일은 하이퍼 링크의 Address 속성에주의하는 것입니다.

다음은 워크 시트에서 각 하이퍼 링크를 찾고, 각 하이퍼 링크를 추출하고, 해당 URL을 하이퍼 링크의 오른쪽에있는 셀에 고정하는 매크로의 예입니다.

Sub ExtractHL()

Dim HL As Hyperlink     For Each HL In ActiveSheet.Hyperlinks         HL.Range.Offset(0, 1).Value = HL.Address     Next End Sub

“brute force”매크로 대신, 가리키는 하이퍼 링크에 대한 URL을 추출하고 반환하는 사용자 정의 함수를 만들 수도 있습니다.

Function GetURL(rng As Range) As String     On Error Resume Next     GetURL = rng.Hyperlinks(1).Address End Function

이 경우 원하는 곳에 배치 할 수 있습니다. 예를 들어 A1에있는 하이퍼 링크의 URL을 C25 셀에 나열하려면 C25 셀에 다음 수식을 입력합니다.

=GetURL(A1)

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (9815)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Extracting_URLs_from_Hyperlinks [Extracting URLs from Hyperlinks].