Доброе время суток форумчане. У меня стоит такая задача: Есть таблица операций со временем операции на n-колличество дней. Нужно сделать разбивку данной таблицы по суткам. Если операция началась в одни сутки а закончилась в другие сутки, то необходимо в первом дне просчитать остаток времени до суточной а остатки времени перенести на второй день. и т.д. Пример прикладываю. Есть мысли так сказать по деревянному разложить таблицу с помощью функций "если" и "впр", но тогда таблица получается емкой и ограниченной по дням. А есть ли другой способ как это сделать? Подскажите или натолкните на мысль.
Sub g()
r = [a1000000].End(xlUp).Row
r1 = 2
c1 = 4
s = 0
j = -1
k = 1
For i = 2 To r
j = j + 1
Cells(r1 - 1, c1) = "День " & k
Cells(r1 + j, c1) = Cells(i, 1)
Cells(r1 + j, c1 + 1) = Cells(i, 2)
s = s + Cells(i, 2)
If s > 24 Then
Cells(r1 + j, c1 + 1) = Cells(r1 + j, c1 + 1) + 24 - s
c1 = c1 + 2
r1 = 2
j = 0
Cells(r1, c1) = Cells(i, 1)
Cells(r1, c1 + 1) = s - 24
s = s - 24
k = k + 1
End If
Next i
End Sub