excelperfect
在工作表中查找值是很常见的操作，我们可以使用VLOOKUP函数、MATCH函数、INDEX函数等来查找值。当使用VBA代码在大量的数据中进行查找操作时，灵活运用工作表公式，往往能够提高效率。
下图1所示的工作表，要在列G中查找列A中的值，如果找到则将G列中相应行对应的列H中的值复制到列A中相应行的列B中。
图1
例如，单元格A2中的“砖基础”与单元格G3中的值相同，则将单元格H3中的值复制到单元格B2中，如下图2所示。
图2
首先，定义一个动态名称，以便列G中添加项目时能够自动更新。
名称：LookupRange
引用位置：=OFFSET(Sheet1!$G$2,0,0,COUNTA(Sheet1!$G:$G)-1)
接着，在VBE的标准模块中输入代码：
Sub CopyData()
Dim lLastRowA As Long
Dim rngA As Range
Dim rngValueA As Range
Dim lRow As Long
'列A中有数据的最后一行的行号
lLastRowA = Cells(Rows.Count,1).End(xlUp).Row
'设置需要处理的数据区域
Set rngA = Range("A2:" &"A" & lLastRowA)
'遍历需要处理的数据区域
For Each rngValueA In rngA
'使用工作表函数查找数据所在的行并返回行号
lRow = Application.WorksheetFunction. _
Match(rngValueA, [LookupRange], 0) 1
'如果找到则进行相应的操作
If lRow > 0 Then
Range("B" &rngValueA.Row) = Range("H" & lRow)
lRow = 0
End If
Next
End Sub
常规操作是使用两个循环来查找值，即在第一个For Each循环中再使用一个For Each循环遍历列G中的内容来查找，但使用工作表公式使得程序代码更简洁，效率更高。
说明：本文的例子只是演示公式在VBA中的运用。其实，本例在工作表中使用VLOOKUP函数也很容易。
