Jak wkleić kolumnę hiperłączy?

To wydaje się proste pytanie, ale nie mogę znaleźć odpowiedzi. Jak wkleić kilka hiperłączy?

Zobacz zrzut ekranu, który opublikowałem.

Jak widzisz, mam kolumnę tekstu. Każdy wiersz tekstu jest w rzeczywistości hiperłączem. Nie potrzebuję tekstu, ale potrzebuję adresów URL. Jak wkleić wszystkie wiersze tekstu jako adresy URL? Myślałem, że istnieje opcja „wklej specjalnie”, ale jeśli tak, nie widzę jej.

Obecnie idę komórka po komórce, klikając prawym przyciskiem myszy „Edytuj hiperłącze”, a następnie ręcznie kopiując i wklejając. Jest to dość żmudne, więc chciałbym wiedzieć, jak to zrobić od razu (jeśli to możliwe).

Jakieś pomysły?

microsoft-excel

— Michael E. Rubin
źródło

Zakładam, że wklej specjalnie - linki wklejają tylko część tekstową, a nie bazowy adres internetowy. Czy masz źródło masowej formy linków do adresów internetowych?

— bvaughn

Nie mam bezpośrednio kodu źródłowego. Są wklejane bezpośrednio z LinkedIn.

— Michael E. Rubin

Jeśli skopiujesz połączony tekst, otrzymasz tekst z osadzonym łączem. Innym sposobem jest kliknięcie źródła prawym przyciskiem myszy w przeglądarce i wybranie „skopiuj adres linku”; musisz to zrobić dla każdego źródła, które kopiujesz od samego początku. W twoim przykładzie nie ma jednak możliwości obejścia tego, co już robisz.

— ejbytes

Jeśli masz tak wiele linków, że to tylko dzień pracy, możesz przyjrzeć się AHK, ale jest to krzywa uczenia się, jeśli nie jesteś jeszcze narażony na funkcjonalność programowania. Istnieją również skróty klawiaturowe do edycji linków: CTRL + K, CTRL + C, ESC; lub CTRL (K, C), ESC. Spowoduje to umieszczenie łącza w Schowku za pomocą kilku naciśnięć klawiszy. Te naciśnięcia klawiszy można „zaprogramować” w AHK. Ale tak jak powiedziałem, jeśli nie jesteś jeszcze zaznajomiony z podstawowymi zasadami programowania, krzywa uczenia się zajęłaby trochę czasu.

— ejbytes

Najpierw wklej normalnie. Następnie wybierz wklejony blok i uruchom to krótkie makro:

Sub HyperFixer()
    Dim h As Hyperlink
    Dim rng As Range
    For Each h In ActiveSheet.Hyperlinks
        Set rng = h.Range
        If Not Intersect(rng, Selection) Is Nothing Then
            h.TextToDisplay = h.Address
        End If
    Next h
End Sub

„Przyjazna” nazwa każdego hiperłącza zostanie zmieniona w celu odzwierciedlenia faktycznego adresu URL .

— Uczeń Gary'ego
źródło