Red de conocimiento informático - Problemas con los teléfonos móviles - 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.

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

[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'