[已解决]查询同一编号下的姓名

gavincar

多查询.rar (5.86 KB, 下载次数: 9)

2015-5-16 20:57 上传

点击文件名下载附件


求公式或VBA实现同一编号下的姓名查询

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-17 10:13

gavincar 发表于 2015-5-17 09:44
非常感谢，自定义函数好简洁啊。
请问能否在函数中增加一个区域选项，将AB列作为选择区域，这样函数更加 ...

多查询.rar (11.42 KB, 下载次数: 14)

2015-5-17 10:13 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

多查询.rar (11.26 KB, 下载次数: 17)

2015-5-16 21:17 上传

点击文件名下载附件
楼主试试

gavincar

qh8600 发表于 2015-5-16 21:17
楼主试试

非常感谢，自定义函数好简洁啊。
请问能否在函数中增加一个区域选项，将AB列作为选择区域，这样函数更加灵活些。
即：
=demo(D2,A:B)

qh8600

gavincar 发表于 2015-5-17 09:44
非常感谢，自定义函数好简洁啊。
请问能否在函数中增加一个区域选项，将AB列作为选择区域，这样函数更加 ...

多查询.rar (11.42 KB, 下载次数: 14)

2015-5-17 10:13 上传

点击文件名下载附件

冥王

1. Function jj(r, rng As Range)
   
2.     Application.Volatile
   
3.     Dim arr, iRow%, iCol%, i%, iStr$
   
4.     iRow = rng.End(xlDown).Row
   
5.     iCol = rng.Columns.Count
   
6.     arr = rng.Resize(iRow, iCol)
   
7.     For i = LBound(arr, 1) To UBound(arr, 1)
   
8.         If arr(i, 1) = r Then
   
9.             iStr = iStr & "、" & arr(i, 2)
   
10.         End If
    
11.     Next
    
12.     jj = Right(iStr, Len(iStr) - 1)
    
13. End Function

复制代码

gavincar

qh8600 发表于 2015-5-17 10:13

感谢，搞定了。