Народ помогите с макросом

[Alligator]

Hi ALL!
Есть ячейки с данными типа
20638,699
20675,399
20718,899
20679,299
20667,899
нужно сложить (округлить) остатки таким образом чтобы когда сумма остатков переходила в целое число плюсовалась единица к следующей ячейке например
имеем столбик вида
10,1
10,2
11,7
14,3
нужен результат в виде
10
10
11
15,3

Помогите пожалуста.

[Calvin]

ну типа так:

Код: Выделить всё

n=100 ' Если известен диапазон
For i = 1 To n
   If i = n Then
     Cells(i, 1) = Cells(i, 1) + k
     End
   End If
  k = k + (Cells(i, 1) - Int(Cells(i, 1)))
  Cells(i, 1) = Int(Cells(i, 1))
Next


а если не известен диапазон, то так:

Код: Выделить всё

i = 1
Do While Cells(i, 1) <> ""
    If Cells(i + 1, 1) = "" Then
      Cells(i, 1) = Cells(i, 1) + k
      End
    End If
k = k + (Cells(i, 1) - Int(Cells(i, 1)))
Cells(i, 1) = Int(Cells(i, 1))
i = i + 1
Loop


[Alligator]

Спасибо все получилось
подправил немного

n = 25 ' Если известен диапазон
For i = 1 To n
k = k + (Cells(i, 1) - Int(Cells(i, 1)))
Cells(i, 1) = Int(Cells(i, 1))
If k > 1 Then
Cells(i + 1, 1) = Int(Cells(i + 1, 1)) + 1
k = k - 1
End If
Next