Note: The other languages of the website are Google-translated. Back to English

Jak rychle vyhledat hodnotu ve více listech nebo sešitech?

Už jste někdy zobrazili hledání určité hodnoty ve více listech nebo sešitech v aplikaci Excel? V tomto výukovém programu jsou uvedeny různé metody řešení problémů s prohledáváním více listů nebo prohledáváním více sešitů.

Hledejte hodnotu ve více listech sešitu pomocí funkce Najít a nahradit

Hledejte hodnotu ve všech sešitech složky pomocí VBA

Rychle prohledávejte hodnotu v několika otevřených sešitech pomocí Kutools pro Excel dobrý nápad3


S Excelem Najít a nahradit funkce, můžete najít určitou hodnotu na více listech.

1. Podržte stisknuté tlačítko a vyberte více záložek listu, u kterých chcete najít hodnotu Ctrl klíč a kliknutím na listy v Lišta Tabulátor jeden za druhým. Viz screenshot:

Hodnota vyhledávání dokumentů ve více listech 1

2. Poté stiskněte Ctrl + F k povolení Najít a nahradit okno a do pole zadejte hodnotu, kterou chcete hledat Najít to, co textové pole pod Najít a klepněte na tlačítko Najít vše tlačítko pro zobrazení všech výsledků. Viz screenshot:

Hodnota vyhledávání dokumentů ve více listech 2


Najděte a nahraďte hodnotu napříč listy a sešity

Kutools pro Excelje pokročilý Najít a nahradit Funkce vám pomůže najít a nahradit hodnotu na více listech a otevřených sešitech.  Stažení zdarma
najít náhradu
 
Kutools pro Excel: s více než 300 praktickými doplňky Excel, můžete vyzkoušet bez omezení za 30 dní.

Pokud chcete vyhledat hodnotu ve všech uzavřených sešitech ze složky, můžete k jejímu vyřešení použít pouze VBA.

1. Povolte nový sešit, vyberte buňku a stiskněte Alt + F11 klíče k otevření Microsoft Visual pro základní aplikace okno.

2. cvaknutí Vložit > Modul a vložte pod VBA do nového okna modulu.

VBA: Hledání hodnoty ve všech sešitech složky.

Sub SearchFolders()
'UpdatebyKutoolsforExcel20200913
    Dim xFso As Object
    Dim xFld As Object
    Dim xStrSearch As String
    Dim xStrPath As String
    Dim xStrFile As String
    Dim xOut As Worksheet
    Dim xWb As Workbook
    Dim xWk As Worksheet
    Dim xRow As Long
    Dim xFound As Range
    Dim xStrAddress As String
    Dim xFileDialog As FileDialog
    Dim xUpdate As Boolean
    Dim xCount As Long
    Dim xAWB As Workbook
    Dim xAWBStrPath As String
    Dim xBol As Boolean
    Set xAWB = ActiveWorkbook
    xAWBStrPath = xAWB.Path & "\" & xAWB.Name
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a forlder"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xStrSearch = "KTE"
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    Set xOut = Worksheets.Add
    xRow = 1
    With xOut
        .Cells(xRow, 1) = "Workbook"
        .Cells(xRow, 2) = "Worksheet"
        .Cells(xRow, 3) = "Cell"
        .Cells(xRow, 4) = "Text in Cell"
        Set xFso = CreateObject("Scripting.FileSystemObject")
        Set xFld = xFso.GetFolder(xStrPath)
        xStrFile = Dir(xStrPath & "\*.xls*")
        Do While xStrFile <> ""
            xBol = False
            If (xStrPath & "\" & xStrFile) = xAWBStrPath Then
                xBol = True
                Set xWb = xAWB
            Else
                Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
            End If
            For Each xWk In xWb.Worksheets
                If xBol And (xWk.Name = .Name) Then
                Else
                Set xFound = xWk.UsedRange.Find(xStrSearch)
                If Not xFound Is Nothing Then
                    xStrAddress = xFound.Address
                End If
                Do
                    If xFound Is Nothing Then
                        Exit Do
                    Else
                        xCount = xCount + 1
                        xRow = xRow + 1
                        .Cells(xRow, 1) = xWb.Name
                        .Cells(xRow, 2) = xWk.Name
                        .Cells(xRow, 3) = xFound.Address
                        .Cells(xRow, 4) = xFound.Value
                    End If
                    Set xFound = xWk.Cells.FindNext(After:=xFound)
                Loop While xStrAddress <> xFound.Address
                End If
            Next
            If Not xBol Then
            xWb.Close (False)
            End If
            xStrFile = Dir
        Loop
        .Columns("A:D").EntireColumn.AutoFit
    End With
    MsgBox xCount & " cells have been found", , "Kutools for Excel"
ExitHandler:
    Set xOut = Nothing
    Set xWk = Nothing
    Set xWb = Nothing
    Set xFld = Nothing
    Set xFso = Nothing
    Application.ScreenUpdating = xUpdate
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub

3. Poté stiskněte F5 nebo Běh tlačítko k provedení tohoto VBA, a Vyberte složku Zobrazí se dialogové okno, které vám připomene, abyste vybrali složku, ve které chcete hledat hodnotu. Viz screenshot:

Hodnota vyhledávání dokumentů ve více listech 3

4. A potom klikněte OK a objeví se další dialog, který vám připomene počet nalezených buněk. Viz screenshot:

Hodnota vyhledávání dokumentů ve více listech 4

5. cvaknutí OK na zavřít a všechny nalezené buňky jsou uvedeny v aktuálním listu s odpovídajícími informacemi.

Hodnota vyhledávání dokumentů ve více listech 5

Tip: Ve výše uvedeném VBA prohledáváte hodnotu „KTE“a můžete se změnit „KTE“ z tohoto xStrSearch = "KTE" na jinou hodnotu, jak potřebujete.


Pokud chcete pouze vyhledat hodnotu ve více otevřených sešitech, můžete použít Kutools pro Excel 'je pokročilý Najít a nahradit utilita.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. V jednom z otevřených sešitů klikněte na Kutools > Navigace, a potom klepněte na tlačítko Najít a nahradit tlačítko tlačítko Najít dokument jít do Najít a nahradit podokno. Viz screenshot:

Hodnota vyhledávání dokumentů ve více listech 6

2. Pak klikněte na tlačítko Najít Na kartě a zadejte hodnotu, kterou chcete prohledat na Najít to, co textové pole a poté vyberte Všechny sešity z V rozevíracího seznamu a přejděte na tlačítko Najít vše do seznamu všech nalezených buněk. Viz screenshot:
doc kutools najít nahradit 2

Tip:

S Kutools pro Excelje pokročilý Najít a nahradit můžete vyhledávat a nahrazovat hodnoty ve vybraných listech napříč více sešity, všemi sešity, aktivním sešitem, aktivním listem nebo výběrem.
doc kutools najít nahradit 3


Relativní články:


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.
karta kte 201905

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!
officetab dno
Komentáře (18)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Díky za ten VBA, funguje perfektně pro vyhledávání více souborů aplikace Excel, ale je možné, aby vrátil 5. sloupec s referenčním číslem? Jiný
xCount = xCount + 1
xRow = xRow + 1
.Cells(xRow, 1) = xWb.Name
.Cells(xRow, 2) = xWk.Name
.Cells(xRow, 3) = xFound.Address
.Cells(xRow, 4) = xFound.Value
.Cells(xRow, 5) = ???
Tento komentář byl moderátorem webu minimalizován
Díky za ten VBA, funguje perfektně pro vyhledávání více souborů aplikace Excel, ale je možné, aby vrátil 5. sloupec s referenčním číslem? Jiný
xCount = xCount + 1
xRow = xRow + 1
.Cells(xRow, 1) = xWb.Name
.Cells(xRow, 2) = xWk.Name
.Cells(xRow, 3) = xFound.Address
.Cells(xRow, 4) = xFound.Value
.Cells(xRow, 5) = ???
Tento komentář byl moderátorem webu minimalizován
To je to, co chci, aby vrátilo „Pokyny pro web“, které je přiděleno veškerému textu v buňce
Workbook Worksheet Cell Text in Cell Site Instruction
Zpráva směny Emicc 01-10-17.xlsx List1 $D$20 Instalace CMS 1773
Zpráva směny Emicc 01-10-17.xlsx List1 $D$21 Instalace CMS 1763
Zpráva směny Emicc 01-10-17.xlsx List1 $D$24 Instalace CMS 1551
Tento komentář byl moderátorem webu minimalizován
Dík. Moc mi to pomohlo =)
Tento komentář byl moderátorem webu minimalizován
Jak mohu přidat další sloupec a přenést hodnotu, která je vždy 3 sloupce, vpravo od nalezené hodnoty?
Tento komentář byl moderátorem webu minimalizován
Je mi líto, že vám nemohu pomoci, můžete přejít na naše fórum https://www.extendoffice.com/forum.html abych pokračoval v otázce, možná vám někdo pomůže.
Tento komentář byl moderátorem webu minimalizován
Přišel jsi na to někdy? Potřebuji to také.
Tento komentář byl moderátorem webu minimalizován
Váš kód funguje skvěle, hledám kód, který najde dva texty v excelových souborech, víte, jak je to možné?
Tento komentář byl moderátorem webu minimalizován
Omlouvám se, nemám o tomto problému ponětí, můžete přejít na naše fórum https://www.extendoffice.com/forum.html pokračovat v problému, možná někdo zná odpověď.
Tento komentář byl moderátorem webu minimalizován
Perfektní pro to, co potřebuji, kromě skutečnosti, že při každém hledání vytvoří nový list. Jak bych upravil kód tak, aby používal jeden list pro každé vyhledávání namísto vytváření nového? Díky, Jamesi
Tento komentář byl moderátorem webu minimalizován
Úžasné, perfektně to funguje,
Mohli byste mi pomoci, rád bych vytvořil hypertextový odkaz na každou buňku, kde byla nalezena hodnota.

Díky předem
Tento komentář byl moderátorem webu minimalizován
já bych taky chtěla! :)
Tento komentář byl moderátorem webu minimalizován
como generar kódigos qr
Tento komentář byl moderátorem webu minimalizován
Jak vytvořím hypertextový odkaz ve sloupci C pro všechny hodnoty buněk ve stejném kódu?
Tento komentář byl moderátorem webu minimalizován
Ahoj, v mém případě listu s více než 1 Lakhs záznamem skripty selhaly.
Tento komentář byl moderátorem webu minimalizován
Ahoj, Dhireeshi, kód VBA má své vlastní omezení. Můžete zkusit Kutools pro Excel's Fiind and Replace, ale může to běžet pomalu, buďte prosím trpěliví a raději si sešity předtím uložte.
Tento komentář byl moderátorem webu minimalizován
program končí zde:

Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
Tento komentář byl moderátorem webu minimalizován
Ahoj, Miku, aktualizoval jsem VBA v článku, zkuste to prosím znovu. Pokud se vyskytne nějaký problém, dejte mi prosím vědět, děkuji.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění