有条件的文本合并问题

ice_wings

条件如下，如果A列中的内容一样，将B列中的内容以文本合并方式在C列中显示，因为内容较多，所以要实现C列中公式下拉
请看附件例表

dsmch

VBA作参考
例表1.rar (8.42 KB, 下载次数: 30)

2011-3-9 09:02 上传

点击文件名下载附件

gufengaoyue

1. 
   
2. Sub 合并文本()
   
3. Dim arr, i%,ii%,s$,tmp$
   
4. arr = Range("a2:c" & [a65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6.     If arr(i, 1) <> tmp Then
   
7.         tmp = arr(i, 1)
   
8.         ii = i
   
9.         s = arr(i, 2)
   
10.     ElseIf arr(i, 1) = tmp Then
    
11.         s = s & "/" & arr(i, 2)
    
12.     End If
    
13. arr(ii, 3) = s
    
14. Next
    
15. [a2].Resize(UBound(arr), 3) = arr
    
16. End Sub
    
17. 
    

复制代码

[ 本帖最后由 gufengaoyue 于 2011-3-9 09:37 编辑 ]

ice_wings

强大！感谢！！！

wangg913

c2
=IF(COUNTIF(A$2:A2,A2)=1,PHONETIC(B2:INDEX(B:B,ROW(A1)+MATCH(TRUE,A3:A$199<>A2,))),"")

数组公式。