如何罗列相同数值所对应的另一列全部数值？

聚财姐姐

各位大神好！
小女子在做财务账目时，碰到一个令俺头疼的问题，就是有两列数字A,B，要求B列中所含相等数值的单元格，对应的A列所有数值进行罗列，详见Excel表格。
先谢谢了^_^

amzxfgh9632

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    If Target.Column <> 1 Then Exit Sub
   
3.    If Target.Count > 1 Then Exit Sub
   
4.    Dim d, arr, s$, i&
   
5.    Set d = CreateObject("Scripting.Dictionary")
   
6.    arr = Sheets("Sheet1").UsedRange.Value
   
7.    For i = 2 To UBound(arr)
   
8.       If arr(i, 2) = Target.Value Then
   
9.          If Not d.exists(arr(i, 2)) Then
   
10.             d(arr(i, 2)) = ""
    
11.             s = arr(i, 1)
    
12.          Else
    
13.             s = s & "," & arr(i, 1)
    
14.          End If
    
15.       End If
    
16.    Next
    
17.    Target.Offset(, 1) = s
    
18.    Set d = Nothing
    
19. End Sub
    
20. 
    
21. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
22. If Target.Column <> 1 Then Exit Sub
    
23.    Dim d, arr, i
    
24.    Set d = CreateObject("Scripting.Dictionary")
    
25.    arr = Sheets("Sheet1").UsedRange.Value
    
26.    For i = 2 To UBound(arr)
    
27.       If arr(i, 2) <> "" Then d(arr(i, 2)) = ""
    
28.    Next
    
29.    With Target.Validation
    
30.       .Delete
    
31.       .Add 3, 1, 1, Join(d.keys, ",")
    
32.    End With
    
33.    Set d = Nothing
    
34. End Sub

复制代码

cabcyvr

辅助列加常规函数方法，供参考

1. 在D1输入 17 （目的是为了你校对其他数字条件用，在完成下面的操作后改变D1的数字会在D6得到其他合并清单）

2. F1公式
F1=IF(ROW(A1)=1,IF(B1=$D$1,A1&" ",""),INDIRECT("f"&ROW()-1)&IF(B1=$D$1," "&A1,""))
下拉到A列数据行至少多一行的位置，可以超过A列有数据的行数。 比如A列有1000行，必须要 下拉到F列的1001行或更大。A列中间刻有空白间断

3. 结果为D6=SUBSTITUTE(TRIM(INDEX(F:F,COUNTA(A:A)))," ",",")   插入的逗号为单字节

改变D1 的数字会得到其他合并清单，不用去再修改公式。
AB列100行之后是我添加的数字在1-16范围内的新模拟数据（故意没有添加17，以防止D6结果和你的D3结果不符）

苏子龙

函数vlookup，见附件