Macro para acelerar eliminación de filas

Por consulta hay forma de acelerar la macro indicada para hacer más rápido la eliminación de celdas. Gracias.

'ELIMINAR Operador
Range("AW1").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = "CANALES" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
1

1 respuesta

Respuesta
1

[Hola

Siempre los procesos que recorren celdas seleccionándolas son más lentos que aquellos en que no las seleccionas. Prueba así:

Sub Prueba()
Dim UltimaFila As Long
Let UltimaFila = Cells(Rows.Count, "AW").End(xlUp).Row
For x = UltimaFila To 1 Step -1
    If Cells(x, "AW") = "CANALES" Then
        Cells(x, "AW").EntireRow.Delete
    End If
Next x
End Sub

Comentas.

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas