Hola,
Necesito hacer un macro que me permita tener dos valores repetidos y eliminar los demás, por ejemplo, "Pedro" puede aparece dos veces en la misma columna pero a partir de la 3a vez se deben eliminar.
Espero puedan ayudarme, y gracias de antemano
Hola alfredo
Prueba con esta macro a ver si es lo que necesitas
Sub prueba()
Dim Fila As Integer
Dim Cont As Integer
For Fila = 3 To Range("D" & Rows.Count).End(xlUp).Row
If UCase(Range("D" & Fila)) = "PEDRO" Then Cont = Cont + 1
If Cont > 2 Then
Application.EnableEvents = False
Rows(Fila).Delete
Fila = Fila - 1
Cont = Cont - 1
Application.EnableEvents = True
End If
Next
End Sub
Espero te sirva
FernandoML
Espero te sirva
Un Saludo
Fernando