大家好，对VBA常用代码：在不同的工作表间进行查找取值感兴趣的小伙伴，下面一起跟随三零脚本的小编来看看VBA常用代码：在不同的工作表间进行查找取值的例子吧。

'来自：三零脚本（www.q3060.com）
Sub mynz ()

Sheets("1").Select

i = 2

Do While Cells(i, 1) <> ""

Cells(i, 1).Select

TT = Cells(i, 1)

Cells(i, 2) = ""

Set FJX = Sheets("2").Range("A1:A" & Sheets("2").Range("A1").End(xlDown).Row).Find(TT, LookAt:=xlWhole)

If Not FJX Is Nothing Then Cells(i, 2) = Sheets("2").Cells(FJX.Row, 2)

i = i + 1

Set FJX = Nothing

Loop

End Sub

代码的解析说明：上述代码的过程将在不同的工作表间进行查找取值。将在中Sheets("2")工作表的A列第一个单元格到不为空的最后一个单元格中查找，查找的内容是Sheets("1")工作表中Cells(i, 1)的内容，其中LookAt:=xlWhole是指完全匹配查找，如果能查找到将把Sheets("2")工作表的B列的相应内容填到Sheets("1")工作表中的B列。

以上代码中要注意的内容If Not FJX Is Nothing是指如果查找到了，那么将执行下面的操作。

Cells(i, 2) = Sheets("2").Cells(FJX.Row, 2)是指在Sheets("1")工作表中的B列中填入相应的值，这个值是Sheets("2").Cells(FJX.Row, 2)，即Sheets("2")工作表的B列的相应值。

Cells(FJX.Row, 2)：FJX.Row是指查找到值的行数，Cells(FJX.Row, 2)是指查找到值的那行B列的值。