¿Cómo eliminar repetidos, si estos se repiten más de 3 veces, me deje solo 2 registros?
, espero que me puedan ayudar mi problema es el siguiente:
Tengo una base de datos en la cual los registros se repiten mas de 3 veces, necesito que borre los demas registros y solamente me deje 2 de esos registros, siempre y cuando se repita mas de 3 veces.
Gracias
1 Respuesta
Respuesta de Dante Amor
2
Por alguna causa esta pregunta se asignó en un tema que no sigo.
Deberás crear la pregunta en el tema de excel para poder contestarla.
Finalmente esta es la macro, para que no quede desierta esta pregunta:
Sub Macro1()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = ActiveSheet
Set h2 = Sheets.Add
h1.Select
h1.Range("A1").Select
Selection.AutoFilter
u = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Range("A1:B" & u).AutoFilter Field:=2, Criteria1:="=712803110724"
h1.Columns("A:B").Copy h2.Range("A1")
h1.Rows("2:" & u).Delete Shift:=xlUp
Selection.AutoFilter
h1.Range("A1:B" & u).RemoveDuplicates Columns:=1, Header:=xlYes
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
h2.Range("A2:B" & u2).Copy h1.Range("A" & u)
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
With h1.Sort
.SortFields.Clear
.SortFields.Add Key:=h1.Range("A2:A" & u1)
.SortFields.Add Key:=h1.Range("B2:B" & u1)
.SetRange h1.Range("A1:B" & u1): .Header = xlYes: .Apply
End With
h2.Delete
End Sub
