¿Cómo eliminar duplicados en Vba y distinguir entre mayúsculas y minúsculas?
¿Sub? Repetir()
¿Atenuado? Fin de fila,? ¿ChkRow? ¿Como? dragón,? z? ¿Como? ¿Línea
do
z? =?InputBox("Seleccione la columna para eliminar filas duplicadas",? "Eliminar filas duplicadas")
¿Si? z? =?""?¿Y luego qué? ¿abandonar? Submarino
¿Abierto? ¿error? CV? Entonces
¿ChkRow? =?celda(1,?z). Cilíndrico
¿Y si? ¿No es así? ¿Es numérico (ChkRow)? Entonces
¿MsgBox? "¡Listado ilegal!"
¿Fin? ¿Qué pasa si
bucles? ¿cuando? ¿ChkRow? =?""
EndRow? =?rango(Z?& amp?"65536").end(xlUp). Fila
¿Para qué? ¿I? =?Fila final? ¿A dónde ir? 2? ¿Un paso? -1
¿Para qué? j? =?Yo? -?1?¿Adónde ir? 1? -1
¿Y si? ¿Rango (Z? y amperio? I)? =?Rango(Z?& amp?j)? ¿Entonces qué? Fila(I). ¿Eliminar
luego
luego
finalizar? Submarino