Macro para insertar filas debajo de una celda vacía
Necesito crear un macro con el cual se inserten 3 filas debajo de cada celda vacía.
Es decir tengo un documento con más de 40000 filas y en la columna b se encuentran una serie de datos. Necesito que cada vez que se presente una celda vacía en la columna b se inserten 3 filas en blanco debajo de esa celda.
1 respuesta más de otro experto
Respuesta de Dante Amor
1
Te anexo la macro. Para 48,000 filas se tarda un minuto
Sub Insertar_Filasz()
' Por Dante Amor
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
u = Range("B" & Rows.Count).End(xlUp).Row
For i = u To 1 Step -1
If Cells(i, "B") = "" Then
Rows(i + 1 & ":" & i + 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.