Separating dates by adding rows, followed by formulas in the rows

[Sumeetmohanty]

I have a weather dataset of over 5000 entries. The entries have hourly recorded values for each day from 20th-Jan-2006 to 31st-Aug-2006.
I have to separate every day by inserting three rows and in those rows i want three formulas which calculate avg, min, max for of the different parameters of that particular day.
Any help would be really appreciated.

 

[Kaper]

sounds a bit mad for me, because now you have nicely ordered database and after action you will get some mixed presentation. But may be it is a form needed for other programm or spreadsheet, so let's try.

See sample VBA code (it assumes in row1 there are headers and you want 3 rows after each row. I'm not sure if it's the case, but you've shown no sample data layout ):

Sub test()
Dim i As Long, oldcalcmode As Long
oldcalcmode = Application.Calculation
Application.Calculation = xlCalculationManual
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
  Rows(i + 1 & ":" & i + 3).Insert
  Cells(i + 1, "F").FormulaR1C1 = "=AVERAGE(R[-1]C[1]:R[-1]C[5])"
  Cells(i + 2, "F").FormulaR1C1 = "=AVERAGE(R[-2]C[1]:R[-2]C[3])" 'note row [-2] for second added row
Next i
Application.Calculation = oldcalcmode
Application.Calculate
End Sub