Excel: przekształć kolumnę z hiperłączami tak, aby wyświetlała tylko łącza

Krótka odpowiedź: Nie można tego zautomatyzować bez VBA.

Instrukcja

To jest na komputerze z systemem Windows 7; po prostu zamień skróty na ich odpowiedniki na Macu.

1. Podświetl komórkę z hiperłączem.
2. Naciśnij CTRL+K. Spowoduje to otwarcie okna dialogowego hiperłącza (patrz rysunek poniżej). Po jego otwarciu zauważysz, że kursor znajduje się już w polu Adres.
3. Wciśnij CTRL+A, aby zaznaczyć cały adres URL.
4. Naciśnij CTRL+C, aby go skopiować.
5. Naciśnij ESC lub Enter, aby zamknąć okno dialogowe Hiperłącze.
6. Wklej gdzieś adres URL, używając kombinacji klawiszy CTRL + V.

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

VBA

Oto rozwiązanie VBA dla tych, którzy potrafią z niego korzystać.

Utwórz moduł VBA z następującym kodem:

=GetURL(A1)

Aby użyć, wpisz do dowolnej komórki następujące dane:

gdzie A1 zawiera hiperłącze.

Funkcja w pracy:

To może brzmieć jak metoda brutalnej siły, ale jest to najlepszy sposób, jaki wymyśliłem. (Odkryłem tę stronę, gdy sam miałem to samo pytanie godzinę temu… mógłbyś spędzić cały dzień na szukaniu, ale czasami po prostu łatwiej jest to zrobić i mieć to za sobą).

1) Skopiuj i wklej tylko komórki zawierające hiperłącza do nowego arkusza kalkulacyjnego.

2) Wyeksportuj arkusz kalkulacyjny, kliknij “Zmień typ pliku”, wybierz “Zapisz jako inny typ pliku” i zapisz go jako stronę internetową (aka plik HTML).

3) Otwórz stronę internetową w przeglądarce i zobacz źródło.

4) Skopiuj i wklej źródło do edytora tekstu.

5) Używając funkcji Znajdź/Zamień w edytorze tekstu, usuń początkowy i końcowy tekst każdego hiperłącza. (Innymi słowy, zamień ten tekst na nic: “”) Zauważ, że ten tekst powinien być identyczny dla każdego hiperłącza.

6) Powinieneś teraz mieć plik tekstowy zawierający tylko hiperłącza. Skopiuj i wklej w razie potrzeby z powrotem do swojego oryginalnego arkusza kalkulacyjnego lub użyj go gdziekolwiek chcesz.

Edytowane, aby stwierdzić, że możesz faktycznie eksportować do osobnego pliku, który jest HTM. Zamknij plik i otwórz go ponownie w Excelu, a problem zostanie rozwiązany. Formuła =Hyperlink zniknęła, a linki są przekształcane w zwykłe linki. Ta metoda uratowała mi godziny i był martwy proste i nie miałem do czynienia ze skryptami lub formuły lub VBA lub Makra.

Używam Maca i to zadziałało dla mnie: podświetl kolumnę, którą chcesz przekonwertować, w menu Wstaw, otwórz “Hiperłącze”. Usuń każdy tekst, który pojawia się w polu Wyświetlanie. Jeśli tekst wyświetlacza jest różny w różnych komórkach, pojawi się napis “[zaznaczono wiele komórek]”. Po kliknięciu przycisku OK na arkuszu pojawią się tylko linki. Jeśli potrzebujesz przekonwertować pojedyncze komórki, a nie całą kolumnę, zaznacz wszystkie komórki, które chcesz przekonwertować, kliknij prawym przyciskiem myszy, wybierz “edytuj hiperłącze” i wykonaj te same kroki, aby usunąć tekst w polu Wyświetlanie.

Jestem pewien, że jest z VBA jednak w międzyczasie kliknij prawym przyciskiem myszy, H, i skopiuj i wklej adres do ekranu do wyświetlenia pola

W latach, w których to pytanie zostało zadane, Excel dodał funkcję =GetURL(cell), więc możesz to zrobić bez upuszczania własnego VBA.