[已解决]求助！

koko212

如附件所示，如何将每个老师所教的班组汇总统计在一个单元格，并用顿号分开。
在线等，谢谢各位！

最佳答案

月排行榜 / 总排行榜

sixnu

2013-9-25 10:39

我的做法是单元格C1071复制B1071，然后在C1070输入公式=IF(A1071=A1070,C1071&"、"&B1070,B1070)，在C1070单元格右下方出现十字形，往上拉，剩下就是删除重复项了

跳转到最佳答案楼层

koko212

大神们帮帮忙呀，在线等，手动汇总这个表要做死个人呀

笨熊猫

koko212 发表于 2013-9-25 10:13
大神们帮帮忙呀，在线等，手动汇总这个表要做死个人呀

我觉得你可以用数透表完成，但是格式有些不同。
函数对本文的处理太难了。
要不让VBA高手帮你解决。

xdragon

1. Sub test()
   
2. On Error Resume Next
   
3. Dim name As New Collection, arr(), brr(), i, j, n
   
4. arr = Range("A1").CurrentRegion
   
5. For i = 1 To UBound(arr)
   
6.   name.Add arr(i, 1), arr(i, 1)
   
7. Next
   
8. ReDim brr(1 To name.Count, 1 To 2)
   
9. For Each n In name
   
10. j = j + 1
    
11. brr(j, 1) = n
    
12.   For i = 1 To UBound(arr)
    
13.     If brr(j, 1) = arr(i, 1) Then brr(j, 2) = brr(j, 2) & arr(i, 2) & "、"
    
14.   Next
    
15.   brr(j, 2) = Left(brr(j, 2), Len(brr(j, 2)) - 1)
    
16. Next
    
17. Range("D1:E" & UBound(brr)) = brr
    
18. End Sub

复制代码

VBA做的。。。

sixnu

填充黄色的是你要的，

sixnu

我的做法是单元格C1071复制B1071，然后在C1070输入公式=IF(A1071=A1070,C1071&"、"&B1070,B1070)，在C1070单元格右下方出现十字形，往上拉，剩下就是删除重复项了

sixnu

还有删除重复项前一定把公式复制黏贴为数值

koko212

笨熊猫 发表于 2013-9-25 10:22
我觉得你可以用数透表完成，但是格式有些不同。
函数对本文的处理太难了。
要不让VBA高手帮你解决。

谢谢，因为需要指定那个格式导入一个系统平台，所以您帮我做那个无法导入，总之非常感谢，我也会试下您的建议去找找VBA高手，再次感谢

koko212

sixnu 发表于 2013-9-25 10:39
我的做法是单元格C1071复制B1071，然后在C1070输入公式=IF(A1071=A1070,C1071&"、"&B1070,B1070)，在C1070单 ...

非常非常非常感谢！！！正想请教您具体做法呢，您就贴上来了

koko212

xdragon 发表于 2013-9-25 10:27
VBA做的。。。

非常感谢！！！结果是我想要的，不过俺现在还是只小白，对VBA的理解实在是吃力，忙完这个表格，再慢慢研究您的方法，再次感谢！！！