Come estrarre gli indirizzi effettivi dai collegamenti ipertestuali in Excel?

Supponiamo di avere un intervallo di celle che contengono collegamenti ipertestuali, e ora è necessario visualizzare la destinazione reale dei collegamenti ipertestuali ed estrarli come mostrato nello screenshot seguente. Esistono metodi semplici per risolvere rapidamente questo problema? Questo articolo vi guiderà nell'estrazione degli indirizzi effettivi da più collegamenti ipertestuali.

Estrai indirizzi effettivi dai collegamenti ipertestuali con la funzione Modifica Collegamento ipertestuale

Estrai indirizzi effettivi dai collegamenti ipertestuali con Kutools per Excel in modo rapido e semplice

Estrai indirizzi effettivi dai collegamenti ipertestuali con il codice VBA

Estrai indirizzi effettivi dai collegamenti ipertestuali con una Funzione Definita dall'Utente

Estrai indirizzi effettivi dai collegamenti ipertestuali con la funzione Modifica Collegamento ipertestuale

Qui, la funzione Modifica Collegamento ipertestuale può aiutarti a estrarre l'URL sottostante per ciascuno di questi collegamenti ipertestuali e inserire quell'indirizzo effettivo in una cella diversa. Puoi procedere come segue:

1. Seleziona la cella con il collegamento ipertestuale e fai clic con il tasto destro del mouse, dal menu contestuale scegli Modifica Collegamento ipertestuale, vedi screenshot:

2. Apparirà una finestra di dialogo Modifica Collegamento ipertestuale, seleziona e copia (Ctrl+C) l'intero URL dal campo Indirizzo della finestra di dialogo.

3. Quindi chiudi la finestra di dialogo e incolla l'indirizzo effettivo in qualsiasi cella desideri.

Nota: Con questo metodo, puoi estrarre solo un indirizzo di collegamento ipertestuale alla volta, ma se hai più collegamenti ipertestuali da estrarre, devi applicare questa funzione ripetutamente.

Estrai indirizzi effettivi dai collegamenti ipertestuali con Kutools per Excel in modo rapido e semplice

Ecco uno strumento pratico, chiamato Kutools per Excel, con la sua funzione Converti Collegamenti ipertestuali, puoi gestire rapidamente le seguenti operazioni:

• Estrai indirizzi effettivi dai collegamenti ipertestuali;
• Converti testo URL in collegamenti ipertestuali cliccabili.

Se hai installato Kutools per Excel, procedi come segue:

1. Seleziona l'intervallo che contiene i collegamenti ipertestuali da estrarre.

2. Clicca su Kutools > Collegamento > Converti Collegamenti ipertestuali, vedi screenshot:

3. Nella Converti Collegamenti ipertestuali finestra di dialogo, seleziona Converti Indirizzo Hyperlink in Contenuto Cella opzione, e clicca pulsante da Intervallo risultato per specificare una cella dove inserire il risultato.

4. E poi clicca OK, gli indirizzi effettivi sono stati estratti dai collegamenti ipertestuali. Vedi screenshot:

Nota: Se vuoi inserire gli indirizzi effettivi nell'intervallo originale, seleziona Converti Intervallo di Origine.

Scarica e prova gratuitamente Kutools per Excel Ora!

Estrai indirizzi effettivi dai collegamenti ipertestuali con il codice VBA

Per molti collegamenti ipertestuali, il metodo sopra descritto potrebbe essere tedioso e dispendioso in termini di tempo, quindi il seguente codice VBA può aiutarti a estrarre rapidamente più indirizzi dai collegamenti ipertestuali in una sola volta.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Premi il tasto F5 per eseguire il codice, e apparirà una finestra di dialogo per selezionare i collegamenti ipertestuali da cui vuoi estrarre gli indirizzi reali, vedi screenshot:

4. Poi clicca OK, e i contenuti delle celle selezionate saranno convertiti negli indirizzi effettivi dei collegamenti ipertestuali nell'intervallo originale. Vedi screenshot:

Estrai indirizzi effettivi dai collegamenti ipertestuali con una Funzione Definita dall'Utente

La seguente Funzione Definita dall'Utente può anche estrarre l'URL effettivo dai collegamenti ipertestuali.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Salva il codice e chiudi la finestra, seleziona una cella vuota e digita questa formula =GetURL(A2) (A2 è la cella che contiene il collegamento ipertestuale), e premi il pulsante Invio. Vedrai che l'indirizzo effettivo del collegamento ipertestuale è stato estratto.

Articolo correlato:

Come convertire il testo URL in un collegamento ipertestuale cliccabile in Excel?