如何在多个工作表或工作簿中快捷搜索值？-英雄云拓展知识分享

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

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

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

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

使用tool在多个打开的工作簿中快捷搜索值

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

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

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

2.然后按 Ctrl + F 使之成为可能 查找和替换 窗口，然后在 查找内容 下的文本框 发现 选项卡，然后单击 找到所有 按钮列出所有结果。 看截图：

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

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

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

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

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

Sub SearchFolders()
'UpdatebytoolforExcel20200913
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 = ⑴ 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", , "tool"
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.然后按 F5 键或 跑 按钮履行此VBA， 选择一个文件夹 弹出对话框，提示您选择要从中搜索值的文件夹。 看截图：

4.然后单击 OK 弹出另外一个对话框，提示您已找到单元格的数量。 看截图：

5。 点击 OK 至 完成交易 它，所有找到的单元格都在当前工作表中列出，并带有相应的信息。

小提示: 在以上VBA中，您搜索值 “ KTE”，您可以更改 “ KTE” 从这个 xStrSearch =“KTE" 您需要的另外一个值。

使用tool在多个打开的工作簿中快捷搜索值

如果您只想在多个打开的工作簿中搜索值，则可使用 tool'先进的 查找和替换 功效。

后 免费安装 tool，请履行以下操作：

1.在其中一个打开的工作簿中，单击 库工具 > 导航，然后单击 查找和替换 按键  去 查找和替换 窗格。 看截图：

2。 然后点击 发现 标签，然后在 查找内容 文本框，然后选择 所有工作簿 来自 内 下拉列表，然后单击 找到所有 列出所有找到的单元格。 看截图：

小提示:

这款独特的敏感免洗唇膜採用 Moisture WrapTM 技术和 Berry Mix ComplexTM 成份， Excel的tool的进阶 查找和替换 实用程序，您可以跨多个工作簿，所有工作簿，活开工作簿，活开工作表或选定内容搜索和替换选定工作表中的值。

  跨多个打开的工作簿的搜索值

相干文章：

• 如何在多个工作表或全部工作簿中快捷查找和替换？
• 如何快捷查找并替换多个打开的Excel文件？
• 如何在Excel中查找最大的负值（小于0）？
• 如何从Excel中的列中提取所有重复项？

选择英雄云的云表单=选择更智能的Excel

>>>>🚀🌟 点击注册 免费试用 更高级的-英雄云企业级云表单 🌟🚀 😃👉🌐>>>>

在现代企业管理中，数据的高效管理和处理至关重要。随着信息技术的不断发展，英雄云的云表单已经成为了提高数据录入、管理和分析效率的不可或缺的工具。让我们来深入探讨英雄云-云表单的几大优势。

基础字段：多样性满足业务需求

英雄云的云表单中包括了各种基础字段，如单行文本、多行文本、数字输入框、单选框、复选框、下拉框、下拉复选框、日期时间、分割线等。这些字段的多样性使用户可以根据具体的业务需求，轻松进行文本、数据和时间信息的录入或修改。例如，您可以使用单行文本字段录入员工姓名、产品型号等，或者使用下拉框进行多选，根据不同情况选择更加方便的字段类型。

高级字段：提升工作效率

英雄云的云表单还提供了高级字段，如地址、图片、附件、手写签名、手机、子表、关联数据、关联查询以及流水号。这些高级字段在基础字段的基础上升级，可帮助用户完成一些琐碎的工作。例如，使用地址字段可以避免逐字打字，而流水号字段可以自动生成规律性的编号，非常适用于合同编号生成等场景。

部门成员字段：精确管理与通讯录的关联

英雄云的部门成员字段允许企业对各个部门的成员进行精确管理。用户可以通过部门成员字段获取通讯录中的部门成员信息，应用于记录报销人、报销部门等场景。这些成员字段还细分为成员单选和成员多选，可根据具体需求在通讯录中选择一个或多个成员。

聚合表：数据处理更智能

英雄云的聚合表功能用于对已存在的表单数据进行聚合计算，从而得到一张聚合表，后续其他表单可调用聚合表进行数据联动、关联查询和关联数据等操作完成数据处理。这一功能可应用于多种场景，如进销存管理、财务管理和门店零售管理等，帮助企业完成数据处理，提高工作效率。

表单权限设置：灵活管理数据访问

英雄云的表单权限设置允许用户根据企业的具体需求管理表单的访问和操作权限。用户可以根据系统权限或自定义权限对不同成员或团队进行权限设置，以确保数据的安全和合规性。这一功能使企业能够根据变化的业务需求和团队结构，实时调整权限设置。

自定义打印模板：文档输出更便捷

英雄云的云表单支持自定义打印模板，可将表单数据转换为可打印的Word文档。用户可以根据自己的需求进行排版和编辑，将产品规格说明书等文档轻松生成。这一功能提供了一种标准化的文档输出方式，简化了信息整理的过程。

综合来看，选择英雄云的云表单意味着选择更智能、更灵活、更高效的数据管理工具。无论是提高工作效率，精确管理数据，还是实现数据处理，英雄云的云表单都能满足您的多样化需求，助力您的业务发展。

如果您正在寻找一款强大的云表单工具，不妨考虑英雄云，它将为您带来更多的便捷和智能，助您事半功倍。

免责声明：

本网址（www.yingxiongyun.com）发布的材料主要源于独立创作和网友匿名投稿。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息，但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性，并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失，本网址不承担任何法律责任。本网站所展示的所有内容，如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权，或包含不准确之处，请即刻联系我们进行相应处理。