Kako najti in navesti vse povezave (zunanje reference) v Excelu?

V Excelu se sklicujete na vsebino celic v drugem delovnem zvezku tako, da ustvarite zunanjo referenco. Ko pa želite navesti vse povezave delovnega zvezka v Excelu, se zdi težko najti in navesti vse zunanje reference (povezave). Prepreden način v tem članku vam bo pomagal hitro ugotoviti in navesti vse povezave v delovnem zvezku.

Poiščite in seznam vseh povezav z ukazom Najdi

Poiščite in navedite vse povezave z makro VB

Poiščite in navedite vse povezave s programom Kutools for Excel

Poiščite in seznam vseh povezav z ukazom Najdi

Ker zunanja povezava vsebuje oklepaj [ zunanje povezave, če lahko dobimo vse oklepaje v celotni delovni zvezki.

1. klik Domov > Poiščite in izberite > Najdi da odprete Poišči in zamenjaj pogovorno okno. Lahko tudi odprete Poišči in zamenjaj pogovorno okno s pritiskom Ctrl + F ključi.

2. v Najdi kaj: vnesite levi del oklepaja "[".

3. klik možnostiV V okviru spustnega seznama izberite List or Delovni zvezek iz katerega želite najti povezave. Oglejte si posnetek zaslona:

4. In nato kliknite Poišči vse . Nato v seznamu navede vse zunanje reference Poišči in zamenjaj pogovorno okno takoj. Pritisnite Ctrl +  da izberete vse celice povezav, kot je prikazano na sliki:

Levi del oklepaja lahko najde zunanje povezave v celotnem delovnem zvezku. Če želite izvedeti vse vrste povezav, vključno z notranjimi in zunanjimi povezavami, lahko vnesete klicaj "!"v Našli kaj: škatla.

Poiščite in navedite vse povezave z makro VB

Naslednji makro VBA nam lahko pomaga našteti vse povezane delovne zvezke v novem delovnem listu trenutnega delovnega zvezka.

1. Drži dol ALT + F11 in odpre okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednji makro v okno modula.

VBA: seznam vseh povezav v Excelu.

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. Pritisnite F5 tipko za zagon tega makra. Nato ustvari nov delovni list z imenom Povezovalni list in naenkrat naštejte imena lokacij povezav in imen povezanih delovnih zvezkov ter poti shranjevanja. Oglejte si posnetek zaslona:

Poiščite in navedite vse povezave s programom Kutools for Excel

z Kutools za ExcelJe Poiščite in prekinite pokvarjene povezave, lahko najdete vse zunanje povezave aktivnega delovnega lista, hkrati pa lahko prekinete določene povezave, kot jih potrebujete.

Če ste namestili Kutools za Excel, naredite tako:

1. Aktivirajte delovni list, do katerega želite najti povezave, in kliknite Kutools > Link > Poiščite in prekinite prekinjene povezave, glej posnetek zaslona:

2. v Poiščite in prekinite pokvarjene povezave pogovorno okno, kliknite filter izberite spustni seznam Vse povezave, in vse povezave na aktivnem delovnem listu so navedene, lahko si ogledate tudi stanje povezav, OK pomeni, da je povezava veljavna, napaka pomeni, da je povezava prekinjena.

Opombe:

1. Če Ogled celice če kliknete povezavo na seznamu, je možnost označena. Poiskal bo in se pomaknil do določene celice, ki vsebuje povezavo na delovnem listu.

2. In če želite prekiniti povezavo, jo lahko izberete s seznama in kliknete Prekini povezavo.

Kliknite za prenos Kutools za Excel in brezplačno preskusno različico zdaj!

Če želite izvedeti več o tej funkciji, kliknite Poiščite in prekinite pokvarjene povezave.

Poiščite in navedite vse povezave s programom Kutools for Excel

Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Prenesite brezplačno preskusno različico zdaj!