如何在多个工作表或工作簿中快速搜索值？

网友投稿 195 2024-01-11

如何在多个工作表或工作簿中快速搜索值？

您是否曾经想过要在Excel中的多个工作表或工作簿中搜索某个值？本教程介绍了一些不同的方法来解决有关在多个工作表中搜索或在多个工作簿中进行搜索的问题。

使用查找和替换功能在工作簿的多个表中搜索值

使用VBA在文件夹的所有工作簿中搜索值

在多个打开的工作簿中快速搜索一个值 Kutools for Excel

使用查找和替换功能在工作簿的多个表中搜索值

用Excel的 查找和替换 函数，您可以在多张纸上找到某个值。

1.按住要选择多个工作表标签以从中寻找价值 按Ctrl 键并单击工作表中的 工作表标签栏 逐个。看截图：

2.然后按 Ctrl + F 使之成为可能 查找和替换 窗口，然后在 查找内容 下的文本框 找到最适合您的地方 标签，然后单击 找到所有 按钮列出所有结果。看截图：

在工作表和工作簿中查找和替换价值
Kutools for Excel的进阶 查找和替换 功能，可以帮助您跨多个工作表和已打开的工作簿查找和替换值。 免费下载 Kutools for Excel：超过300个方便的Excel插件，免费试用，没有限制 30 天。

使用VBA在文件夹的所有工作簿中搜索值

如果要从文件夹中搜索所有已关闭工作簿中的值，则只能应用VBA来解决它。

1.启用一个新工作簿并选择一个单元格，然后按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。

2。点击插页 > 模块并将其粘贴到VBA下方的新“模块”窗口中。

VBA：在文件夹的所有工作簿中搜索值。

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