Estoy tratando de entender como hacer una macro en Excel que me elimine duplicados con condiciones especificas, a continuación muestro el ejemplo de lo que quiero hacer,
la tabla ejemplo que muestro a continuación es la tabla sin ningún proceso a resultado
y la tabla ejemplo que muestro a continuación es la tabla con los resultados esperados a obtener
las condiciones que quiero se procesen es esta tabla en una macro que elimine duplicados son estas
Hasta ahora tengo una muy buena macro que elimina duplicados, pero aun no he logrado modificarla para añadir estas condiciones en las líneas de código.
Les comparto la macro, es la siguiente:
Sub RepetidosVH()
'Declaración del diccionario
Dim dic As Scripting.Dictionary
Set dic = New Scripting.Dictionary
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Range("C3").Select
Do While Not IsEmpty(ActiveCell)
If dic.Exists(ActiveCell.Text) Then
ActiveCell.EntireRow.Delete
Else
'En esta instrucción lo que interesa es almacenar el valor de la celda como key,
'el dato equivalente al value no tiene importancia
dic.Add ActiveCell.Text, "1"
ActiveCell.Offset(1, 0).Select
End If
Loop
'limpia los recursos utilizados
dic.RemoveAll
Set dic = Nothing
Range("C3").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Les comparto el archivo de Excel donde esta el ejemplo que muestro anteriormente. https://drive.google.com/file/d/1KJkYZmBJP8zxgVrcS0NfxxnmZxV1xTr3/view?usp=sharing