Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registrati
x

or

Come copiare il collegamento ipertestuale solo da una cella all'altra in Excel?

Supponendo, ho un elenco di valori nella colonna A e ogni cella contiene un collegamento ipertestuale diverso, ora, voglio copiare solo i collegamenti ipertestuali senza testo in un'altra colonna E come mostrato nella seguente schermata. Può essere che non ci sia un modo diretto per risolvere questo lavoro in Excel, ma qui, posso introdurre un codice VBA per gestirlo.

doc copia il collegamento ipertestuale a un'altra cella 1

Copia il collegamento ipertestuale da una cella all'altra con il codice VBA

Scheda Office Abilita la modifica e la navigazione a schede in Office e semplifica notevolmente il tuo lavoro ...
Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%
  • Riutilizzare qualsiasi cosa: Aggiungi le formule più utilizzate o complesse, i grafici e qualsiasi altra cosa ai tuoi preferiti e riutilizzali rapidamente in futuro.
  • Più delle funzioni di testo di 20: Estrai numero da stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi ...
  • Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma ...
  • Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro per più file Excel, PDF o CSV; Una colonna a più colonne ...
  • Incolla Saltare Righe nascoste / filtrate; Conte E Somma per colore di sfondo; Crea una mailing list e Invia e-mail in base al valore della cella...
  • Super filtro: Crea schemi di filtro avanzati e applica a tutti i fogli; Ordinare per settimana, giorno, frequenza e altro; Filtro da grassetto, formule, commento ...
  • Oltre alle potenti funzionalità di 300; Funziona con Office 2007-2019 e 365; Supporta tutte le lingue; Facile implementazione nella tua azienda o organizzazione.

freccia blu bolla destra Copia il collegamento ipertestuale da una cella all'altra con il codice VBA

Per copiare solo gli indirizzi dei collegamenti ipertestuali senza il testo in altre celle, il codice seguente può farti un favore, per favore in questo modo:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nel Modulo Finestra.

Codice VBA: copia il collegamento ipertestuale solo da una cella all'altra:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. E poi premere F5 chiave per eseguire questo codice, apparirà una finestra di dialogo per ricordarti di selezionare le celle che vuoi copiare solo i collegamenti ipertestuali, vedi screenshot:

doc copia il collegamento ipertestuale a un&#39;altra cella 02

4. E poi clicca OK, quindi seleziona le celle in cui vuoi incollare i hyperlins solo in un'altra finestra di dialogo, vedi screenshot:

doc copia il collegamento ipertestuale a un&#39;altra cella 03

5. E gli indirizzi dei collegamenti ipertestuali sono stati copiati dalle celle originali alle celle specificate di cui hai bisogno, vedi screenshot:

doc copia il collegamento ipertestuale a un&#39;altra cella 04

Note: Questo codice può anche aiutare a copiare i collegamenti ipertestuali da un foglio a un altro foglio come si desidera.


Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 30-day.
kte tab 201905

Scheda Office Porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Pawel · 26 days ago
    This is awesome and it works. I love copy&pasting other people's code :D
  • To post as a guest, your comment is unpublished.
    Abbie · 1 months ago
    This didn't work for me either.
  • To post as a guest, your comment is unpublished.
    LeZa · 4 months ago
    Lets say in your cell A1 is hyperlink, so to get the path of the hyperlink just create formula like below:
    >> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
  • To post as a guest, your comment is unpublished.
    iii · 5 months ago
    Doesn't work.
  • To post as a guest, your comment is unpublished.
    Liz Melbin Tejada · 9 months ago
    Love it. Thank you so muchoooo.
    Love From Dominican Republic :)
  • To post as a guest, your comment is unpublished.
    Passing Stranger · 1 years ago
    Doesn't work.
  • To post as a guest, your comment is unpublished.
    eunice · 1 years ago
    hello.. what if i want to copy the hyperlink through vlookup? i already have the formula but when i click the the hyperlink it "cannot open specied file" will appear.

    Please help me
  • To post as a guest, your comment is unpublished.
    Arpit · 2 years ago
    Hi, what if I want to copy my hyperlink from sheet A cell A5 to Sheet B cell A5?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello, Arpit:

      I have updated the VBA code, now, you can apply it in two worksheets as you need. Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        jprasad · 2 years ago
        I want to copy links in several sheets of one file to another file