¿Problema EXCEL VBA?

Sub RemoveDuplicateRows()

Atenuar la última fila a larga

Lastrow = Cell(Filas. Contar, "uno"). final (xlup). Obtenga el número de línea de la última línea.

Atenuar solo quiero

for I = lastRow To 2 Paso-1'Recorrido desde la última fila a la segunda fila.

Si la hoja de cálculo funciona correctamente. CountIf(Range("B"&i&":Q"&I), Cells(I,"B"))>1_

o función de hoja de cálculo. CountIf(Range("B"&I&:Q"&I), Cells(I,"E"))>1_

o función de hoja de cálculo. CountIf(Range("B"&I&:Q"&I), Cells(I,"H"))>1_

o función de hoja de cálculo. CountIf(Range("B"&I&:Q"&I), Cells(I,"K"))>1_

o función de hoja de cálculo. CountIf(Range("B"&I&:Q"&I), Cells(I,"N"))>1_

o función de hoja de cálculo. CountIf(Range("B"&I&:Q"&I), Cells(I,"Q"))>Then 1

Si hay valores duplicados, elimine los valores de celda distintos.

Dim j tiene la misma longitud

Para j = 2 a 17 'Recorre las columnas B a q.

Si la hoja de cálculo funciona correctamente. CountIf(Range("B"&I&":Q"&I), Cells(I,j)) = 1 y luego 'Buscar valores de celda únicos.

Celda (I,j). "ClearContents" borra el contenido de la celda.

Exit For sale del bucle.

Finalizar si...

Siguiente j

Función de hoja de trabajo ElseIf. CountIf(Range("B"&I&":Q"&I), Cells(I,"B")) = 0_

o función de hoja de cálculo. CountIf(Range("B"&I&":Q"&I), Cells(I,"E")) = 0_

o función de hoja de cálculo. CountIf(Range("B"&I&":Q"&I), Cells(I,"H")) = 0_

o función de hoja de cálculo. CountIf(Range("B"&I&":Q"&I), Cells(I,"K")) = 0_

o función de hoja de cálculo. CountIf(Range("B"&I&":Q"&I), Cells(I,"N")) = 0_

o función de hoja de cálculo. CountIf(Range("B"&I&:Q"&I), Cells(I,"Q")) = 0 Entonces

Si la celda está vacía, elimine toda la fila.

Fila (1). Eliminar

Terminará si...

Siguiente yo

Finalizar conector