EXCEL中相同内容合并到一个单元格里用符号隔开

假定你的数据有100行（实际数据有多少行就将公式中的100改为多少）
E1
=INDEX(A:A,SMALL(IF(MATCH(A$1:A$1000,A$1:A$1000,0)=ROW($1:$1000),ROW($1:$1000),""),ROW(A1)))按CTRL+SHIFT+ENTER结束公式输入，下拉填充至出现空白。
F1
=IF(COLUMN(A1)<=SUM(N($A$1:$A$1000=$E1)),INDEX($B:$B,SMALL(IF($A$1:$A$1000=$E1,ROW($1:$1000),""),COLUMN(A1))),"")按CTRL+SHIFT+ENTER结束公式输入，向右拉填充至出现空白。
再用合并F1之后的单元格数据就可以了。

用vba吧，给你段代码试试
不会用的话给我留言
Sub 提取合并()
Dim d As Object
Dim i As Integer
Set d = CreateObject("scripting.dictionary")
For i = 1 To Cells(65536, 1).End(3).Row
If d.exists(Cells(i, 1).Value) Then
d(Cells(i, 1).Value) = d(Cells(i, 1).Value) & "、" & Cells(i, 2).Value
Else
d(Cells(i, 1).Value) = Cells(i, 2)
End If
Next
Cells(1, "e").Resize(d.Count, 1) = Application.Transpose(d.keys)
Cells(1, "f").Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub

增两辅助列 C 列，如C1公式 =IF(A2=A1,B1&","&C2,B1)
D列，如D1公式 =COUNTIF($A$1:A1,A1)
然后筛选D列为1的资料，就是你要的。将它复制到你要的位置吧！

利用公式的办法：
以数据A1：B100为例
第一步：C1单元格输入公式：=B1&","
格式柄下拉复制公式至数据结束
第二步：选取C列右键-复制-选C1单元格-选择性粘贴：数值-确定
第三步：E1单元格公式：
=INDEX(A:A,SMALL(IF(MATCH($A$1:$A$100,$A$1:$A$100,)=ROW($1:$100),ROW($1:$100),4^8),ROW(A1)))&""
数组公式：ctrl+shift+enter组合键结束输入，格式柄下拉复制公式至出现空白单元格，具体引用区域自行修正！
第四步：D1单元格公式：
=PHONETIC(INDIRECT("C"&SUMPRODUCT(MAX(($A$1:$A$100=E1)*ROW($A$1:$A$100)))-COUNTIF(A:A,E1)+1&":C"&SUMPRODUCT(MAX(($A$1:$A$100=E1)*ROW($A$1:$A$100)))))
格式柄下拉复制公式
第五步：F1单元格公式：
=LEFT(D1,LEN(D1)-1)
格式柄下拉复制公式
记住每一步，可能不太好懂！本办法仅限你图示的样式本回答被提问者和网友采纳