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
Najděte a vypsejte všechny odkazy pomocí makra VB
Najděte a vypište všechny odkazy s Kutools for Excel
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 Domů > 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.
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:
Najděte a vypište 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 zkušební verze zdarma nyní!
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 vypište všechny odkazy s Kutools for Excel
Kutools for Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si bezplatnou zkušební verzi hned teď!
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své excelentní dovednosti pomocí Kutools for Excela zažijte efektivitu jako nikdy předtím. Kutools for Excel Nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab Přináší rozhraní s kartami do Office a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
