非唯一查找

kuangben8

笨笨笨boy 发表于 2013-10-31 11:17
你这样也不行，我之前也这样试过了，要不你亲自试验下

亲自试验了一下，右拉可以实现想要的。记得是数组公式输入啊！按<ctrl+shift+enter>组合键。

longan520

10楼公式 杠杠的

笨笨笨boy

kuangben8 发表于 2013-10-31 13:49
亲自试验了一下，右拉可以实现想要的。记得是数组公式输入啊！按组合键。

要不你帮我看看，我是实现不了那样的效果，我在N23中录入的公式。

kuangben8

笨笨笨boy 发表于 2013-11-4 20:25
要不你帮我看看，我是实现不了那样的效果，我在N23中录入的公式。

你的公式绝对引用的位置错了！

1. =INDEX($E:$E,SMALL(IF($A:$A=$F23,ROW($E$1:$E$18),4^8),COLUMN(A1)))&""

复制代码

非唯一性查找.rar (6.02 KB, 下载次数: 8)

2013-11-4 20:34 上传

点击文件名下载附件

笨笨笨boy

kuangben8 发表于 2013-11-4 20:34
你的公式绝对引用的位置错了！

    感谢！

ykcbf1100

这个用字典比较简单。

ykcbf1100

1. Sub ykcbf()   '//2025.4.24
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Range("a1").CurrentRegion
   
4.     ReDim brr(1 To 100, 1 To 2)
   
5.     For i = 2 To UBound(arr)
   
6.         s = CStr(arr(i, 1))
   
7.         d(s) = d(s) & " " & i
   
8.     Next
   
9.     [m20].Resize(100, 2) = Empty
   
10.     s = CStr(Cells(20, "j").Value)
    
11.     t = Split(Mid(d(s), 2))
    
12.     For x = 0 To UBound(t)
    
13.         m = m + 1
    
14.         r = Val(t(x))
    
15.         brr(m, 1) = arr(r, 5)
    
16.         brr(m, 2) = CStr(arr(r, 3))
    
17.     Next
    
18.     [m20].Resize(m, 2) = brr
    
19. End Sub
    

复制代码