Im struggeling with a macro which needs to convert 15 min intervals to 30 min
Original data looks like
<tbody>
</tbody>
and I would need such an outcome somewhere right or left from the original
<tbody>
</tbody>
This is how far I have come
Sub IEX2()
Dim m As Integer
Dim i As Integer
For m = 1 To 10
Cells(m, 2).Value = WorksheetFunction.Sum(Cells(m * 2 - 1, 1).Resize(2))
Next
End Sub
It works even but I need to loop it somehow so it converts all coming columns and not just one. Could someone help?
Original data looks like
00:00 | 2 | 3 | 5 |
00:15 | 2 | 1 | 4 |
00:30 | 5 | 2 | 6 |
00:45 | 5 | 3 | 4 |
01:00 | 7 | 4 | 2 |
01:15 | 7 | 2 | 3 |
<tbody>
</tbody>
and I would need such an outcome somewhere right or left from the original
00:00 | 4 | 4 | 9 |
00:30 | 10 | 5 | 10 |
01:00 | 14 | 6 | 5 |
<tbody>
</tbody>
This is how far I have come
Sub IEX2()
Dim m As Integer
Dim i As Integer
For m = 1 To 10
Cells(m, 2).Value = WorksheetFunction.Sum(Cells(m * 2 - 1, 1).Resize(2))
Next
End Sub
It works even but I need to loop it somehow so it converts all coming columns and not just one. Could someone help?
Last edited: