Reporte en excel con más de 8000 filas
Tengo un archivo de excel con más de 8000 filas en los cuales necesito repetir una fila un N numero de veces, por el momento tengo las 8000 filas pero cada una tiene un diferente valor a repetir máximo hasta 150 veces ejemplo
pedro gomez 120
mario valles 30
juan garcia 76
esto lo tengo 8600 veces y tengo que dejarlo
pedro gomez 1
pedro gomez 2
pedro gomezz 3
pedro gomez 4
Y así consecutivo hasta el 120 y después el que sigue, ¿mario valles 30 veces alguna sugerencia de como poder lograrlo?
Manual no puede ser porque tendría que ser las 8000 veces
1 respuesta
H o l a:
Te anexo la macro, pon tus datos en la "Hoja1", empieza a poner los nombres en la columna "A" en la fila 2 de la "Hoja1", el número de veces lo pones en la columna "B".
Los resultados quedarán en la "Hoja2"
Sub Repetir()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.Cells.Clear
'
k = 2
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
If IsNumeric(h1.Cells(i, "B")) Then
For j = 1 To h1.Cells(i, "B")
h2.Cells(k, "A") = h1.Cells(i, "A")
h2.Cells(k, "B") = j
k = k + 1
Next
End If
Next
MsgBox "Fin"
End SubSigue las Instrucciones para ejecutar la macro
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Para ejecutarla presiona F5
':) ':)
