Hur söker jag snabbt efter ett värde i flera ark eller arbetsböcker?

Har du någonsin behövt söka efter ett specifikt värde i flera ark eller till och med olika arbetsböcker i Excel? Den här handledningen guidar dig genom olika metoder för att effektivt söka efter data, oavsett om du arbetar i en enskild arbetsbok eller över flera arbetsböcker.

Sök efter ett värde i flera ark i en arbetsbok med funktionen Sök och ersätt

Sök efter ett värde i alla arbetsböcker i en mapp med VBA

Sök snabbt efter ett värde i flera öppnade arbetsböcker med Kutools för Excel

Sök efter ett värde i flera ark i en arbetsbok med funktionen Sök och ersätt

Med Excel Sök och ersätt funktion kan du hitta ett visst värde över flera ark.

1. Välj flera arkflikar som du vill hitta värde genom att hålla ned ctrl och klicka på kalkylbladet i Tabellfält en och en. Se skärmdump:

2. Tryck sedan på Ctrl + F för att aktivera Sök och ersätt och skriv det värde du vill söka i Hitta det textruta under hitta fliken och klicka sedan på Hitta alla knappen för att lista alla resultat. Se skärmdump:

Hitta och ersätt värden utan problem i flera ark och arbetsböcker

Kutools för Excelär avancerad Sök och ersätt funktionen erbjuder ett effektivt sätt att söka och ersätta värden över flera ark eller till och med över alla öppnade arbetsböcker. Med denna avancerade funktion kan du spara tid och eliminera fel när du arbetar med stora datamängder, vilket gör dina Excel-uppgifter snabbare och mer exakta.

Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av permanent gratis AI-funktioner! Hämta den nu

Sök efter ett värde i alla arbetsböcker i en mapp med VBA

Om du vill söka efter ett värde i alla stängda arbetsböcker i en mapp kan du bara använda en VBA för att göra det.

1. Aktivera en ny arbetsbok och välj en cell och tryck sedan på Alt + F11 nycklar för att öppna Microsoft Visual för grundläggande applikationer fönster.

2. klick Insert > Modulerna och klistra in under VBA i det nya modulfönstret.

VBA: Sök efter ett värde i alla arbetsböcker i en mapp.

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. Tryck sedan på F5 nyckel eller Körning knappen för att utföra denna VBA, och a Välj en mapp dialogrutan dyker upp för att påminna dig om att välja en mapp som du vill söka värde från. Se skärmdump:

4. klick OK, och en annan dialogruta dyker upp för att informera dig om antalet celler som har hittats. Se skärmdump:

5. klick OK till stäng det, och alla de hittade cellerna är listade i det aktuella kalkylbladet med motsvarande information.

Dricks: I ovanstående VBA söker du värdet "KTE", och du kan ändra "KTE" från detta xStrSearch = "KTE" till ett annat värde som du behöver.

Sök snabbt efter ett värde i flera öppnade arbetsböcker med Kutools för Excel

Om du bara vill söka efter ett värde i flera öppnade arbetsböcker kan du använda det Kutools för Excel 's avancerad Sök och ersätt verktyg.

1. Klicka på i en av de öppnade arbetsböckerna Kutools > Navigering, och klicka sedan på Sök och ersätt Knappen  att gå till Sök och ersätt ruta. Se skärmdump:

2. Klicka sedan hitta och skriv det värde du vill söka i Hitta det textruta och välj sedan Alla arbetsböcker från Inom rullgardinsmenyn och klicka för att klicka Hitta alla för att lista alla hittade celler. Se skärmdump:

Dricks:

Med Kutools för Excelär avancerad Sök och ersätt verktyget kan du söka och ersätta värde i valda ark över flera arbetsböcker, alla arbetsböcker, aktiv arbetsbok, aktivt ark eller markering.

Demo: Sökvärde över flera öppnade arbetsböcker med Kutools för Excel

Relaterade artiklar:

• Hur hittar och ersätter du snabbt över flera kalkylblad eller hela arbetsboken?
• Hur hittar och ersätter jag snabbt i flera öppnade Excel-filer?
• Hur hittar jag det största negativa värdet (mindre än 0) i Excel?
• Hur extraherar jag alla dubbletter från en kolumn i Excel?