Макрос формула на ячейку с числом

[nyqpblcTuk]

Сообщение от SAS888

См. вложение. Что не так?

Да спасибо тебе добрый человек!!!!
Скинь в личку цифры =) закину тебе рубликов=)

[IgorGO]

а если данные в 4=х колонках
то можно так:

Sub Add11()
  Dim v As Double, p1&, i&, ar
  ar = [a1].CurrentRegion.Value
  For i = 1 To UBound(ar)
    If ar(i, 4) > 5 Then ar(i, 4) = 0: p1 = 2 Else ar(i, 4) = ar(i, 4) + 1: p1 = 1
    If ar(1, 3) + p1 > 999 Then ar(1, 3) = 0: p1 = 1 Else ar(i, 3) = ar(i, 3) + p1: p1 = 0
    If p1 = 1 Then If ar(i, 2) + p1 > 9999 Then ar(1, 2) = 0: p1 = 1 Else ar(i, 2) = ar(i, 2) + p1: p1 = 0
    If p1 = 1 Then ar(i, 1) = Val(ar(i, 1)) + p1 & "-"
  Next
  [a1].Resize(UBound(ar), 4).Value = ar
End Sub