《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实践经验，全部浓缩在下面的各个教程中，教程学习顺序：