用宏吧
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
刚才有错,改一下!!!
追问你好,试用了你提供的代码,A列去重的要求实现了,但B列叠加的要求没能实现。执行效果如图:

请指教。
追答你的新数据需要放哪里?
我刚才漏了第二列,代码已经改过了,估计百度没提示
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
追问你好,执行时报错

追答哪行报错?
我这里是正常的。
