美文网首页Office实用小技能getExcel 加油站VBA For Excel
EXCEL——VBA实现模糊查找并获取查找到的单元格内容

EXCEL——VBA实现模糊查找并获取查找到的单元格内容

作者: tobbyvic | 来源:发表于2018-03-18 11:42 被阅读198次
    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列

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

    相关文章

      网友评论

      • 风雨乔:你好,我运行你的代码后输出错误"6" 溢出,这个怎么处理?

      本文标题:EXCEL——VBA实现模糊查找并获取查找到的单元格内容

      本文链接:https://www.haomeiwen.com/subject/moajqftx.html