¿Problema EXCEL VBA?
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