excel表格重复引用不汇总怎么办

1.EXCEL重复内容汇总问题 请高手指教 实例内详

必须要写宏了，用公式无法实现，写宏的时候建议使用字典对象，例如：

i = 1

Set dict = CreateObject("Scripting.Dictionary")

While Cells(i, 1) <> "" And Cells(i, 2) <> ""

kkk=Cells(i, 1).Value

sss=Cells(i, 2).Value

if dict.exists(kkk) then

sss=dict(kkk) & "," & sss

dict.delete kkk

end if

dict.Add kkk, sss

i = i + 1

Wend