Escriba un pequeño programa usando VBA para determinar si un campo está repetido y, de ser así, combine los campos repetidos en otro campo.
'Supongamos que la primera línea es el encabezado
sub?test()
dim?dic?as?object
set?dic=createobject("scripting. región actual
for?i=2?to?ubound(arr,1)
if?dic.exists(arr(i,1))?arr(i,2)
else
dic(arr(i,1))=arr(i,2)
end?if
siguiente p>
[c2].resize(dic.count,1)=application.resize(dic.count,1)=application.transpose(dic.items)
end?sub
'No lo depuré, no sé cuál será el resultado, pruébalo primero'