Excel: ¿Cómo usar vba para repetir y no repetir valores?
Toma un valor único:
Sub? Comparación de diccionarios para extraer valores distintos (()
¿Configuración? ¿dic? =?CreateObject(" scripting . diccionario ")
¿Para qué? ¿I? =?2?¿Adónde ir? [a300]. fin(3). fila
dic(celda(I, 1).valor)? =?""
¿Siguiente? Yo
¿Para qué? ¿I? =?2?¿Adónde ir? [b300]. fin(3). fila
dic. ¿Eliminar? (celda(i,2).valor)
¿Siguiente? i
rango("c2:c"?amp?[c1].end(xlDown).row). Borrar contenido
¿Y si? 【a1】. final (xlAbajo). ¿Plan? =?[b1]. final (xlAbajo). ¿Plan? Entonces
¿MsgBox? "¿Son estas dos columnas exactamente iguales?"? ¿amperio? Chr(10)? ¿amperio? "¿No hay más comparación? ¡El espectáculo está por comenzar!"
Otros
[c2]. cambiar el tamaño (dic.count,?1)?=?aplicar. Transponer(dic.keys)
¿Fin? ¿Si
termina? Sub toma valores repetidos.
¿Sub? prueba()
¿Atenuado? r,? ¿Estoy atenuado? ah? Respuesta refleja barorreceptora
¿Atenuada? ¿d? ¿Como? ¿Configuración de objetivos
? ¿d? =?CreateObject(" scripting . diccionario ")
¿Qué usar? Hoja("hoja1")
arr? =?. rango("a1"). Área actual
Radim? brr(1? ¿A dónde ir? UBound(arr),? 1? ¿Adónde ir? 50)
¿Para qué? ¿I? =?1?¿Adónde ir? Gracias
d. Eliminar todo
¿Para qué? j? =?1?¿Adónde ir? ¿UBound(arr, 2)
d(arr(i, j))? =?d(arr(i,j))? ?1
Entonces
m? =?0
¿Para qué? ¿Cada? ¿Automóvil club británico? ¿existir? Clave
¿Y si? d(aa)? ¿gt? 1?Entonces
m? =?metro? ?1
brr(yo,?m)? =?Alcohólicos Anónimos
¿Terminó? si
entonces
entonces
. rango("k1"). resize(UBound(brr),?UBound(brr,2))?=?respuesta refleja del barorreceptor
¿Fin? ¿Con
el final? Submarino