Come trovare ed elencare tutti i collegamenti (riferimenti esterni) in Excel?
In Excel, si fa riferimento al contenuto di celle presenti in un'altra cartella di lavoro creando un riferimento esterno. Tuttavia, quando si desidera elencare tutti i collegamenti di una cartella di lavoro in Excel, sembra difficile individuare ed elencare tutti i riferimenti esterni (collegamenti). Il metodo descritto in questo articolo ti aiuterà a trovare ed elencare rapidamente tutti i collegamenti nella cartella di lavoro.
Trova ed elenca tutti i collegamenti con il comando Trova
Trova ed elenca tutti i collegamenti con Kutools per Excel
Trova ed elenca tutti i collegamenti con una macro VB
Trova ed elenca tutti i collegamenti con il comando Trova
Poiché i collegamenti esterni contengono la parentesi quadra [, possiamo individuarli recuperando tutte le parentesi quadre presenti nell’intera cartella di lavoro.
1. Fai clic su Home > Trova e seleziona > Trova per aprire la finestra di dialogo Trova e sostituisci. Puoi anche aprire la finestra di dialogo Trova e sostituisci premendo i tasti Ctrl + F.
2. Nella casella Trova:, inserisci il simbolo di parentesi quadra sinistra "[".
3. Fai clic su Opzioni, quindi, nell'elenco a discesa All'interno di, scegli Foglio o Cartella di lavoro da cui desideri trovare i collegamenti. Vedi screenshot:
4. Fai quindi clic sul pulsante Trova tutto. Verranno immediatamente elencati tutti i riferimenti esterni nella finestra di dialogo Trova e sostituisci. Premi Ctrl + A per selezionare tutte le celle contenenti collegamenti, come mostrato nello screenshot seguente:
Il simbolo di parentesi quadra sinistra ti permette di individuare i collegamenti esterni nell’intera cartella di lavoro. Se invece desideri trovare tutti i tipi di collegamenti — sia interni che esterni — inserisci il punto esclamativo "!" nella casella Trova:.
Trova ed elenca tutti i collegamenti con Kutools per Excel
Con Kutools per Excel e la sua funzione Trova e interrompi collegamenti, puoi individuare tutti i collegamenti esterni del foglio attivo e, allo stesso tempo, interrompere quelli specifici che ti servono.
Se hai installato Kutools per Excel, procedi nel seguente modo:
1.Attiva il foglio in cui desideri trovare i collegamenti e fai clic su Kutools>Collegamento>Trova e interrompi collegamenti, vedi screenshot:
2. Nella finestra di dialogo Trova e interrompi collegamenti, fai clic sull'elenco a discesa Filtra e seleziona Tutti i collegamenti. Verranno elencati tutti i collegamenti presenti nel foglio attivo; potrai inoltre visualizzarne lo stato: OK indica che il collegamento è valido, mentre Errore significa che il collegamento è interrotto.
Note:
1. Se è selezionata l'opzione Attiva cella, facendo clic su un collegamento nell'elenco verrai indirizzato direttamente alla cella specifica che contiene il collegamento nel foglio di lavoro.
2. Inoltre, se desideri interrompere un collegamento, puoi selezionarlo dall’elenco e fare clic su Interrompi collegamento.
Clicca per scaricare Kutools per Excel e provalo subito gratuitamente!
Per ulteriori informazioni su questa funzionalità, fai clic su Trova e interrompi collegamenti.
Trova ed elenca tutti i collegamenti con una macro VB
La seguente macro VBA ci permette di elencare tutte le cartelle di lavoro collegate come fonti in un nuovo foglio di lavoro all’interno della cartella di lavoro corrente.
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications Edition.
2. Fai clic su Inserisci > Modulo e incolla la seguente macro nella finestra del modulo.
VBA: Elenca tutti i collegamenti presenti in Excel.
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. Premi il tasto F5 per eseguire questa macro. Verrà creato un nuovo foglio di lavoro denominato Foglio collegamenti, in cui saranno elencati contemporaneamente la posizione di tutti i collegamenti e i nomi delle cartelle di lavoro fonte, con i relativi percorsi di salvataggio. Vedi screenshot:
Trova ed elenca tutti i collegamenti con Kutools per Excel
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi