03/11/2015, 02:39
|
| | | Fecha de Ingreso: julio-2013 Ubicación: madrid
Mensajes: 22
Antigüedad: 10 años, 9 meses Puntos: 0 | |
| macro en excell que busque duplicados y añada un si 1 o duplicado en otra celda
hola
Tengo una tabla de Excel con 20 000 registros y constantemente se añaden mas , cada 15 días hay que buscar los duplicados, tengo una macro que los marca con color, pero tardo mucho en ver si realmente es un duplicado o no, habría alguna manera de hacer una macro y que los duplicados les añadiera en una celda el valor duplicado?
a b z
1 coche duplicado
2 coche duplicaco
3 moto
4 camión
esta es la macro que tengo pero yo no la hice no se hacerlas
Sub CopiarCelda()
Dim Rango1 As Range
Dim celda1 As Range
Set Rango1 = Range("I1", "I26410")
For Each celda1 In Rango1
If WorksheetFunction.CountIf(Rango1, celda1.Value) > 1 Then
celda1.Interior.ColorIndex = 38
End If
Next celda1
End Sub
¿podrías ayudarme a hacer la macro?
un saludo
gracias |