表格中有A和B列，当A列中有连续的相同值时，把B列的内容合并到指定的单元格。

ximenchun1

标题有些绕，直接看上传的附件吧。 请高手帮忙解决一下。

效果显示在Sheet1的C3，D3。
当A列出现同值的时候，B列相应的内容已（ ; ）分隔显示在同一个单元格中。
数据可能有十几万行，暂且考虑到15万行。

Book1.rar (9.78 KB, 下载次数: 80)

2014-2-10 22:22 上传

点击文件名下载附件

yjh_27

多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html

参数2  "a,a"
参数3  ”1,2c;3"

ximenchun1

yjh_27 发表于 2014-2-11 00:28
多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html

...

下载下来后尝试过很多次都没成功。  能不能帮忙改一下呢？  

yjh_27

ximenchun1 发表于 2014-2-11 12:35
下载下来后尝试过很多次都没成功。  能不能帮忙改一下呢？

1. Sub aa()
   
2. arr = [a2:b21]
   
3. trr = [a1:b1]
   
4. brr = YjhSort(arr, "a,a", "1,2c;3")
   
5. 
   
6. Range("d4").Resize(UBound(brr, 1), 2) = brr
   
7. [d4:e4] = trr
   
8. End Sub
   

复制代码

yjh_27

参见附件。

yjh_27

B列相应的内容已（ ; ）分隔显示在同一个单元格中。

我的是（|）分隔，请自行替换。

ximenchun1

谢谢帮助，我得一边学一边看。VBA太棒了

yjh_27

B列相应的内容已（ ; ）分隔显示在同一个单元格中。
各种重复处理效果