[已解决]求助 在线等！

liming1614

求助，在线等。
如果A列中有相同数据，那把A列相同数据合并为一行，并把B列内的数据提取后合并到同一行，如：

A	B
张三	农民
李四	居民
张三	农业
王五	法人
张三	儿子
王五	休闲
李四	快乐
张三	辛苦
张四	重点
李二

合并之后：

张三	农民、农业、儿子、辛苦
李四	居民、快乐
王五	法人、休闲
张四	重点
李二

数据.rar (1.74 KB, 下载次数: 28)

2012-2-28 12:01 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

5blessyou

2012-2-28 12:14

没有人抢答{:011:}
C3输入

1. =B3&IF(COUNTIF(A4:$A$13,A3),IF(OR(VLOOKUP(A3,A4:$F$13,2,)="",B3=""),"","、")&VLOOKUP(A3,A4:$F$13,3,),"")

复制代码

记得区域要多引用一行
然后B15输入

1. =VLOOKUP(A15,A:C,3,)

复制代码

跳转到最佳答案楼层

蝶·舞

辅助或VBA，建议VBA（因为相信楼主的数据不可能只是这么几个）

5blessyou

没有人抢答{:011:}
C3输入

1. =B3&IF(COUNTIF(A4:$A$13,A3),IF(OR(VLOOKUP(A3,A4:$F$13,2,)="",B3=""),"","、")&VLOOKUP(A3,A4:$F$13,3,),"")

复制代码

记得区域要多引用一行
然后B15输入

1. =VLOOKUP(A15,A:C,3,)

复制代码

adders

自定义一个函数吧,代码如下.

用法见附件C15:C19单元格(黄色显亮部分). 数据.rar (7.13 KB, 下载次数: 12)

2012-2-28 12:15 上传

点击文件名下载附件

1. 
   
2. Function FindAll(TRange As Range, MatchWith As String)  
   
3.     For Each cell In TRange
   
4.         If cell.Value = MatchWith And cell.Offset(0, 1) <> "" Then
   
5.             x = x & cell.Offset(0, 1).Value & "、"
   
6.         End If
   
7.     Next cell
   
8.     If Len(x) = 0 Then FindAll = "": Exit Function
   
9.     FindAll = Left(x, (Len(x) - 2))
   
10. End Function
    

复制代码

zjcat35

合并后的A列值我用高级筛选得出，然后B列用VBA得到！
见附件

liming1614

蝶·舞 发表于 2012-2-28 12:03
辅助或VBA，建议VBA（因为相信楼主的数据不可能只是这么几个）

恩 上千，VBA怎么用？

liming1614

5blessyou 发表于 2012-2-28 12:14
没有人抢答
C3输入记得区域要多引用一行
然后B15输入

谢谢你。能帮我解释下含义吗？以及步骤，我要运用到其他表格中。那个表格有上千的数据。

zjcat35

用VBA完整的做了个，合并后的数据我给你放sheet2了，如果你数据量大的话，速度比用函数的快
      因为VBA里格式的表达不怎么会，就没深加工！ 哈哈，做你这个问题，我也又学会 了个提取不重复值

liming1614

zjcat35 发表于 2012-2-28 13:58
用VBA完整的做了个，合并后的数据我给你放sheet2了，如果你数据量大的话，速度比用函数的快
      因为VBA ...

这个VBA代码是什么？怎么我看不到？我针对自己的数据如何修改？

zjcat35

你按ALT+F11，另外你可以百度下VBA代码怎么用
      既然你不知道VBA代码是什么，你自己修改，可能性不大吧，你可以把你的做的格式发上来，帮你修改好吧！