file debajo de fila

[timoteo666]

Que tal amigos del foro, como puedo insertar una fila en blanco debajo de cada fila en excel 2010??

[timoteo666]

la idea es esta:
tengo:
fila_1
fila_2
fila_3
fila_4

Y quiero que quede asi:
fila_1

fila_2

fila_3

fila_4

Iniciado por timoteo666

Que tal amigos del foro, como puedo insertar una fila en blanco debajo de cada fila en excel 2010??

[elunico22]

Hola timoteo666:
Aqui te paso el codigo para que realices lo que deseas.
Pasos:

-Abre archivo de excel
-Presiona Alt+F11
-Crea un modulo
-Pega esto

Código vb:

Option Explicit
Sub Agregar_Linea()
Dim NumRow As Integer
Dim i As Integer
Application.ScreenUpdating = False
NumRow = Range("A1", Range("A1").End(xlDown)).Count
For i = 1 To (NumRow * 2)
    If i Mod 2 Then
    Else
       Rows(i & ":" & i).Select
       Selection.Insert Shift:=xlDown
    End If
Next i
Application.ScreenUpdating = True
End Sub
 

Espero que te sirva. Saludos

[mrocf]

Hola! Timoteo (y elunico). Un método que suele ser eficiente es el siguiente:

Código PHP:

  Sub Agregar_Linea_2() 
Application.ScreenUpdating = False 
With Range("a1", [a1].End(xlDown)) 
  .EntireColumn.Insert 
  With .Offset(, -1) 
    .Formula = "=row()" 
    .Value = .Value 
    .Offset(.Count) = "=0.5 + " & .Cells(1).Address(0, 0) 
    .Offset(.Count).Value = .Offset(.Cells.Count).Value 
    With .Resize(2 * .Count).EntireRow 
      .EntireColumn.Sort key1:=.Cells(1), order1:=xlAscending, Header:=xlYes 
    End With 
    .EntireColumn.Delete 
  End With 
End With 
Application.ScreenUpdating = True 
End Sub  
   

¡Espero te sea de utilidad!
Saludos, Cacho R.