Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 新闻动态
  • Excel资源
  • 关于我们

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中交流网 联系方式

QQ:18449932 


网  址:www.excel-cn.com  

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

Excel自定义函数实现多值查找

Excel中,很多人都用过vlookup这个函数,它可以实现单值查找,即找到每一个匹配的值。

下面来介绍一个自定义的多值查找函数,命名为ClookUp


详细代码如下:

Function ClookUp(查找值 As String, 区域 As Range, Optional 列 As Integer = 2, Optional 索引号 As Integer = 1) As String

'    确定函数ClookUp,类型为String。包括四个参数,前两个为必选参数,后两个为可选参数

    Dim i As Long, cell As Range, Str As String

    With 区域.Columns(1) '引用区域的第一列

'        如果引用区域第一个单元格等于查找的对象,那么将该单元格赋予变量Cell。否则使用Find方法查找,将找到的单元格赋予变量Cell

        If .Cells(1) = 查找值 Then Set cell = .Cells(1) Else Set cell = .Find(查找值, LookIn:=xlValues, lookat:=xlWhole)

        If Not cell Is Nothing Then '如果找到

            Str = cell.Address '记录单元格地址

            Do '通过循环语句继续查找

                i = i + 1 '累加变量,表示符合条件的个数

'                如果变量等于最后一个参数,那么将查找到的单元格右边的值赋予CLookUp函数

                If i = 索引号 Then ClookUp= cell.Offset(0, 列 - 1): Exit Function

                Set cell = 区域.Find(查找值, cell, , xlWhole) '查找下一个

'                如果找到的目标单元格地址不等于第一次找到的单元格的地址就继续查找

            Loop While cell.Address <> Str

        Else

            ClookUp= "" '如果找不到则直接返回空白

        End If

    End With

End Function



参数说明:

  • 在第一参数“区域”所代表的列中查找第二参数“查找值”的值,然后根据第三参数“列”的值确定返回值所在列的值

  • 如果有找到多个值,那么由第四参数决定返回第几个值

  • 忽略第三参数时表示默认值是为2,即返回“区域”右边一列的值

  • 忽略第四参数时表示默认值1,即返回第一个值

  • 使用函数可参考以下公式:=ClookUp(E$2,B$1:C$12,2,ROW(A1))



设计实例效果

如下表所示:对应的成品有多个部件,需要要通过成品编码去查询有哪些部件,Excel的Vlookup函数不能满足需要

e1.jpg


输入自定义函数ClookUp

如C2==ClookUp(A$2,基础资料!A$1:D$671,2,ROW(A1))

通过A$2的值去查找上述工作表“基础资料”对应区域对应列的第n个值;

如下表所示,默认查找15个值,每一个值对应5列的数据;

e2.jpg


利用设置好的自定义函数进行查询

在A$2位置输入需要查询的成品编码,即可以查询到对应的数据。

e3.jpg


点击次数:  更新时间:2017-07-21 16:12:07  【打印此页】  【关闭】
上一条:Excel数据添加后自动录入另一行  下一条:几个快速设置的Excel技巧
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

Excel交流网 版权所有 1999-2020 粤ICP备10043721号

QQ:18449932

免费Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表、Excel VBA

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2023  www.metinfo.cn