求解如何返回满足同一条件的多个值的公式

yinlanziyuan · 发表于 2011-11-7 12:14

本帖最后由 yinlanziyuan 于 2011-11-7 16:32 编辑

因为刚刚那个帖子好像没有说清楚，现在我弄了一个比较简单的表格，只要达到同样的效果就可以了，谢谢！

yinlanziyuan · 发表于 2011-11-7 16:05

本帖最后由 yinlanziyuan 于 2011-11-7 16:33 编辑

用VLOOKUP函数应该达不到这个要求，我想应该用数组公式，但一下子又不知怎么解决，麻烦各位EXCEL高手不吝赐教，小的感激不尽！

小花鹿 · 发表于 2011-11-7 18:01

不知这三个单价以什么样的形式显示出来，模拟个结果。

tjh680715 · 发表于 2011-11-7 17:21

向你提供一个方法，不知能用否？

win2009 · 发表于 2011-11-7 17:24

罗版主的函数，你试试

'声明函数Look，类型为String.包括四个参数，前两个为必选参数，后两个为可选参数
Function look(查找值 As String, 区域 As Range, Optional 列 As Integer = 2, Optional 索引号 As Integer = 1) As String
Application.Volatile '声明为易失性函数
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 '累加变量
'如果变量等于最后一个参数，那么将查找到的单元格右边的值赋予Look函数
If i = 索引号 Then look = cell.Offset(0, 列 - 1): Exit Function
Set cell = 区域.Find(查找值, cell, , xlWhole) '查找下一个
Loop While cell.Address <> Str
Else
look = "" '如果找不到则直接返回空白
End If
End With
End Function

复制代码

yinlanziyuan · 发表于 2011-11-7 17:31

tjh680715 发表于 2011-11-7 17:21
向你提供一个方法，不知能用否？

不管能不能用，先感谢一下，其实这个问题困扰我好久了

yinlanziyuan · 发表于 2011-11-7 17:39

tjh680715 发表于 2011-11-7 17:21
向你提供一个方法，不知能用否？

是达到效果了，但公式好复杂了，看得我有点头晕，真是难为亲了

yinlanziyuan · 发表于 2011-11-7 17:48

各位高手帮帮忙，这个我老早就想知道了，但又一直没办法，而且我工作中碰到了很多这样的情况，拜托拜托了

mschenshan · 发表于 2011-11-7 17:50

数组，右拉下拉

win2009 · 发表于 2011-11-7 17:55

本帖最后由 win2009 于 2011-11-7 18:06 编辑

例子.rar (9.63 KB, 下载次数: 190)

		自动登录	找回密码
密码			免费注册

[求助] 求解如何返回满足同一条件的多个值的公式