Note: The other languages of the website are Google-translated. Back to English

Excel에서 한 셀에서만 다른 셀로 하이퍼 링크를 복사하는 방법은 무엇입니까?

A 열에 값 목록이 있고 각 셀에 다른 하이퍼 링크가 포함되어 있다고 가정하면 다음 스크린 샷과 같이 텍스트가없는 하이퍼 링크 만 다른 열 E에 복사하려고합니다. Excel에서이 작업을 직접 해결하는 방법은 없을 수 있지만 여기서는이를 처리하기위한 VBA 코드를 소개 할 수 있습니다.

다른 셀에 대한 문서 복사 하이퍼 링크 1

VBA 코드를 사용하여 한 셀에서 다른 셀로 하이퍼 링크 복사


화살표 블루 오른쪽 거품 VBA 코드를 사용하여 한 셀에서 다른 셀로 하이퍼 링크 복사

텍스트없이 하이퍼 링크 주소 만 다른 셀에 복사하려면 다음 코드가 도움이 될 수 있습니다.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 한 셀에서 다른 셀로만 하이퍼 링크 복사 :

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. 그런 다음 F5 이 코드를 실행하려면 하이퍼 링크 만 복사 할 셀을 선택하라는 대화 상자가 나타납니다. 스크린 샷을 참조하십시오.

다른 셀에 대한 문서 복사 하이퍼 링크 02

4. 그런 다음 OK을 클릭 한 다음 다른 대화 상자에만 하이퍼 린을 붙여 넣을 셀을 선택합니다. 스크린 샷을 참조하십시오.

다른 셀에 대한 문서 복사 하이퍼 링크 03

5. 그리고 하이퍼 링크 주소는 필요에 따라 원래 셀에서 지정된 셀로 복사되었습니다. 스크린 샷을 참조하십시오.

다른 셀에 대한 문서 복사 하이퍼 링크 04

주의 사항:이 코드는 또한 한 시트에서 다른 시트로 원하는대로 하이퍼 링크를 복사하는 데 도움이 될 수 있습니다.


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단

 

코멘트 (13)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 시트 A 셀 A5에서 시트 B 셀 A5로 하이퍼링크를 복사하려면 어떻게 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Arpit:

VBA 코드를 업데이트했습니다. 이제 필요에 따라 두 개의 워크시트에 적용할 수 있습니다. 그것을 시도하십시오, 그것이 당신을 도울 수 있기를 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
한 파일의 여러 시트에 있는 링크를 다른 파일로 복사하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요.. vlookup을 통해 하이퍼링크를 복사하려면 어떻게 합니까? 나는 이미 수식을 가지고 있지만 하이퍼 링크를 클릭하면 "지정한 파일을 열 수 없습니다"가 나타납니다.

제발 도와주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
작동하지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
사랑해. 정말 감사합니다.
도미니카 공화국에서 온 사랑 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
작동하지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀에서 A1이 하이퍼링크라고 가정해 보겠습니다. 따라서 하이퍼링크의 경로를 얻으려면 아래와 같은 수식을 생성하면 됩니다.
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 나에게도 효과가 없었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 굉장하고 작동합니다. 나는 다른 사람의 코드를 복사하여 붙여넣기를 좋아합니다 :D
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나를 위해 작동하지 않습니다. 내가 여전히 Excel 2007을 사용하고 있다는 사실이 중요합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
알겠습니다. 내 의견을 게시하지 않을 것입니다. 이는 공평합니다. 그러나 내가 등록하고 로그인하기를 원한다면 작동하는 솔루션을 보여줘야 합니다. 왜냐하면 (하나의 작동하지 않는 인스턴스를 기준으로) 등록에 가치가 있다는 것을 설득할 수 있는 방법을 본 적이 없기 때문입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내 사용 사례에 맞게 다음과 같이 편집했습니다.
하위 CopyHyperlinks()
'Uodateby Extendoffice
Dim xSRg As 범위
범위로 희미한 xDRg
Dim I as 정수
Dim xAddress를 문자열로
오류에 대한 다음 재개
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("하이퍼링크를 복사할 원래 범위를 선택하십시오:", "KuTools For Excel", xAddress, , , , , 8)
xSRg가 아무것도 없으면 Sub를 종료하십시오.
Set xDRg = Application.InputBox("하이퍼링크만 붙여넣을 새 범위를 선택하십시오.", "KuTools For Excel", , , , , 8)
xDRg가 아무것도 없으면 Sub를 종료하십시오.
xDRg = xDRg(1) 설정
I = 1 xSRg.Count에 대해
xSRg(I).Hyperlinks(1).Address <> "" 또는 xSRg(I).Hyperlinks(1).SubAddress <> ""인 경우
xSRg(I).Hyperlinks.Count = 1이면
xDRg(I).Hyperlinks.Add Anchor:=xDRg(I), _
주소:=xSRg(I).Hyperlinks(1).Address, _
하위 주소:=xSRg(I).Hyperlinks(1).SubAddress
'스크린팁:=xSRg(I).Hyperlinks(1).스크린팁, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
END IF
END IF
다음
최종 하위
아직 코멘트가 없습니다

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호