[已解决]按条件把不同单元格的内容放在同一单元格里

epsonstar

原表的不同行的前两列内容相同时，在新表显示为一行，并把原表第三列对应行的内容放个单元格里 Book2.zip (1.86 KB, 下载次数: 31)

2012-3-1 08:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

周义坤

2012-3-1 08:42

详细请看附件！ Book2.zip (3.02 KB, 下载次数: 49)

2012-3-1 08:42 上传

点击文件名下载附件

跳转到最佳答案楼层

周义坤

详细请看附件！ Book2.zip (3.02 KB, 下载次数: 49)

2012-3-1 08:42 上传

点击文件名下载附件

hrpotter

Book2.rar (7.67 KB, 下载次数: 11)

2012-3-1 09:03 上传

点击文件名下载附件
vba的点按钮就能完成汇总，见附件

1. Sub test()
   
2.     Dim d As Object
   
3.     Dim arr, brr(1 To 10000, 1 To 3)
   
4.     Dim i As Integer
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     arr = Range("a1").CurrentRegion
   
7.     For i = 1 To UBound(arr)
   
8.         If d.Exists(arr(i, 1) & arr(i, 2)) Then
   
9.             j = d(arr(i, 1) & arr(i, 2))
   
10.             brr(j, 3) = brr(j, 3) & "，" & arr(i, 3)
    
11.         Else
    
12.             k = k + 1
    
13.             d(arr(i, 1) & arr(i, 2)) = k
    
14.             brr(k, 1) = arr(i, 1)
    
15.             brr(k, 2) = arr(i, 2)
    
16.             brr(k, 3) = arr(i, 3)
    
17.         End If
    
18.     Next
    
19.     Range("h:j").ClearContents
    
20.     Range("h1").Resize(k, 3) = brr
    
21. End Sub

复制代码

epsonstar

二楼的可行，不过在一个用公式生成的表里做的话，要把那个连接的、号去掉，不然原表非公式行里的对应列中会出现。

laoda1228

除了 vlookup数组以外，剩下那个完全看不懂