Intercalar filas en blanco con Macros o VBA
El Excel no dispone de una manera fácil para realizar la función de intercalar filas en un rango Sin embargo; existe una solución el cual consiste en realizar una macro que simplifique esta función o lo ejecute por nosotros. En el caso de VBA Excel Avanzado Macros aplicado a Intercalar filas alternas en un rango para realizar esta función necesitamos hacer un recorrido por las filas del rango en sentido contrario al usual lo que significa empezaremos de abajo a arriba de la última fila a la primera, para ello usaremos el método Insert. Este orden nos asegurara al que que cuando insertemos nuevas filas no afecte a los siguientes insertados, lo que si pasaría cuando empezamos de las filas superiores a las inferiores y Dentro del Explorador de proyectos del Editor de VBA, insertaremos en un Módulo el siguiente código de nuestra macro de Excel ejecutando la siguiente macro:
Sub intercalado()
Set Rng = Range("A1:A10")
'controlamos la primera y última fila
'donde se encuentra el rango a intercalar
rng1 = Rng.Item(1).Row
rng10 = Rng.Item(Rng.Count).Row
'inhabilitamos la actualización o refresco de pantalla
Application.ScreenUpdating = False
'recorremos en orden inverso las filas del rango
For i = rng10 To rng1 + 1 Step -1
'insertando filas y desplazándolas hacia abajo
'como pretendíamos
Rng.Item(i).Insert Shift:=xlDown
Next i
'reactivamos el refresco de pantalla
Application.ScreenUpdating = True
End Sub
Aquí podemos apreciar como insertamos los respectivos comandos ya mencionados a VBA para realizar nuestro propósito de intercalar las filas.
un ejemplo :
El Antes
El resultado de aplicar la función en macros
Roger canales Valenzuela .
3 comentarios
Escriba un comentario →