Actividad pública reciente
Ha valorado "Buena" la respuesta
¿Como repetir filas según valor de una celda?
Con esta macro obtendrás el resultado Sub nombres() Sheets("Tabla").Range("A2").Select m = 2 Do j = ActiveCell.Offset(0, 1).Value For i = 1 To j Sheets("Resultado").Range("A" & m) = ActiveCell.Value m = m + 1 Next ActiveCell.Offset(1, 0).Select Loop...