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 vypsejte všechny odkazy pomocí Kutools pro 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 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.
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 vypsejte všechny odkazy pomocí Kutools pro Excel
S Kutools pro 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 pro 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 a stáhněte si Kutools pro 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í Kutools pro Excel
Kutools pro 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ší kancelářské nástroje produktivity
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
- Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
- Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
- Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
- Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
- Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
- Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
- Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
- Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
- Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
Office Tab přináší do Office rozhraní s kartami 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 omezuje stovky kliknutí myší každý den!
