ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 47963|回复: 166

[原创] vlookup精确查找的增强版(升级,大大加快速度)

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2009-8-17 08:30 | 显示全部楼层 |阅读模式
本帖最后由 andysky 于 2014-8-17 14:59 编辑


 vlookup在精确查找某个值时,如果有多个符合条件的对象,那么它仅仅返回其中一个

 本自定义函数可以轻松突破这个限制,且公式简短。特点如下:

 1.可以通过第四参数方便地提取所有符合条件的对象;

 2.使look可以从左向右或者从右向左边进行查找;

 3.可以返回超出第二参数范围的值。

       有何不足之处请Mail至:excelbbx@163.com

        祝各位工作愉快------andysky(罗刚君)

单击与我联系


代码如下:

 Function look(查找值 As String, 区域 As Range, 列 As Integer, 索引号 As Integer) As String

 Application.Volatile

  For i = 1 To 区域.Rows.Count

     If 区域(i, 1) = 查找值 Then j = j + 1

    If j = 索引号 Then look = 区域(1).Offset(i - 1, 列 - 1): Exit Function

   Next i

End Function

测试功能:

 1.从左向右查找

  1.jpg

2.超出第二参数也可以查找

  2.jpg

3.从右向左查找

3.png

测试数据: vlookup的精确查找增强版.rar (9.53 KB, 下载次数: 4624)

评分

参与人数 2财富 +40 鲜花 +2 技术 +2 收起 理由
1035478498 + 2 值得肯定
jssy + 40 + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-8-17 08:32 | 显示全部楼层
好东西,收藏了,谢谢。

TA的精华主题

TA的得分主题

发表于 2009-8-17 08:37 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-17 08:54 | 显示全部楼层
完全看不懂这个公式什么意思!楼主太强大了!感谢!

TA的精华主题

TA的得分主题

发表于 2009-8-17 08:55 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-17 08:55 | 显示全部楼层
嗯,vlookup确实有此限制,不太方便
谢谢罗版

TA的精华主题

TA的得分主题

发表于 2009-8-17 09:02 | 显示全部楼层
简单的代码,强大的功能。
应该建议MS吸收罗兄,这样我们喜欢函数的就轻松多了。

TA的精华主题

TA的得分主题

发表于 2009-8-17 09:32 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-17 09:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-17 11:51 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-6-1 06:18 , Processed in 0.069209 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表