Jak najít a vypsat všechny odkazy (externí odkazy) v aplikaci Excel?

V Excelu odkazujete na obsah buněk v jiném sešitu vytvořením externího odkazu. Ale když chcete vypsat všechny odkazy na sešit v Excelu, zdá se těžké najít a vypsat všechny externí odkazy (odkazy). Záludný způsob v tomto článku vám pomůže rychle najít a vypsat všechny odkazy v sešitu.

Najít a vypsat všechny odkazy pomocí příkazu Najít

Najít a zobrazit všechny odkazy s Kutools for Excel

Najděte a vypsejte všechny odkazy pomocí makra VB

Najít a vypsat všechny odkazy pomocí příkazu Najít

Protože externí odkazy obsahují závorku [ znamení, můžeme zjistit externí odkazy, pokud můžeme získat všechny značky závorek v celém sešitu.

1. klikněte Home > Najít a vybrat > Najít k otevření Najít a nahradit dialogové okno. Můžete také otevřít Najít a nahradit dialogové okno se stiskem Ctrl + F klíče.

2. v Najít co: pole, zadejte levou část znaku závorky "[".

3. klikněte možnosti, V roce V rozevírací seznam vyberte List or Cvičebnice ze kterého chcete najít odkazy. Viz screenshot:

4. A pak klikněte na tlačítko Najít vše knoflík. Poté uvádí všechny externí odkazy v souboru Najít a nahradit dialogové okno okamžitě. lis Ctrl +  vybrat všechny buňky odkazu podle následujícího zobrazení:

Levá část znaku závorky může zjistit externí odkazy v celém sešitu. Pokud chcete zjistit všechny druhy odkazů, včetně interních a externích, můžete zadat vykřičník „!"v Najít to, co: krabice.

Najít a zobrazit všechny odkazy s Kutools for Excel

S Kutools for ExcelJe Najděte a rozbijte nefunkční odkazy, můžete najít všechny externí odkazy aktivního listu, zároveň můžete jednotlivé odkazy podle potřeby přerušit.

Pokud jste nainstalovali Kutools for Excel, udělejte prosím toto:

1. Aktivujte list, který chcete najít, a klikněte na Kutools > Odkaz > Najděte a rozbijte nefunkční odkazy, viz screenshot:

2. v Najděte a rozbijte nefunkční odkazy , klepněte na tlačítko OK Filtr z rozevíracího seznamu vyberte Všechny odkazya jsou uvedeny všechny odkazy v aktivním listu, můžete také zobrazit stav odkazů, OK znamená, že odkaz je platný, Chyba znamená, že odkaz je přerušen.

Poznámky:

1. V případě, že Zobrazit buňku Tato možnost je zaškrtnuta, když kliknete na odkaz v seznamu. Najde a přejde na konkrétní buňku, která obsahuje odkaz v listu.

2. A pokud chcete zrušit odkaz, můžete jej vybrat ze seznamu a kliknout na Přerušit odkaz.

Klikněte pro stažení Kutools for Excel a bezplatnou zkušební verzi hned teď!

Pokud se chcete o této funkci dozvědět více, klikněte prosím Najděte a rozbijte nefunkční odkazy.

Najděte a vypsejte všechny odkazy pomocí makra VB

Následující makro VBA nám může pomoci vypsat všechny propojené zdrojové sešity v novém listu aktuálního sešitu.

1. Podržte stisknuté tlačítko ALT + F11 kláves a otevře se okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující makro do okna modulu.

VBA: Seznam všech odkazů v aplikaci 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. Stiskněte F5 klíč ke spuštění tohoto makra. Poté vytvoří nový list s názvem jako Propojovací list a vypsat všechny umístění odkazů a názvy sešitů zdrojových sešitů a uložit do nich cesty najednou. Viz screenshot:

Najít a zobrazit všechny odkazy s Kutools for Excel