Aunque en Excel existen varias maneras de encontrar
valores duplicados, me decidí a hacer una macro con dicho fin porque esta nos permitirá
entre otras cosas el uso de vectores y métodos de ordenación.
Tenemos la siguiente
hoja de cálculo
Como pueden ver el nombre y correo electrónico se repiten
los deje igual porque el dato que más nos interesa es el teléfono. La macro que
les mostrare a continuación busca los teléfonos repetidos y los resalta con un color
especifico además escribe en la celda contigua en que posición de la hoja de
calculo se encuentra el teléfono por primera vez.
Para empezar definimos las variables globales:
Se definen dos vectores pero a ninguno se le asigna el
tamaño, esto porque no sabemos cuantos datos contendrá la hoja de cálculo. En
el vector1 guardaremos los números de teléfono y el vector2 la fila en la hoja
de calculo que contiene dicho numero de teléfono.
Después agregamos la rutina principal
A partir de esta rutina se ejecutara toda la macro, para
averiguar cuantas filas con datos tiene la hoja de calculo usamos la instrucción ffinal = ws.Range("C2").End(xlDown).Row.
Conociendo este dato redefinimos el tamaño de los
vectores con la instrucción
ReDim
Preserve vector1(ffinal - 1)
ReDim
Preserve vector2(ffinal - 1)
Podemos hacerlo sin usar la palabra Preserve esta se usa para indicar que cuando se redefina el tamaño
del arreglo no se borren los datos que contiene, en este caso no era realmente
necesario pues el vector aun se encuentra vacio.
Generamos un ciclo que nos permite adicionar valores al
vector invocando una rutina creada para dicho fin.
For F = 2 To ffinal
Adicionar_Vector ws.Range("C" & F), F
Next
F
Después invocamos
otra rutina que organiza el vector usando el método burbuja y por ultimo buscamos valores repetidos en el vector
con una rutina más.
Esta es la rutina que agrega datos a los vectores:
Recibe por parámetro el teléfono y la fila en la hoja de cálculo
que contiene dicho teléfono, guarda en el vector1 el teléfono y en el vector2
la fila del teléfono.
Después debemos ordenas los vectores, esto nos lo
facilita la siguiente rutina
Para ordenar el vector usamos el método burbuja, lo que
hacemos con este método de ordenación es comparar cada posición del vector con
la siguiente intercambiándola si es menor (para este caso donde queremos
ordenar en orden ascendente) este procedimiento se repite hasta que no sea
necesario realizar mas intercambios.
Para finalizar adicionamos la rutina que nos permitirá encontrar
los teléfonos repetidos:
En esta rutina recorremos los vectores comparando cada posición
con la siguiente si tienen el mismo numero de teléfono resaltamos la celda de
la hoja de Excel con un color especifico y escribimos en la celda
inmediatamente contigua donde se encuentra dicho teléfono por primera vez.
Así es como se ve la hoja de cálculo después de ejecutar
la macro:
Espero que esta información te sea útil, si quieres
aprender mas sobre Excel avanzado visita nuestro curso online, el curso de Excel se encuentra dividido en tres
niveles:
Nivel Básico: Diseñado para las personas que no
tienen ningún conocimiento en Excel aprenderá a crear planillas formulas gráficos.
Nivel Intermedio: Diseñado para aquellos que
tienen los conocimientos básicos de Excel, entre otras cosas aprenderá a crear semáforos, tableros comandos, tableros
de función etc.
Nivel avanzado: aprenderá funciones muy
poderosas de Excel que lo impulsaran en su vida laboral, tablas dinámicas,
solver , buscar objetivos.
Los beneficios que obtendrá con respecto a un
curso presencial de excel son varios:
El curso está disponible las 24 horas, podrá
ingresar a la hora que quiera es decir no estará limitado por horarios.
Se inscribe en el curso una vez y estará disponible
para usted de por vida.
No hay mensualidades, paga una vez y tiene acceso al curso de por vida además
de manuales y libros de Excel
Puedes ver la
macro en funcionamiento en el siguiente
vídeo.
Si necesitas automatizar tus procesos en excel escríbeme a macrosymacros1@gmail.com.
Puedes
descargar el documento excel con la macro siguiendo este
enlace.
En mi ebook Macrosymacros encontraras una colección de
macros, que te serán muy útiles en tus
procesos de automatización de hojas de calculo, puedes encontrarlo aquí.
