macro en excell que busque duplicados y añada un si 1 o duplicado en otra celda

[wily78]

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

[BrujoNic]

Estas en un problema ya que excel no fue diseñado para eso y me sorprende que te levante con esa cantidad de filas.

Si van a seguir metiendo información, te aseguro que dentro de poco, vas a perder todo. Mejor migra a una BD aunque sea el cochino Access que ofrece Micro$oft o algo un poco más robusto y libre como MySQL, MariaDB o PostgreSQL.

[wily78]

Realmente no trabajo con ella en tiempo real, solo añado los registros nuevos que se producen después de unos días, pero claro hay que mantenerla limpia.
Tengo una tabla de Excel a modo de almacenamiento, y otro donde voy apuntando y después las junto.
También hay peligro que se rompa?
gracias
un saludo

[BrujoNic]

Si se rompe la hoja, se rompe todo.

Lo que debes tener muy claro, es que excel es una hoja de cálculo y no una base de datos. La gente le ha dado un muy mal manejo en relación a conceptualizar su uso.

Lo que aguante o no abrir o dañar la hoja, depende del equipo, cantidad de RAM y que tantos programas estén abierto.

Te soy honesto y viendo varios casos en clientes, que lo que tenes, es una bomba de tiempo.

[mrocf]

Hola! Wily (y Nic)
En tu descripción se advierte que controlas los duplicados sobre la columna B, mientras que en tu macro dicha columna es la I: ¡Supondré esto último!

La siguiente macro la he probado respecto de 130 mil filas de datos y no tarda más de un segundo: ¿La evaluarías?...

Código php:

Sub contarCasos()
'------------------
'by Cacho Rodríguez
'------------------
Dim Mat, Dic, Q&, i&, iniTime!
iniTime = Timer
Mat = Range("I1", Cells(Rows.Count, "I").End(xlUp)): Q = UBound(Mat)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To Q
  Select Case Dic.Exists(Mat(i, 1))
    Case True: Dic(Mat(i, 1)) = 1 + Dic(Mat(i, 1))
    Case False: Dic(Mat(i, 1)) = 1
  End Select
Next
For i = 1 To Q
  Mat(i, 1) = Dic(Mat(i, 1)): Next
Range("Z1").Resize(Q) = Mat
MsgBox "Tiempo de proceso: " & Format(Timer - iniTime, "0.000 seg.")
End
End Sub
 

[BrujoNic]

Que lo pruebe Wily78 quien tiene esa duda. Yo estoy sorprendido que manejes semejante cantidad de filas sin problema.

Además, he visto varias intervenciones tuyas y parece que manejas bastante bien las macros, por lo que se te agradece le ayudes, pero yo soy más del criterio que para cosas grandes, es mejor utilizar algo más seguro.

Saludos.

[mrocf]

Iniciado por BrujoNic

Yo estoy sorprendido que manejes semejante cantidad de filas sin problema.

Ocurre, mi estimado, que la cantidad de celdas involucradas (filas por columnas del rango de datos) no es lo importante a considerar.
Lo importante es: ¿Qué otra cosa "tienen" esas celdas además de los datos?...

a) Si sólo son datos entonces el rendimiento del Excel suele ser bastante óptimo hasta -digamos- 2 millones de celdas con datos.

b) Si la hoja presenta formatos (colores, bordes, rellenos): "la cosa" empieza a complicarse y -muchas veces- te "salva" un procesamiento vía macros.

c) Y si la hoja presenta fórmulas (las fórmulas propiamente dichas y las asociadas a los formatos condicionales), una tal cantidad de datos tiende a ser ingobernable (aquí las macros son el último recurso).

En mi experiencia, y recién cuando se dan estas dos últimas circunstancias más un número grande de celdas con datos, es cuando hay que "mirar con cariño" a las bases de datos.
Naturalmente: ¡esto implica un nivel de capacitación mucho mayor!

Te comento que nada hay más gratificante que quien te plantea: - "Mi macro tarda 10 minutos en procesar: ¿Se podrá abreviar de algún modo el proceso?..."
Y que tras 10/15 minutos le entregues una macro que hace lo mismo pero ocupando 20/30 segundos.

Resumiendo:
Como en todos los órdenes de la vida: ¡Hay que saber! (jajajajja ) y los Foros -en ese sentido- pueden darte una buena mano.

Saludos, Cacho R.

P.D. : ¿Wily?... ¿Estás allí?...