[已解决]查找函数相关

xxm893032160

麻烦帮忙看看，谢谢，查找函数有关的

最佳答案

月排行榜 / 总排行榜

孤单无所谓

2014-7-26 15:51

1. '方法一:
   
2. '按ALT+F11 选中 Microsoft Excel 对象 右键 选择 插入->模块\
   
3. '双击模块1 将下如代码粘贴至 右边空白区 点击关闭
   
4. '***************************************************************
   
5. Function 合并(x, r, col)
   
6.     arr = r
   
7.     Dim k()
   
8.     For i = 1 To UBound(arr)
   
9.         If arr(i, 1) = x.Value Then
   
10.             n = n + 1
    
11.             ReDim Preserve k(1 To n)
    
12.             k(n) = arr(i, col)
    
13.         End If
    
14.     Next
    
15.     合并 = Join(k, "、")
    
16. End Function
    
17. '**************************************************************
    
18. '然后 在 表1 中E2单元格 输入=合并(A2,表二!A$2:E$16,2)  用法与Vlookup基本一致 然后下拉即可
    
19. 
    
20. 
    
21. '方法二:
    
22. '因Vlookup只能返回一个值 ,又无法合并 可用模向列出 公式如下:
    
23. '双击F2单元格 粘贴公式如下:
    
24. '=INDEX(表二!$B:$B,SMALL(IF(表二!$A$2:$A$16=表一!$A2,ROW($2:$16),99),COLUMN(A1)))&""
    
25. '此时按ctrl+shift+enter
    
26. '公式右拉下接即可

复制代码

跳转到最佳答案楼层

孤单无所谓

1. '方法一:
   
2. '按ALT+F11 选中 Microsoft Excel 对象 右键 选择 插入->模块\
   
3. '双击模块1 将下如代码粘贴至 右边空白区 点击关闭
   
4. '***************************************************************
   
5. Function 合并(x, r, col)
   
6.     arr = r
   
7.     Dim k()
   
8.     For i = 1 To UBound(arr)
   
9.         If arr(i, 1) = x.Value Then
   
10.             n = n + 1
    
11.             ReDim Preserve k(1 To n)
    
12.             k(n) = arr(i, col)
    
13.         End If
    
14.     Next
    
15.     合并 = Join(k, "、")
    
16. End Function
    
17. '**************************************************************
    
18. '然后 在 表1 中E2单元格 输入=合并(A2,表二!A$2:E$16,2)  用法与Vlookup基本一致 然后下拉即可
    
19. 
    
20. 
    
21. '方法二:
    
22. '因Vlookup只能返回一个值 ,又无法合并 可用模向列出 公式如下:
    
23. '双击F2单元格 粘贴公式如下:
    
24. '=INDEX(表二!$B:$B,SMALL(IF(表二!$A$2:$A$16=表一!$A2,ROW($2:$16),99),COLUMN(A1)))&""
    
25. '此时按ctrl+shift+enter
    
26. '公式右拉下接即可

复制代码

珺珺妈

理解错误。不好意思。

tgydslr

需要找那些物流单号对应的商品代码？
你找到商品代码后放在什么地方？
vlookup也可以办到

xxm893032160

tgydslr 发表于 2014-7-26 16:14
需要找那些物流单号对应的商品代码？
你找到商品代码后放在什么地方？
vlookup也可以办到

就放到表一里面，比如说vlookup查找后就会返回一个对应的，在物流单号的横向放

tgydslr

xxm893032160 发表于 2014-7-26 16:23
就放到表一里面，比如说vlookup查找后就会返回一个对应的，在物流单号的横向放

如图，E2=IF(COLUMN(A1)>COUNTIF(表二!$A$2:$A$16,$A2),"",VLOOKUP($A2,INDIRECT("表二!A"&SMALL(IF(表二!$A$2:$A$16=$A2,ROW($2:$16)),COLUMN(A1))&":B16"),2,))三键横拉下拉

tgydslr

和vlookup函数相关.rar (5.57 KB, 下载次数: 1)

2014-7-26 16:37 上传

点击文件名下载附件

孤单无所谓

请看一下2楼方法二 就可以横着放了 有不明可解释

xxm893032160

孤单无所谓 发表于 2014-7-26 15:51

因为表格上传之前有所改动，我对这函数数组的用法也不清楚，弄了半天还是没整明白，贴在我其他表格里面数据查找不出来了