Hur hittar jag och listar alla länkar (externa referenser) i Excel?
I Excel refererar du till innehållet i celler i en annan arbetsbok genom att skapa en extern referens. Men när du vill lista alla länkar i en arbetsbok i Excel verkar det svårt att hitta och lista alla externa referenser (länkar). Det knepiga sättet i den här artikeln hjälper dig att snabbt ta reda på och lista alla länkar i arbetsboken.
Hitta och lista alla länkar med Find-kommandot
Hitta och lista alla länkar med VB-makro
Hitta och lista alla länkar med Kutools för Excel
Hitta och lista alla länkar med Find-kommandot
Eftersom externa länkar innehåller parentes [ kan vi ta reda på de externa länkarna om vi kan få alla parentesskyltar i hela arbetsboken.
1. Klicka Hem > Hitta och välj > hitta att öppna Sök och ersätt dialog ruta. Du kan också öppna Sök och ersätt dialogruta med att trycka på ctrl + F nycklar.
2. I Hitta vad: rutan, ange vänster del av parentesskylt "[".
3. Klicka TillbehörI Inom rullgardinslista, välj ark or Arbetsbok som du vill hitta länkarna från. Se skärmdump:
4. Och klicka sedan på Hitta alla knapp. Sedan listas alla externa referenser i Sök och ersätt dialogrutan omedelbart. Tryck Ctrl + A för att välja alla länkceller enligt följande skärmdump:
Den vänstra delen av parentesskylten kan ta reda på de externa länkarna i hela arbetsboken. Om du vill ta reda på alla typer av länkar, inklusive interna länkar och externa länkar, kan du ange utropstecknet "!"i Hitta det: låda.
Hitta och lista alla länkar med VB-makro
Följande VBA-makro kan hjälpa oss att lista alla länkade källarbetsböcker i ett nytt kalkylblad med aktuell arbetsbok.
1. Håll ner ALT + F11 nycklar och det öppnar Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulernaoch klistra in följande makro i modulfönstret.
VBA: Lista alla länkar i 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. Tryck F5 för att köra detta makro. Sedan skapas ett nytt kalkylblad som heter Länkblad och lista alla länkar plats och länkade källarbetsböcker namn och spara sökvägar i det på en gång. Se skärmdump:
Hitta och lista alla länkar med Kutools för Excel
Med Kutools för ExcelÄr Hitta och bryt trasiga länkarkan du hitta alla externa länkar i det aktiva kalkylbladet, samtidigt kan du bryta de specifika länkar som du behöver.
Om du har installerat Kutools för Excel, gör så här:
1. Aktivera kalkylbladet som du vill hitta länkarna och klicka på Kutools > Länk > Hitta och bryt trasiga länkar, se skärmdump:
2. I Hitta och bryt trasiga länkar dialogrutan, klicka Filter rullgardinsmeny för att välja Alla länkar, och alla länkar i det aktiva kalkylbladet är listade, du kan också se länkstatus, OK står för att länken är giltig, Fel betyder att länken är trasig.
Anmärkningar:
1. Om Visa cell alternativet är markerat när du klickar på länken i listan. Den hittar och navigerar till den specifika cellen som innehåller länken i kalkylbladet.
2. Och om du vill bryta en länk kan du välja länken i listan och klicka sedan på Bryt länk.
Klicka för att ladda ner Kutools för Excel och gratis testversion nu!
Klicka på om du vill veta mer om den här funktionen Hitta och bryt trasiga länkar.
Hitta och lista alla länkar med Kutools för Excel
Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Ladda ner den kostnadsfria testversionen nu!
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
