Duplicar 15 veces cada fila en otra hoja de excel:

Tengo una lista de 155 productos de 4 columnas, y quiero duplicar cada fila 15 veces en otra hoja, lo que supondría generar 2325 filas en la nueva hoja.

estoy intentando generar una macro pero solo logro generar una fila.

Algún experto me podría ayudar.

Gracias anticipadas.

Respuesta
1

Te mando mi solución, en mi ejemplo tengo los datos en hoja1 desde A2 hacia abajo (en la fila 1 está el encabezado). Los vamos a copiar en hoja2 repetidos 15 veces cada fila:

Sub repetirfilas()
'por luismondelo
Range("a2").Select
Do While ActiveCell.Value <> ""
Range(ActiveCell, ActiveCell.End(xlToRight)).Copy
Sheets("hoja2").Select
For x = 1 To 15
Range("a65000").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial xlPasteValues
Next
Sheets("hoja1").Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub

recuerda finalizar y puntuar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas