Jak przekonwertować kolumnę tekstowych adresów URL na aktywne hiperłącza w programie Excel?

Mam kolumnę w programie Excel, w której mam wszystkie wartości adresu URL witryny. Moje pytanie brzmi: chcę zmienić wartości adresu URL na aktywne linki. W tej kolumnie znajduje się około 200 wpisów z różnymi adresami URL we wszystkich komórkach. Czy istnieje sposób, w jaki mogę utworzyć aktywne hiperłącza do wszystkich komórek bez pisania makra.

Jeśli nie chcesz tworzyć makra i dopóki nie przeszkadza ci dodatkowa kolumna, po prostu utwórz nową kolumnę obok kolumny adresów URL.

W nowej kolumnie wpisz formułę =HYPERLINK(A1)(zastępując A1 dowolną komórką, którą jesteś zainteresowany). Następnie skopiuj formułę do pozostałych 200 pozycji.

UWAGA: To rozwiązanie nie działa, jeśli komórka A1 zawiera ciąg dłuższy niż 255 znaków. Powoduje #VALUE!błąd

Utwórz makro jak tutaj:

W menu Narzędzia w Microsoft Excel wskaż Makro, a następnie kliknij Edytor Visual Basic. W menu Wstaw kliknij polecenie Moduł. Skopiuj i wklej ten kod do okna kodu modułu. Automatycznie nazywa się HyperAdd.

Sub HyperAdd()

    'Converts each text hyperlink selected into a working hyperlink

    For Each xCell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
    Next xCell

End Sub

Po zakończeniu wklejania makra kliknij polecenie Zamknij i wróć do programu Microsoft Excel w menu Plik.

Następnie wybierz wymagane komórki, kliknij makro i kliknij uruchom.

UWAGA NIE zaznaczaj całej kolumny! Wybierz TYLKO komórki, które chcesz zmienić, na klikalne łącza, w przeciwnym razie skończysz w niekończącej się pętli i będziesz musiał ponownie uruchomić program Excel! Gotowe!

Oto sposób, w jaki znalazłem. Jestem na komputerze Mac przy użyciu programu Excel 2011. Jeśli w kolumnie B znajdują się wartości tekstowe, które mają być hiperłączami, umieść tę formułę w komórce C1 (lub D1 lub cokolwiek innego, o ile jest to wolna kolumna): =HYPERLINK(B1,B1) spowoduje to wstawienie hiperłącza za pomocą lokalizacja jako tekst linku i „przyjazna nazwa” jako tekst linku. Jeśli masz inną kolumnę, która ma przyjazną nazwę dla każdego linku, możesz jej również użyć. Następnie możesz ukryć kolumnę tekstową, jeśli nie chcesz jej widzieć.

Jeśli masz listę identyfikatorów czegoś, a wszystkie adresy URL były http://website.com/folder/IDtakie, jak:

A1  | B1
101 | http://website.com/folder/101
102 | http://website.com/folder/102
103 | http://website.com/folder/103
104 | http://website.com/folder/104

możesz użyć czegoś takiego =HYPERLINK("http://website.com/folder/"&A1,A1)i nie potrzebujesz listy adresów URL. Taka była moja sytuacja i działała ładnie.

Zgodnie z tym postem: http://excelhints.com/2007/06/12/hyperlink-formula-in-excel/ ta metoda będzie działać również w programie Excel 2007.

OK, oto rozwiązanie typu hokey, ale po prostu nie mogę wymyślić, jak przekonać Excela do oceny kolumny adresów URL jako zbiorczych hiperłączy.

1. Utwórz formułę, ="=hyperlink(""" & A1 & """)"
2. Zwlec
3. Skopiuj nową kolumnę z formułą
4. Wklej tylko wartości specjalne w oryginalnej kolumnie
5. Kolumna kulminacyjnym, click Ctrl- H(wymienić), znajdowanie i zastępowanie =z =(jakoś siły ponownej oceny komórek).
6. Komórki powinny być teraz klikalne jako hiperłącza. Jeśli chcesz styl niebieski / podkreślony, po prostu zaznacz wszystkie komórki i wybierz styl Hiperłącze.

Sam styl hiperłącza nie zostanie przekonwertowany na klikalne łącza, a okno dialogowe „Wstaw hiperłącze” nie może używać tekstu jako adresu dla grupy komórek. Poza tym, F2i Enterprzez wszystkich komórkach zrobi to, ale to uciążliwe dla wielu komórek.

Dość prosty sposób na raczej krótkie listy:

1. Kliknij dwukrotnie pole, w którym znajduje się adres URL
2. Wchodzić

Masz swój link;)

Jeśli dodanie dodatkowej kolumny z hiperłączami nie jest opcją, alternatywą jest użycie zewnętrznego edytora, aby dołączyć hiperłącze do =hyperlink("i "), w celu uzyskania=hyperlink("originalCellContent")

Jeśli masz Notepad ++, jest to przepis, którego możesz użyć do wykonania tej operacji półautomatycznie:

• Skopiuj kolumnę adresów do Notepad ++
• Przytrzymanie ALT- SHIFTnaciśnięty, rozszerzył kursor od lewego górnego rogu do lewego dolnego rogu i pisze =hyperlink(". To dodaje =hyperlink("na początku każdego wpisu.
• Otwórz menu „Zamień” ( Ctrl- H), aktywuj wyrażenia regularne ( ALT- G) i zamień $(koniec linii) na "\). Dodaje to zamknięty cytat i zamknięty nawias (z którym należy uciec, \gdy aktywowane są wyrażenia regularne) na końcu każdej linii.
• Wklej dane z powrotem do Excela. W praktyce wystarczy skopiować dane i wybrać pierwszą komórkę kolumny, w której mają się znaleźć dane.

Ta metoda działa dla mnie przy użyciu funkcji hiperłącza:

=HYPERLINK("http://"&B10,B10)

Gdzie B10jest komórka zawierająca tekstową wersję adresu URL (w tym przykładzie).

W programie Excel 2007 w systemie Windows te kroki były najprostsze;

1. Wybierz komórki z nieaktywnymi adresami URL
2. Kopiuj
3. Wklej jako hiperłącze

Zszokowałem, że Excel nie zrobił tego automatycznie, więc oto moje rozwiązanie, mam nadzieję, że będzie przydatne dla innych,

1. Skopiuj całą kolumnę do schowka
2. Otwórz to w Chrome lub Firefox

data:text/html,<button onclick="document.write(document.body.querySelector('textarea').value.split('\n').map(x => '<a href=\'' + x + '\'>' + x + '</a>').join('<br>'))">Linkify</button><br><textarea></textarea>

3. Wklej kolumnę na stronie, którą właśnie otworzyłeś w przeglądarce i naciśnij „Linkify”
4. Skopiuj wynik z karty do kolumny w programie Excel

Zamiast tego krok drugi, możesz skorzystać z poniższej strony, najpierw kliknij „Uruchom fragment kodu”, a następnie wklej na nim kolumnę

<button onclick="document.write(document.body.querySelector('textarea').value.split('\n').map(x => '<a href=\'' + x + '\'>' + x + '</a>').join('<br>'))">Linkify</button><br><textarea></textarea>

Dla mnie właśnie skopiowałem całą kolumnę, która ma adresy URL w formacie tekstowym, do innej aplikacji (powiedzmy Evernote), a kiedy zostały wklejone, stały się linkami, a następnie skopiowałem je z powrotem do Excela.

Jedyne, co musisz zrobić, to upewnić się, że dane, które kopiujesz, są zgodne z resztą kolumn.

Spróbuj tego:

= HYPERLINK („mailto:” i A1, A1)

Zamień A1 na komórkę adresu e-mail.

Odkryłem, że żadna z metod tutaj nie działała, jeśli hiperłącze nie zawierało http: //, ponieważ zawierały linki do lokalnych lokalizacji.

Chciałem też oszukać skrypt, ponieważ użytkownicy nie byliby w stanie samodzielnie go utrzymać i nie byłbym dostępny.

Będzie działał tylko na komórkach w wybranym zakresie, jeśli zawierają kropkę i nie zawierają spacji. Będzie działał tylko dla maksymalnie 10 000 komórek.

Sub HyperAdd()
Dim CellsWithSpaces As String
    'Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
        If xCell.Formula = "" Or InStr(xCell.Formula, ".") = NotPresent Then
        'Do nothing if the cell is blank or contains no dots
        Else
            If InStr(xCell.Formula, " ") <> 0 Then
                CellsWithSpaces = CellsWithSpaces & ", " & Replace(xCell.Address, "$", "")
                 GoTo Nextxcell
            End If

            If InStr(xCell.Formula, "http") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "http://" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        End If
        i = i + 1
        If i = 10000 Then Exit Sub
Nextxcell:
      Next xCell
    If Not CellsWithSpaces = "" Then
        MsgBox ("Please remove spaces from the following cells:" & CellsWithSpaces)
    End If
Application.ScreenUpdating = True
End Sub

1. Utwórz tymczasową nową kolumnę hiperłączy za pomocą formuły = HYPERLINK ()
2. Skopiuj tę kolumnę do programu Microsoft Word (skopiuj do schowka tylko po uruchomieniu programu Word).
3. Skopiuj wszystko z nowego dokumentu tekstowego (ctrl + a, a następnie ctrl + c).
4. Wklej do Excela, zastępując oryginalną kolumnę tekstu. Usuń tymczasową kolumnę z formułą.

Możesz wstawić formułę =HYPERLINK(<your_cell>,<your_cell>)do sąsiedniej komórki i przeciągnąć ją do samego końca. To da ci kolumnę ze wszystkimi linkami. Teraz możesz wybrać oryginalną kolumnę, klikając nagłówek, kliknij prawym przyciskiem myszy i wybierz Hide.

Umieść adresy URL w tabeli HTML, załaduj stronę HTML do przeglądarki, skopiuj zawartość tej strony, wklej do Excela. W tym momencie adresy URL są zachowywane jako aktywne linki.

Rozwiązanie zostało zaproponowane na http://answers.microsoft.com/en-us/mac/forum/macoffice2008-macexcel/how-to-copy-and-paste-to-mac-excel-2008-a-list-of/ c5fa2890-acf5-461d-adb5-32480855e11e autor: (Jim Gordon Mac MVP) [ http://answers.microsoft.com/en-us/profile/75a2b744-a259-49bb-8eb1-7db61dae9e78]

Stwierdziłem, że zadziałało.

Miałem te adresy URL:

https://twitter.com/keeseter/status/578350771235872768/photo/1 https://instagram.com/p/ys5ASPCDEV/ https://igcdn-photos-ga.akamaihd.net/hphotos-ak-xfa1/t51 .2885-15 / 10881854_329617847240910_1814142151_n.jpg https://twitter.com/ranadotson/status/539485028712189952/photo/1 https://instagram.com/p/0OgdvyxMhW/ https://instagram.com/p/1nynTiiLSb/

Umieszczam je w pliku HTML (links.html) w następujący sposób:

<table>
<tr><td><a href="https://twitter.com/keeseter/status/578350771235872768/photo/1">https://twitter.com/keeseter/status/578350771235872768/photo/1</a></td></tr>
<tr><td><a href="https://instagram.com/p/ys5ASPCDEV/">https://instagram.com/p/ys5ASPCDEV/</a></td></tr>
<tr><td><a href="https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg">https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg</a></td></tr>
<tr><td><a href="https://twitter.com/ranadotson/status/539485028712189952/photo/1">https://twitter.com/ranadotson/status/539485028712189952/photo/1</a></td></tr>
<tr><td><a href="https://instagram.com/p/0OgdvyxMhW/">https://instagram.com/p/0OgdvyxMhW/</a></td></tr>
</table>

Następnie załadowałem links.html do mojej przeglądarki, skopiowałem, wkleiłem do Excela, a linki były aktywne.

Dziękuję Cassiopei za kod. Zmieniam jego kod, aby działał z lokalnymi adresami i wprowadziłem niewielkie zmiany w jego warunkach. Usunąłem następujące warunki:

1. Zmień http:/nafile:///
2. Usunięto wszystkie rodzaje białych znaków
3. Zmieniono 10k zakres zasięgu komórki na 100k

Sub HyperAddForLocalLinks()
Dim CellsWithSpaces As String
    'Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
            If InStr(xCell.Formula, "file:///") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "file:///" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        i = i + 1
        If i = 100000 Then Exit Sub
Nextxcell:
      Next xCell
    Application.ScreenUpdating = True
End Sub

Miałem listę liczb, które są podawane do adresu URL, który chcę połączyć z linkiem. Na przykład mam kolumnę A z numerami pytań (tj. 2595692, 135171) i chcę przekształcić te numery pytań w hotlinki i wyświetlić tylko numery pytań.

Zbudowałem więc hiperłącze tekstowe wskazujące na kolumnę A i skopiowałem je dla wszystkich numerów pytań:

= "= HYPERLINK (" & "" "http" "&" ":" "" & "" & "&" & "" "// stackoverflow.com/questions/"&A1&"""&&","&A1& „)”

Następnie kopiuję - wklejam wartość tej kolumny hiperłączy tekstowych do innej kolumny.

Otrzymasz kolumnę tekstu, która wygląda następująco:

= HYPERLINK („http” i „:” & ”// stackoverflow.com/questions/2595692",2595692)

Następnie wybrałem te wklejone elementy i uruchomiłem następujące makro F2Entry:

Sub F2Enter()
Dim cell As Range
Application.Calculation = xlCalculationManual
For Each cell In Selection
    cell.Activate
    cell = Trim(cell)
Next cell
Application.Calculation = xlCalculationAutomatic
EndSub

Następnie usunąłem kolumnę wprowadzania tekstu i kolumnę A.

Skończyłem z jedną kolumną z numerami pytań z linkiem:

2595692

135171

itp.

Twoje zdrowie

Jeśli skopiujesz treść tekstu do nowej kolumny i użyjesz:

=HYPERLINK("http://"&B10,B10) 

w oryginalnej kolumnie. Następnie użyj $dla kolumny, aby wyglądała następująco:

=HYPERLINK("http://"&$B10,$B10)

To jedyny sposób, w jaki działało dla mnie w programie Excel 2010 w systemie Windows 7. Możesz skopiować formułę.

Dla każdego, kto ląduje tutaj w programie Excel 2016, możesz po prostu podświetlić kolumnę, a następnie kliknąć Hyperlinkkartę znajdującą się na Homewstążce w Stylespolu.

Edycja: Niestety, to tylko aktualizuje styl komórki, a nie funkcję.

Najłatwiejszy sposób tutaj

• Podświetl całą kolumnę
• kliknij „wstaw”
• kliknij „Hiperłącze”
• kliknij „umieść w tym dokumencie”
• Kliknij OK
• to wszystko

Najprostszy sposób w programie Excel 2010: wybierz kolumnę z tekstem adresu URL, a następnie wybierz Styl hiperłącza z karty Strona główna. Wszystkie adresy URL w kolumnie są teraz hiperłączami.

Również dwukrotne kliknięcie każdej komórki na końcu tekstu adresu URL i dodanie pustego lub po prostu enter spowoduje również utworzenie hiperłącza. Podobne do sposobu tworzenia linków URL w wiadomościach e-mail MS Outlook.

Jest na to bardzo prosty sposób. Utwórz jedno hiperłącze, a następnie użyj narzędzia Malarz formatów, aby skopiować formatowanie. Stworzy hiperłącze dla każdego elementu.