EXCEL如何合并A列重复项的同时将B列数据叠加？

2025-03-13 13:23:16

推荐回答（2个）

回答1：

用宏吧

sub a()
    dim dic as object
    arr=activesheet.[a1].currentregion
    set dic=createobject("scripting.dictionary")
    for i=1 to ubound(arr,1)'默认没有表头,有表头的话，这里改为i=2
        dic(arr(i,1))=dic(arr(i,1)) & " " & arr(i,2)
    next
    for each ke in dic
        dic(ke)=mid(dic(ke),2)
    next
    '结果放DE列
    activesheet.[d1].resize(dic.count,1)=application.transpose(dic.keys)
    activesheet.[e1].resize(dic.count,1)=application.transpose(dic.items)
end sub

刚才有错，改一下！！！

回答2：

请问，使用VBA代码完成可以吗？