作者：绿色风
分类：
时间：2022-08-18
浏览：169
楼主
传递 |
自定义函数WLOOKUP
此传递非那那传递，蓦然回首，那人却在灯火阑珊处。寻找和等待的一方都需要同样的耐心和默契，这坚定毕竟太难得，有谁会用十年的耐心去等待一个人，有谁在十年之后回头还能看见等在身后的那个人？亦真亦假，谁能找出那个传递？
查找中当出现同名时,如果不会自定义函数，就得写长长的数组公式。
没有容错- =INDEX(ROUND($C$3:$C$10,),SMALL(IF($A$3:$A$10="传递",ROW($3:$10)-2),ROW(A1)))
容错- =IF(ROW(A1)>COUNTIF($A$3:$A$10,"传递"),"",ROUND(INDEX(C:C,SMALL(IF($A$3:$A$10="传递",ROW($3:$10)),ROW(A1))),))
自定函数仅输入- =wlookup($A$12,$A$3:$A$10,3,2)
就可以很方便查到对于值。
代码如下：- Function WLOOKUP(X As Range, M As Variant, A As Byte, B As Byte)
- Dim I As Integer
- I = Application.WorksheetFunction.CountIf(M, X)
- Set M = Intersect(M.Parent.UsedRange, M)
- For Each MR In M
- If MR.Value = X Then
- Y = Y + 1
- If Y > I Then Exit Function
- If Y = A Then
- WLOOKUP = MR.Offset(0, B).Value
- End If
- End If
- Next MR
- End Function
 自定义查询函数WLOOKUP.rar
|
2楼
eliane_lei |
 赞一个**慢慢消化~ |
3楼
修治 |
赞一个**慢慢消化~ |
4楼
JOYARK1958 |
謝謝提供下載學習 |
5楼
rongjun |
重复了
如何定义从重复基准信息中检索数据的自定义函数？
http://www.exceltip.net/thread-4791-1-1.html
|
6楼
我一定会回来的 |
请问WLOOKUP是什么函数，我下载后双击单元格，显示错误。 |
7楼
传递 |
自定义的 |
8楼
hzfei8 |
=wlookup($A$12,$A$3:$A$10,3,2)能不能在这个公式里面再加一个条件进去呢，比如把这个公式查找第三个值改为大于或等于某个值呢 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一