cambio time frame

[giandino]

Gentilmente,
avrei bisogno di una macro, che traformi i dati a 1 min in dati a tre minuti.

Grazie

 

[giandino]

 

[giandino]

Come faccio a far ripetere questa macro, fino alla fine della serie dei dati a 1 min?

Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 10/04/2004 da x
'

'
Sheets("Foglio1").Select
Range("A1:C1").Select
Selection.Copy
Sheets("Foglio2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D1").Select
ActiveCell.FormulaR1C1 = "=+MAX(Foglio1!RC[-1]:R[2]C[2])"
Range("E1").Select
ActiveCell.FormulaR1C1 = "=+MIN(Foglio1!RC[-2]:R[2]C[1])"
Range("F1").Select
ActiveCell.FormulaR1C1 = "=+Foglio1!R[2]C"
Range("G1").Select
ActiveCell.FormulaR1C1 = "=+SUM(Foglio1!RC:R[2]C)"
Range("G2").Select
Selection.End(xlToLeft).Select
Sheets("Foglio1").Select
Rows("1:3").Select
Selection.EntireRow.Hidden = True
End Sub






Grazie