江西九江租车公司排行榜
453
2024-01-11
如何在多个工作表或工作簿中快速搜索值？
如何在多个工作表或工作簿中快速搜索值？
您是否曾经想过要在Excel中的多个工作表或工作簿中搜索某个值？ 本教程介绍了一些不同的方法来解决有关在多个工作表中搜索或在多个工作簿中进行搜索的问题。
使用查找和替换功能在工作簿的多个表中搜索值
使用VBA在文件夹的所有工作簿中搜索值
在多个打开的工作簿中快速搜索一个值 Kutools for Excel
使用查找和替换功能在工作簿的多个表中搜索值用Excel的 查找和替换 函数，您可以在多张纸上找到某个值。
1.按住要选择多个工作表标签以从中寻找价值 按Ctrl 键并单击工作表中的 工作表标签栏 逐个。 看截图：
2.然后按 Ctrl + F 使之成为可能 查找和替换 窗口，然后在 查找内容 下的文本框 找到最适合您的地方 标签，然后单击 找到所有 按钮列出所有结果。 看截图：
在工作表和工作簿中查找和替换价值
Kutools for Excel的进阶 查找和替换 功能，可以帮助您跨多个工作表和已打开的工作簿查找和替换值。 免费下载 Kutools for Excel：超过300个方便的Excel插件，免费试用，没有限制 30 天。如果要从文件夹中搜索所有已关闭工作簿中的值，则只能应用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
Copy
3.然后按 F5 键或 运行 按钮执行此VBA， 选择一个文件夹 弹出对话框，提醒您选择要从中搜索值的文件夹。 看截图：
4.然后单击 OK 弹出另一个对话框，提醒您已找到单元格的数量。 看截图：
5。 点击 OK 至 关闭 它，所有找到的单元格都在当前工作表中列出，并带有相应的信息。
提示： 在以上VBA中，您搜索值 “ KTE”，您可以更改 “ KTE” 从这个 xStrSearch =“韩国电信" 您需要的另一个值。
在多个打开的工作簿中快速搜索一个值 Kutools for Excel如果您只想在多个打开的工作簿中搜索值，则可以使用 Kutools for Excel和先进的 查找和替换 效用。
Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。免费下载免费全功能 30- 天
后 免费安装 Kutools for Excel，请执行以下操作：
1.在其中一个打开的工作簿中，单击 Kutools > 旅游导航 ，然后单击 查找和替换 按键 去 查找和替换 窗格。 看截图：
2。 然后点击 找到最适合您的地方 标签，然后在 查找内容 文本框，然后选择 所有工作簿 来自 内 下拉列表，然后单击 找到所有
列出所有找到的单元格。 看截图：
提示：
Kutools for Excel的进阶 查找和替换
实用程序，您可以跨多个工作簿，所有工作簿，活动工作簿，活动工作表或选定内容搜索和替换选定工作表中的值。
跨多个打开的工作簿的搜索值
Kutools for Excel: Excel 中必须具备的 300 多个函数， 30从这里免费试用
相关文章：
如何在多个工作表或整个工作簿中快速查找和替换？
如何快速查找并替换多个打开的Excel文件？
如何在Excel中查找最大的负值（小于0）？
如何从Excel中的列中提取所有重复项？
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
立即下载，与 Excel 一起穿越时空！
阅读更多
免费下载... 采购...
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
阅读更多
免费下载... 采购...
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
