Macro para encontrar duplicados en una base de datos
¿Tengo una base de datos con más de 90 mil nombres y necesito encontrar duplicados se puede crear una macro para esto?
De antemano mil graciashttps://1drv.ms/x/s!AkYwVZ42ybNlk1WNbzV4n1wg20JV
2 respuestas
Respuesta de James Bond
1
Prueba esta macro te crea una lista de duplicados
'Sub buscar_duplicados()
'Dim unicos As New Collection
'
'Set datos = Range("a1").CurrentRegion
'
'With datos
' Set dup = .Columns(.Columns.Count + 2).Resize(1, 2)
' filas = .Rows.Count
'
' X = 1
' For i = 1 To filas
' nombre = .Cells(i, 2)
' On Error Resume Next
' unicos.Add nombre, CStr(nombre)
' If Err.Number > 0 Then
' dup.Cells(X, 1) = .Cells(i, 1)
' dup.Cells(X, 2) = .Cells(i, 2)
' X = X + 1
' End If
' On Error GoTo 0
' Next i
' filasb = unicos.Count
' MsgBox ("hay " & filas - filasb & " registros duplicados"), vbInformation, "AVISO"
'End With
'
'End Sub
