Question

I have huge excel data performance for sensors. The data include time series! and its record every 5 second. In general, i have 17281 rows of data which is a record for only one day.
i need to visualize the data but its too sharp with every 5 second record, so i want to scale the time series to from every 5 second to every 5 minutes!

I tried to do that by deleting the extra rows…

every 5 minutes = 60 "5 second"

so i need to delete 60 row and keep the 61th, then delete the next 60 and keep the 121th and so on…

i tried to use VB code method but i couldn’t do it!!!

Please anyone can help 🙁

Here’s my recorded macro, when i tried to do the first few rows… i hope it can give some clear image of the problem…

---

Sub MacroDeleteTest1()
'
' MacroDeleteTest1 Macro
'

'
    Rows("2:2").Select
    ActiveWindow.SmallScroll Down:=31
    Rows("2:60").Select
    Selection.Delete Shift:=xlUp
    Rows("3:3").Select
    ActiveWindow.SmallScroll Down:=34
    Rows("3:61").Select
    Selection.Delete Shift:=xlUp
    Rows("4:4").Select
    ActiveWindow.SmallScroll Down:=33
    Rows("4:62").Select
    Selection.Delete Shift:=xlUp
    Rows("5:5").Select
    ActiveWindow.SmallScroll Down:=35
    Rows("5:63").Select
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    ActiveWindow.SmallScroll Down:=34
    Rows("6:64").Select
    Selection.Delete Shift:=xlUp
    Rows("7:7").Select
End Sub

---

Thank you…

Answer 1

Something like this. Set range rStart to be the first cell of your data to begin with.

Sub delete60()

Dim rStart As Range
Const cCOLF As Long = 5    ' Offset across of column F

    Set rStart = Sheet1.Range("A1")

    Do While rStart.Offset(1, 0).Value <> ""
        With Range(rStart.Offset(1, cCOLF), rStart.Offset(59, cCOLF))
            rStart.Offset(0, cCOLF).Value = Evaluate("SUM(" & .Address & ")")
            .EntireRow.Delete
        End With
        Set rStart = rStart.Offset(1, 0)
    Loop

End Sub