怎么一值对应多值

58396

SHEET1是数据源，其中，一个运单会对应好几个dn
SHEET2是需要根据运单查找dn的，用vlookup的话，只会显示每个运单的第一个dn，有没有其他公式，能做到数据一对多，并且可以识别会增加几行。

ww87725244

万金油公式：index+small+if+match，百度下，一大堆

58396

ww87725244 发表于 2017-6-25 22:15
万金油公式：index+small+if+match，百度下，一大堆

我做出来都是#NUM！

TP512926

58396 发表于 2017-6-25 22:33
我做出来都是#NUM！

1. =IFERROR(INDEX(Sheet1!$B:$B,SMALL(IF(Sheet1!$A:$A=Sheet2!$A2,ROW(Sheet1!$A:$A),4^8),COLUMN(A1))),"")&""

复制代码

清合并单元格   用这个公式

TP512926

58396 发表于 2017-6-25 22:33
我做出来都是#NUM！

1. 查询问题.rar (19.74 KB, 下载次数: 7)
   2017-6-26 00:26 上传

   点击文件名下载附件
   Sub test()
   
2.    Dim brr()
   
3.         Sheets(2).[b2:XFD65536] = ""
   
4.         AR = Sheets(1).Range("A1").CurrentRegion
   
5.     x = 1
   
6.     With Sheets(2)
   
7.         For Each RG In .Range("a2:a" & .[a65536].End(3).Row)
   
8.         x = x + 1
   
9.             For i = 2 To UBound(AR)
   
10.                 If AR(i, 1) = "" Then AR(i, 1) = AR(i - 1, 1)
    
11.                     If AR(i, 1) = RG.Value Then
    
12.                     
    
13.                        m = m + 1
    
14.                        ReDim Preserve brr(1 To m)
    
15.                        
    
16.                         brr(m) = AR(i, 2)
    
17.                     End If
    
18.             Next i
    
19.                 .Range("b" & x).Resize(1, m) = brr
    
20.                 m = 0
    
21.         Next
    
22.     End With
    
23.     End Sub

复制代码

58396

TP512926 发表于 2017-6-25 23:06
清合并单元格   用这个公式

我觉得真的是小白了，这个公式，复制进去，不会用。。。。

58396

TP512926 发表于 2017-6-26 00:26

这个厉害了！