Intercalar filas en blanco con Macros o VBA

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 .