Colección de citas famosas - Slogan de motivación - Utilice vba para agregar filas en blanco en Excel

Utilice vba para agregar filas en blanco en Excel

Sub?Insert()

Dim?i?As?Long

For?i?=?Range("A65536").End(xlUp) .Row?To?2?Step?-1?'Fin de la fila a la fila inicial

Filas(i).Resize(3).Insert?'?3? /p>

Filas(i).Resize(3).Insert?'?3? p>

Siguiente

Fin?SubSub Insert()

Atenuar i Siempre

Para i = UsedRange.Rows.Count To 2 Paso -1 'Fin de la fila a la fila inicial

Rows(i).Resize(3).Insert ' 3 es el número de filas a insertar

Siguiente

End Sub