Excel - eliminar filas repetidas segun condición

Hola buen día

Agradezco mucho la colaboración que siempre me han brindado, esta vez vuelvo con una pregunta.

1.Necesito eliminar de una tabla las filas que se encuentran repetidas, y solo dejar un dato de estos.
2. Hay 1 dato que es la palabra vació que se repite varias veces en la tabla y este no necesito eliminarlo.

Tengo una macro que utilice de internet que elimina las filas repetidas con un count if (ya que es mayor a 1), pero tambien me elimina las que dicen vacio y estas necesito dejarlas

Adjunto el código, i



Intente colocar: antes de empezar la cuenta de los repetidos quise que entrara a verificar si era diferente a vacio para que empiece si es diferente entre al ciclo coun if y ahi si borrar pero se queda trabado el ciclo.



Agradezco muchisimo su ayuda

Muy buenas.

Creo que una pequeña modificación te puede servir:

Const intNúmCol As Integer = 3
'Se procesará la columna c

Sub BorrarDuplicados()
Dim wksH As Worksheet
Dim lngContFila As Long
Set wksH = Worksheets("Hoja1") 'Hoja que se procesará

lngContFila = 12 'fila desde la cual se desea evaluar los datos repetidos

While Not IsEmpty(wksH.Cells(lngContFila, intNúmCol))
If wksH.Cells(lngContFila, intNúmCol) <> "vació" And Application.WorksheetFunction.CountIf(wksH.Columns(intNúmCol), wksH.Cells(lngContFila, intNúmCol)) > 1 Then

wksH.Cells(lngContFila, intNúmCol).EntireRow.Delete
Else
lngContFila = lngContFila + 1
End If

Wend

Set wksH = Nothing
End Sub

Un saludo. Juanjo.

Hola Muchisimas gracias, funciona muy bien

consulta, como cambiaria la formula si lo que yo quiero es eliminar la fila completa pero si se repiten valores en la columna b c y d, es decir ....
B C D
DEBE Haber Leyenda
1050 500 ch 1050
500 642 Ch 2000
500 1050 Ch 1050.

Lo que yo quiero es que se elimina una sola fila que contenga valores cruzados en el debe y en el haber y que tengan la misma leyenda, en este caso ch 1050.

Les agradeceria mucho la respuesta.
saludos.