《VBA信息获取与处理》教程(版权©️10178984)是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA『互联网』数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。
教程共两册,二十个专题。今日分享内容是：VBA信息获取与处理第四个专题第六节：如何在多个工作表中查找某个给定值
【分享成果，随喜正能量】104苦难不会没完没了，幸运也不会永远持续。得意时不忘形，失意时不消沉。人生的起伏都是考验。知幻即离，一个人最了不起的能力，不是摆平任何人，而是摆正自己。。
专题四 EXCEL工作表数据的读取、回填和查找这个专题，我们讲解工作表数据的处理的问题，对于VBA而言，我给予的定位是“实现个人小型数据自动化处理的利器”，对于大多数朋友而言，利用VBA是与EXCEL相关联的，很多的代码也是用于处理EXCEL内或者相关的各种数据，工作表更是作为和用户的交互对象而存在，那么对于工作表的数据如何进行查找，以及如何读取就是一个十分关键的课题，我们这讲就来主要讲解这个问题。
大家好，我们今天讲这个专题的最后一讲，如何在多个工作表中查找某个给定值，当然要求这个给定的值在一个工作表中要是单一的值，如果是多个值我们可以稍微改一下代码即可，我们不再做详细讲解。
1 在多个工作表中查找给定值要首先求出每个工作表的名称求出每个工作表的名称，我们只需用ThisWorkbook.Worksheets.Item(i).Name即可以完成，我们看下面的代码：
Dim WSArray()
n = ThisWorkbook.Worksheets.Count
ReDim WSArray(1 To n)
For i = 1 To n
WSArray(i) = ThisWorkbook.Worksheets.Item(i).Name
Next
代码解读：
上述代码首先建立了一个动态数组WSArray()，这个动态数组将用来存储各个工作表的名称。变量n指的是当前工作薄所有工作表的数量，取得这个数量后，我们重读这个动态数组，然后给数组赋值。
2 利用单值查找的程序完成余下的工作当我们取得后每个工作表的名称后，我们就可以在每个工作表中进行查找，并将结果放到Cells(i, "i")单元格中，我们看下面的代码：
Sheets("Sheet7").Select
Range("i2 : I3000").ClearContents
i = 2
Do While Cells(i, "h") <> ""
UU = Cells(i, "h")
For t = 1 To n
Set FJX = Sheets(WSArray(t)).Columns("A").Find(UU, lookat:=xlWhole)
If Not FJX Is Nothing Then
Cells(i, "i") = Cells(i, "i") & " " & Sheets(WSArray(t)).Cells(FJX.Row, 2).Value
End If
Next
Set FJX = Nothing
i = i + 1
Loop
代码讲解：Cells(i, "i") = Cells(i, "i") & " " & Sheets(WSArray(t)).Cells(FJX.Row, 2).Value 这句代码中Sheets(WSArray(t))就是正在执行查找的工作表的名称。这个名称由数组的值确定，对于每个工作表都执行类似的操作后，指定单元格中就得到了最后的查询结果。另外需要注意的是我这里给出的是一个完全匹配查找，大家在实际利用的时候可以进行换成不完全匹配查找。
3 多工作表查询的总代码最后我给出整个过程的代码：
Sub MYNZK() '多工作表，每个工作表为唯一查询
Dim WSArray()
Dim FJX As Variant
n = ThisWorkbook.Worksheets.Count
ReDim WSArray(1 To n)
For i = 1 To n
WSArray(i) = ThisWorkbook.Worksheets.Item(i).Name
Next
Sheets("Sheet7").Select
Range("i2 : I3000").ClearContents
i = 2
Do While Cells(i, "h") <> ""
UU = Cells(i, "h")
For t = 1 To n
Set FJX = Sheets(WSArray(t)).Columns("A").Find(UU, lookat:=xlWhole)
If Not FJX Is Nothing Then
Cells(i, "i") = Cells(i, "i") & " " & Sheets(WSArray(t)).Cells(FJX.Row, 2).Value
End If
Next
Set FJX = Nothing
i = i + 1
Loop
MsgBox ("OK")
End Sub
代码截图：
代码的注意点：工作表名称的利用要注意是当前正在查询工作表，被查询的数据位于Sheets("Sheet7")的H列，结果返回到I列。
由于代码比较简单，这里就不再过多的讲解了，下面看返回的结果：
最后我再给出几个问题的引申：
1）如果要查询的工作表是给定的呢？该如何处理？
2）如果每个工作表中的数据不是唯一的值，该如何处理？
本节知识点回向：如何实现多工作表中的查询？实现过程中的关键点是什么？
本专题参考程序文件：004工作表.XLSM
我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：
