Triplicar una fila en excel
¿Quisiera saber como hacer para triplicar una fila en excel?
1 Respuesta
Gracias por su respuesta, aunque lo que quería era que con una macro se pudiera hacer este proceso, encontré la siguiente macro en otra pregunta, y creo que fue diseñada por usted, la estuve probando para duplicar filas y funciona excelentemente, pero quisiera que también pudiera triplicar, o si es posible establecerle un numero mayor o el que uno quiera. Le agradezco su ayuda.
Sub duplicafilas()
'x Elsamatilde
Application.ScreenUpdating = False
'guardo el total de filas seleccionadas
filas = Selection.Rows.Count
'me posiciono en la 1ra del rango seleccionado
Selection.Range("A1").Select
'repito el bucle hasta el total de filas
For i = 1 To filas
'copio, inserto, pego, me paso a la fila siguiente
Selection.EntireRow.Copy
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
Next
End Sub
Aquí va ajustada. Te repite todas las filas seleccionadas la cantidad de veces que se indica en una celda, en este caso B9. Podrías solicitarlo con un Inputbox si te parece.
Sub repiteFilas()
'x Elsamatilde
'establezco cantidad de repeticiones
n = Range("B9")
Application.ScreenUpdating = False
'guardo el total de filas seleccionadas
filas = Selection.Rows.Count
'me posiciono en la 1ra del rango seleccionado
Selection.Range("A1").Select
'repito el bucle hasta el total de filas
For i = 1 To filas
'copio, inserto, pego, me paso a la fila siguiente
For j = 1 To n
Selection.EntireRow.Copy
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert Shift:=xlDown
j = j + 1
Next j
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
Next
End Sub
Sdos
Elsa
