Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 121|回复: 3

[求助] 如何罗列相同数值所对应的另一列全部数值?

[复制链接]
发表于 2017-8-13 16:52 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
各位大神好!
小女子在做财务账目时,碰到一个令俺头疼的问题,就是有两列数字A,B,要求B列中所含相等数值的单元格,对应的A列所有数值进行罗列,详见Excel表格。
先谢谢了^_^

QQ截图20170813164952.png

新建文件夹.zip

8.24 KB, 下载次数: 6

发表于 2017-8-13 18:53 | 显示全部楼层
  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. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  21. If Target.Column <> 1 Then Exit Sub
  22.    Dim d, arr, i
  23.    Set d = CreateObject("Scripting.Dictionary")
  24.    arr = Sheets("Sheet1").UsedRange.Value
  25.    For i = 2 To UBound(arr)
  26.       If arr(i, 2) <> "" Then d(arr(i, 2)) = ""
  27.    Next
  28.    With Target.Validation
  29.       .Delete
  30.       .Add 3, 1, 1, Join(d.keys, ",")
  31.    End With
  32.    Set d = Nothing
  33. End Sub
复制代码


回复 支持 反对

使用道具 举报

发表于 2017-8-14 05:05 | 显示全部楼层
辅助列加常规函数方法,供参考

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结果不符)

按条件合并单元格内容(函数).zip

20.61 KB, 下载次数: 2

回复 支持 反对

使用道具 举报

发表于 2017-8-14 09:24 | 显示全部楼层
函数vlookup,见附件

按条件合并单元格内容(函数).zip

10.51 KB, 下载次数: 1

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2017-10-19 08:05 , Processed in 0.093600 second(s), 21 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表