image

大家有没有遇到过这种情况，要在一张数据很多的sheet中进行查找匹配一个数据或多个数据(部分匹配)，并对查找到的单元格内容进行汇总。这个时候如果对多个数据一个个在目标sheet中ctrl+f进行查找实在太过没有效率，这个时候我们通过VBA来实现批量查找并获取单元格的值。

• 首先对情景进行模拟，如下要在这个目标sheet中进行查找：

  
  
  目标sheet
  
  

  查找的值为：

  
  
  要查找的值
  
  因为是模拟数据，所以我们要查找的值就设置了两个，方便理解即可。要查找的值多些也无妨。。

• 让我们来看一下VBA代码

Sub Find演示()

    Dim rng As Object
    Dim i As Integer
    With ActiveSheet.UsedRange
        For j = 1 To Sheet2.[a65536].End(3).Row '对某一列需要比对的数据循环find
            Set rn = Cells.Find(what:=Sheet2.Cells(j, 1).Value, LookAt:=xlPart) 'find的内容
            firstval = rn.Address '记录第一个查询到的单元格的位置
            i = 1
            Do
                Sheet2.Cells(i, j + 4).Value = rn.Value '将find的内容记录到sheet2
                Debug.Print rn.Value
                Set rn = .FindNext(after:=rn) '查询下一个赋值给rn
                i = i + 1
            Loop While rn.Address <> firstval '当循环一遍再匹配到第一个单元格时会退出
        Next
    End With
    
End Sub

代码中标记的很清楚，我们是通过find这个方法来进行查找，
下面这句话是对要匹配的那一列进行循环作为关键字进行查找。

For j = 1 To Sheet2.[a65536].End(3).Row '对某一列需要比对的数据
Next

采用部分匹配进行查找

Set rn = Cells.Find(what:=Sheet2.Cells(j, 1).Value, LookAt:=xlPart) 'find的内容

记录第一个单元格的位置

firstval = rn.Address '记录第一个查询到的单元格的位置

这句话是将查询到的单元格rn.value赋值给sheet2的从第5列（E列）开始的位置，每一列是每一个关键字匹配到的目标sheet中单元格的内容。。
针对最上面进行模拟的表格，那么运行上述代码得到的结果就是如下图：

结果

关键字为"jianshu"得到的查询结果就是E列
关键字为"libai"得到的查询结果就是F列

就是这个样子，大家可以自行借鉴代码进行修改来使用，希望能帮到大家，不介意的话，给个赞吧^^, 会给我更大的动力继续更文章哦~