利用VBA实现多工作表数据查找
【分享成果，随喜正能量】你所忘却的，都曾记得。你所辜负的，都曾承诺。你所迷失的，都曾坚定。你所痛哭的，都曾欢欣。你面前的路，都是从身后生长出来的。你现在什么样子，都是过去自己选择的。扔掉扰心的烦恼，忘记失败的沮丧，封藏痛苦的记忆，坚定地把许多的过去踩在脚下，留在身后。选择了瞬间的清醒，就等于选择了瞬间的成长。用今天的时间去沉湎过去是对今天的背叛和蹂躏，使今天成为明天的追悔，而用今天的时间来痴念未来，则是对明天的最大伤害和不敬，使未来无所依托。
《VBA信息获取与处理》教程是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。
教程共两册，八十四讲。今日的内容是专题四“EXCEL工作表数据的读取、回填和查找”的第6讲：利用VBA实现多工作表数据查找
第六节 如何在多个工作表中查找某个给定值
大家好，我们今天讲这个专题的最后一讲，如何在多个工作表中查找某个给定值，当然要求这个给定的值在一个工作表中要是单一的值，如果是多个值我们可以稍微改一下代码即可，我们不再做详细讲解。
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实践经验，全部浓缩在下面的各个教程中，教程学习顺序：
① 7→1→3→2→6→5或者7→4→3→2→6→5。
② 7→8
各套教程内容简介:
第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解
第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程
第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）
第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解
第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解
第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用
第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解
第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用
- 第六套教程：VBA信息获取与处理， 这 是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
