Ayuda con series en Excel

Archivado
Hola a todos,

Ando atascado con una serie que tengo que completar en un excel que sirve de trabajo, y me estoy quedando sin ideas para poder completarlo

La serie en cuestión son los días del año, y el problema viene cuando tengo que repetir cada dia por las horas que lo forman. Así que cada valor de la serie estará repetido 24 veces.

Alguien puede echarme una mano ?
No entiendo la pregunta. ¿Puedes poner el ejemplo de qué resultado esperas?
Lo que buscaba era una repetición de fechas por cada una de las horas, algo asi:

01/01/2014 0
01/01/2014 1
01/01/2014 2
.... ...
01/01/2014 24
02/01/2014 0
...

Me han dado esta respuesta por otro lado, y cumple con lo que solicitaba: (aunque el bucle no tiene fin.)

Sub proceso()
'por luismondelo
Range("a1").Select
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
For x = 1 To 23
ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Next
ActiveCell.Offset(-1, 0).Select
ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(1, 0))
ActiveCell.Offset(1, 0).Select
Loop
End Sub
phe escribió:Lo que buscaba era una repetición de fechas por cada una de las horas, algo asi:

01/01/2014 0
01/01/2014 1
01/01/2014 2
.... ...
01/01/2014 24
02/01/2014 0
...

Me han dado esta respuesta por otro lado, y cumple con lo que solicitaba: (aunque el bucle no tiene fin.)

Sub proceso()
'por luismondelo
Range("a1").Select
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
For x = 1 To 23
ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Next
ActiveCell.Offset(-1, 0).Select
ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(1, 0))
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Perfecto entonces. Lo único que podrías añadir es una condición exit while si tienes la condición que quieras de salida.
3 respuestas
Archivado
Volver a General