Wie kann man schnell einen Wert in mehreren Arbeitsblättern oder Arbeitsmappen suchen?
Haben Sie sich jemals vorgestellt, einen bestimmten Wert in mehreren Arbeitsblättern oder Arbeitsmappen in Excel zu suchen? In diesem Lernprogramm werden verschiedene Methoden vorgestellt, um die Probleme beim Suchen in mehreren Arbeitsblättern oder beim Suchen in mehreren Arbeitsmappen zu lösen.
Suchen Sie mit VBA in allen Arbeitsmappen eines Ordners nach einem Wert
Suchen Sie mit Kutools for Excel schnell nach einem Wert in mehreren geöffneten Arbeitsmappen
Suchen Sie einen Wert in mehreren Arbeitsblättern einer Arbeitsmappe mit der Funktion Suchen und Ersetzen
Mit Excel's Suchen und Ersetzen Funktion können Sie einen bestimmten Wert über mehrere Blätter finden.
1. Wählen Sie mehrere Blattregisterkarten aus, aus denen Sie einen Wert ermitteln möchten, indem Sie die Taste gedrückt halten Ctrl Taste und klicken Sie auf die Arbeitsblätter in der Blatt Tab-Leiste Einer nach dem anderen. Siehe Screenshot:
2. Drücken Sie dann Strg + F um das zu ermöglichen Suchen und Ersetzen Fenster und geben Sie den Wert ein, den Sie suchen möchten Finden Sie, was Textfeld unter Finden Sie Und klicken Sie dann auf Finde alle Schaltfläche, um alle Ergebnisse aufzulisten. Siehe Screenshot:
Suchen und Ersetzen von Werten über Blätter und Arbeitsmappen hinweg
|
Kutools for Excelist fortgeschritten Suchen und Ersetzen Mit dieser Funktion können Sie einen Wert über mehrere Blätter und geöffnete Arbeitsmappen hinweg finden und ersetzen. Free Download |
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Suchen Sie mit VBA in allen Arbeitsmappen eines Ordners nach einem Wert
Wenn Sie einen Wert in allen geschlossenen Arbeitsmappen aus einem Ordner suchen möchten, können Sie nur einen VBA anwenden, um ihn zu lösen.
1. Aktivieren Sie eine neue Arbeitsmappe, wählen Sie eine Zelle aus und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual für Basisanwendungen Fenster.
2 Klicken Insert > Modul und fügen Sie unter VBA das neue Modulfenster ein.
VBA: Suchen Sie einen Wert in allen Arbeitsmappen eines Ordners.
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. Drücken Sie dann F5 Schlüssel oder Führen Sie Schaltfläche zum Ausführen dieser VBA und a Wählen Sie einen Ordner Das Dialogfeld wird angezeigt, um Sie daran zu erinnern, einen Ordner auszuwählen, in dem Sie nach Werten suchen möchten. Siehe Screenshot:
4. Und dann klicken OK Ein weiteres Dialogfeld wird angezeigt, um Sie daran zu erinnern, wie viele Zellen gefunden wurden. Siehe Screenshot:
5 Klicken OK zu schließen und alle gefundenen Zellen werden im aktuellen Arbeitsblatt mit den entsprechenden Informationen aufgelistet.
TIPP: In der obigen VBA suchen Sie den Wert "KTE"und du kannst dich ändern "KTE" Daraus xStrSearch = "KTE" auf einen anderen Wert, wie Sie brauchen.
Suchen Sie mit Kutools for Excel schnell nach einem Wert in mehreren geöffneten Arbeitsmappen
Wenn Sie nur einen Wert in mehreren geöffneten Arbeitsmappen suchen möchten, können Sie ihn verwenden Kutools für Excel 's fortgeschritten Suchen und Ersetzen Dienstprogramm.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. | ||
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1. Klicken Sie in einer der geöffneten Arbeitsmappen auf Kutoolen > Navigationund dann auf die Schaltfläche Suchen und Ersetzen Taste im nun erscheinenden Bestätigungsfenster nun wieder los. um zu gehen Suchen und Ersetzen Feld. Siehe Screenshot:
2. Dann klick Finden Sie Klicken Sie auf die Registerkarte und geben Sie den Wert ein, den Sie suchen möchten Finden Sie, was Textfeld, und wählen Sie dann Alle Arbeitsmappen von dem Innerhalb Dropdown-Liste und klicken Sie auf Finde alle um alle gefundenen Zellen aufzulisten. Siehe Screenshot:
TIPP:
Mit der Kutools for Excelist fortgeschritten Suchen und Ersetzen Mit diesem Dienstprogramm können Sie Werte in ausgewählten Arbeitsblättern in mehreren Arbeitsmappen, allen Arbeitsmappen, aktiven Arbeitsmappen, aktiven Arbeitsblättern oder Auswahlen suchen und ersetzen.
Suchwert über mehrere geöffnete Arbeitsmappen hinweg
Relative Artikel:
- Wie kann man schnell mehrere Arbeitsblätter oder die gesamte Arbeitsmappe finden und ersetzen?
- Wie kann man schnell mehrere geöffnete Excel-Dateien finden und ersetzen?
- Wie finde ich den größten negativen Wert (kleiner als 0) in Excel?
- Wie extrahiere ich alle Duplikate aus einer Spalte in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!