怎么把同一个名字的信息汇总到一个单元格

q188639161 · 发表于 2014-9-28 15:29

本帖最后由 q188639161 于 2014-9-28 15:31 编辑

在表二中有2列，一列是名字，一列是地点，现在就是想把表二中的地点，按姓名汇总，放在第二列。

q188639161 · 发表于 2014-9-28 17:02

顶上去，期待帮忙。。。

醉舞街头 · 发表于 2014-9-28 17:10

表2C1=B1&","下拉,复制粘贴为数值到B列
表1B2=PHONETIC(OFFSET(Sheet2!$B$1,MATCH(A2,Sheet2!A:A,)-1,,COUNTIF(Sheet2!A:A,A2)))

zhouzhongchi · 发表于 2014-9-28 17:19

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Sheet2.[a1].CurrentRegion
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = arr(i, 2)
Else
d(arr(i, 1)) = d(arr(i, 1)) & "," & arr(i, 2)
End If
Next
Sheet1.Range("a2").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

复制代码

q188639161 · 发表于 2014-9-28 17:21

醉舞街头发表于 2014-9-28 17:10
表2C1=B1&","下拉,复制粘贴为数值到B列
表1B2=PHONETIC(OFFSET(Sheet2!$B$1,MATCH(A2,Sheet2!A:A,)-1,,COU ...

公式完全符合要求，非常感谢。

zhouzhongchi · 发表于 2014-9-28 17:24

工作簿2.zip (15.62 KB, 下载次数: 36)

q188639161 · 发表于 2014-9-28 17:35

zhouzhongchi 发表于 2014-9-28 17:24

因为这个是一个朋友问的，他不懂VBA，而且这个也不是只用一次，所以才想用公式做出来，方便他自己用。

zhouzhongchi · 发表于 2014-9-28 17:49

q188639161 发表于 2014-9-28 17:35
因为这个是一个朋友问的，他不懂VBA，而且这个也不是只用一次，所以才想用公式做出来，方便他自己用。

vba就是方便重复使用哈
数据有了变化，只需单击一下即可

444726310 · 发表于 2018-3-12 13:27

醉舞街头发表于 2014-9-28 17:10
表2C1=B1&","下拉,复制粘贴为数值到B列
表1B2=PHONETIC(OFFSET(Sheet2!$B$1,MATCH(A2,Sheet2!A:A,)-1,,COU ...

太强大了，可以没有逗号隔开哦

444726310 · 发表于 2018-3-12 13:51

醉舞街头发表于 2014-9-28 17:10
表2C1=B1&","下拉,复制粘贴为数值到B列
表1B2=PHONETIC(OFFSET(Sheet2!$B$1,MATCH(A2,Sheet2!A:A,)-1,,COU ...

大神，我是用来将同一户的所有家人并入一个单元格，是用户主身份证号来作为参照，大部分都对，但是也有不少，把不是同一户的一起并进来了，是怎么回事呀

		自动登录	找回密码
密码			免费注册

[求助] 怎么把同一个名字的信息汇总到一个单元格