ciao, bisogna farlo via macro...

aggiungi una nuova macro, con questo codice:

codice:
Sub EsportaLink()
    For Each cella In Selection.Cells
   
        If cella.Hyperlinks.Count <> 0 Then
            iperlink = cella.Hyperlinks(1).Address
            
            ActiveSheet.Cells(cella.Row, cella.Column + 1) = iperlink
        End If
    Next
End Sub
seleziona le celle in cui "operare" e... strumenti - macro - macro - EsportaLink
la macro scrive a fianco ad ogni cella contenente un link ipertestuale il testo del link
spero sia quello che ti serviva, facci sapere

ciao
L.