Excel에는 실제 링크 대신 텍스트를 표시하는 링크 열이 있습니다.
실제로 링크가 필요합니다. 링크가 노출되도록 전체 열을 대량 변환하는 방법이 있습니까? 그렇지 않으면 각 링크를 클릭하고 브라우저에서 열고 주소를 복사하여 붙여넣어야 합니다...
그리고 Mac용 Excel 2008을 사용하고 있어서 매크로를 할 수 없는 것 같네요...
답변1
짧은 답변:VBA 없이는 이를 자동화할 수 없습니다.
수동
이것은 Windows 7 컴퓨터에 있습니다. 바로가기를 해당하는 Mac의 단축키로 바꾸세요.
- 하이퍼링크로 셀을 강조표시합니다.
- CTRL+를 누릅니다 K. 그러면 하이퍼링크 대화 상자가 열립니다(아래 이미지 참조). 일단 열리면 커서가 이미 주소 필드에 있는 것을 볼 수 있습니다.
- 전체 URL을 강조 표시하려면 CTRL+를 누르세요 .A
- CTRL+를 눌러 C복사하세요.
- ESC또는 키를 눌러 Enter하이퍼링크 대화 상자를 닫습니다.
- CTRL+를 통해 URL을 어딘가에 붙여넣습니다 V.
VBA
이를 사용할 수 있는 사람들을 위한 VBA 솔루션이 있습니다.
다음 코드를 사용하여 VBA 모듈을 만듭니다.
Public Function GetURL(c As Range) As String
On Error Resume Next
GetURL = c.Hyperlinks(1).Address
End Function
사용하려면 셀에 다음을 입력하세요.
=GetURL(A1)
여기서 A1에는 하이퍼링크가 포함되어 있습니다.
직장에서의 기능:
답변2
이것은 무차별적인 방법처럼 들릴지 모르지만 이것이 내가 생각해낸 가장 좋은 방법입니다. (저는 한 시간 전에 같은 질문을 받았을 때 이 페이지를 발견했습니다. 하루 종일 찾아볼 수도 있지만 가끔은 그냥 하고 끝내는 것이 더 쉬울 때도 있습니다.)
1) 하이퍼링크가 포함된 셀만 복사하여 새 스프레드시트에 붙여넣습니다.
2) 스프레드시트를 내보내고 "파일 형식 변경"을 클릭한 다음 "다른 파일 형식으로 저장"을 선택하고 웹페이지(HTML 파일이라고도 함)로 저장합니다.
3) 브라우저에서 웹페이지를 열고 소스를 확인하세요.
4) 소스를 복사하여 텍스트 편집기에 붙여넣습니다.
5) 텍스트 편집기의 찾기/바꾸기 기능을 이용하여 각 하이퍼링크의 앞뒤 텍스트를 제거합니다. (즉, 해당 텍스트를 아무것도 없는 ""으로 바꿉니다.) 이 텍스트는 각 하이퍼링크에 대해 동일해야 합니다.
6) 이제 하이퍼링크만 포함된 텍스트 파일이 생겼습니다. 필요에 따라 복사하여 원본 스프레드시트에 다시 붙여넣거나 원하는 위치에 사용하세요.
실제로 HTM인 별도의 파일로 내보낼 수 있다고 명시하도록 편집되었습니다. 파일을 닫았다가 Excel에서 다시 열면 문제가 해결됩니다. =Hyperlink 수식이 사라지고 링크가 일반 링크로 변환됩니다. 이 방법은 시간을 절약해 주었고 매우 간단했으며 스크립트나 수식, VBA 또는 매크로를 처리할 필요가 없었습니다.
답변3
저는 Mac을 사용하는데 이것이 저에게 효과적이었습니다. 변환해야 할 열을 강조 표시하고 삽입 메뉴에서 "하이퍼링크"를 엽니다. 표시 상자에 나타나는 모든 텍스트를 삭제합니다. 표시 텍스트가 셀마다 다른 경우 "[여러 셀이 선택됨]"이라고 표시됩니다. 확인을 클릭하면 워크시트에 링크만 나타납니다. 전체 열이 아닌 개별 셀을 변환해야 하는 경우 변환해야 하는 모든 셀을 강조 표시하고 마우스 오른쪽 버튼을 클릭한 다음 "하이퍼링크 편집"을 선택하고 동일한 단계에 따라 표시 상자에서 텍스트를 삭제합니다.
답변4
이 질문이 Excel에 제기된 지 몇 년 후, 우리 회사의 누군가가 이 =GetURL(cell)
기능을 전역 XLAM 파일에 추가했고 저는 이것이 기본 Excel의 일부라고 생각했습니다. 여기 VBA가 있습니다 ...
Public Function GetURL(cell As Range, Optional default_value As Variant) As Variant
Dim output As Variant
If (cell.Range("A1").Hyperlinks.Count <> 1) Then
output = default_value
Else
output = cell.Range("A1").Hyperlinks(1).Address
End If
GetURL = output
End Function