Foro Excel

En Excel 2007 la tarea de omitir valores duplicados se hace más fácil. Te indico aquí cómo hacerlo:
1. Selecciona la lista de datos en donde sospechas tener valores repetidos
2. Dirígete a la ficha DATOS; luego en el Grupo HERRAMIENTAS DE DATOS
3. Selecciona la opción QUITAR DUPLICADOS

Cuando ejecutes el comando se desplegará un mensaje emergente que te indicará cuántos resgistros duplicados se omitieron de la lista previamente seleccionada.

Salud2.xlsx
Marcial

Muchas gracias por el aporte Marcial
Como siempre, sigues demostrando tus buenos conocimientos de Excel...

Salu2.xls

Gracias! No lo tenía porque no uso el 2007 pero me das una idea de lo que se puede hacer en ésa versión.

Para los que no trabajamos todavía con la versión 2007 hay una forma de localizar los duplicados algo más laboriosa, yo suelo utilizar lo siguiente:

1º Odenar la tabla de los datos (por ejemplo B3:F33 y en la fila 3 están los encabezados de los nombres de columnas) por la columna que quieres buscar los duplicados (por ejemplo columna E)
2º En una colunma auxiliar (por ejemplo culumna G fila 4, primera fila de datos) añadir la siguente fórmula =si(E4=E5;"dup";"")
3º Copiar esta fórmula hacia abajo hasta el final de la tabla

De esta forma puedes localizar rápidamente los valores duplicados.

Aunque esto era muy evidente, espero que le sirva a alguien.
Saludos
Kike

tomando el ejemplo de Ezpeleta, pero sin ordenar la tabla y agarrando la fila, en una columna auxiliar de poner la formula =SI(CONTAR.SI($B$4:$F$33,$B$4:$F$33)>1,"Duplicado",""), la misma fórmula en E4:E33.

Bueno:
No sé bien qué decir de Excel 2007, por que las primeras impresiones fueron bastante duras para mí. Creo que la versión 2010 no es tanto la 'Beta' como un 2007 perfeccionado y ampliado; con él estoy teniendo mejor 'feeling' que con 2007.
No obstante, 2003 también ofrece una manera de eliminar duplicados, el esbozo de lo que luego consiguen 2007 y 2010, que consiste (no digo 'consistía' por que fuera de algunos especialistas, la gran parte de usuarios y clientes que conozco no usan 2007) en realizar la función de filtro avanzado, con la opción copiar a otro lugar y seleccionando la opción 'únicos'.
Creo que, cuando salga 2010 voy a promover entre usuarios y profesionales el cambio desde 2003 a 2010. La capacidad de presentación de datos y de exponer resultados es única. Alguna función cambia de 2003 a 2010... por poner un ejemplo, el archiconocido 'BUSCARV()', en 2010 es ''CONSULTAV()'. El cambio de nombre incluye cambiar de infinitivo a presente indicativo...Creo que estas cosas van a crear dificultades innecesarias.
Luego, algunas funciones aceptan 'variantes', que reemplazan la 'versión original', como ocurre por ejemplo con la apreciable 'JERARQUIA()'. Alguna mejora que no sé hasta qué punto es substancial, pero que bienvenida sea.
Por otro lado, que las cintas de origen no sean modificables, me fastidia un poco. Por lo menos, no he encontrado la manera de personalizarlas. Por ahora, puedo esconder las que no me gustan, y hacer pestañas a mi manera. Y aún no he encontrado algunas utilidades en las opciones para realizar las personalizaciones... Supongo que ya las iré encontrando, pero ¡cómo cuesta!
Y en fin, como todo, requiere su tiempo.
YA me iréis diciendo qué tal con vuestras experiencias.
Un saludo.

Hola a todos

Espero mi intervencion no sea en vano, tambien en excel 2003 podemos utilizar formato condicional para ubicar los duplicados.

En formato condicional utilizamos la siguente funcion.
=CONTAR.SI($A$2:$A$8;$A2)>1
Y el formato es a gusto de cada uno.

Un cordial Salu2 a todos desde Santiago de Chile

esta macro sirve para quitar duplicados, solo habría que ajustarlo, porque para lo que la hice suma uno dias del formato

Código: Seleccionar todo

Sub DepuraSatic5()
'macro para depurar los datos de trabajadores
'después de unir varios archivos de la misma obra
'de la relacion SATIC-5
'2010.06.18 ByPaco
Dim NumFil As Variant
Dim Cel1 As String
NumFil = ActiveCell.CurrentRegion.Rows.Count 'contamos el total de filas del rango
n = ActiveCell.Row
u = 1
Do Until n = NumFil
Cel1 = Cells(n, 3).Value
    u = n + 1
    Do Until u = NumFil                     'hacer hasta el NumFil
    Cel2 = Cells(u, 3).Value
        If Cel1 = Cel2 Then                 'si los nombres son iguales, entonces...
            val1 = Cells(n, 5).Value        'copiamos valor de la primera celda
            val2 = Cells(u, 5).Value        'copiamos valor de la segunda celda
            Cells(n, 5) = val1 + val2       'sumamos los valores y lo pegamos en la primera celda
            Cells(u, 1).EntireRow.Delete    'eliminamos la fila del segundo valor
            NumFil = NumFil - 1              'como eliminamos una fila corregimos el total de las mismas
            u = u - 1
        End If
    u = u + 1
    Loop
    n = n + 1
Loop
End Sub