счётчик

[Артур Иваныч]

имеется счётчик
For li = lLastRow + 1 To lLastRow + CLng(Me.TextBox3)
Rows(li).ClearContents
Cells(li, 1) = Replace(Val(Cells(li - 1, 1)) + "0,1", ",", ".&") & "."
Next li
но он считает от 0.1 до 0.9 потом перехидт на 1.1 и до 1.9, потом на 2.1 и так далее
а мне нужно от, например, 0.1 до 0.100
как сделать?

[IgorGO]

вот такая незамысловатая функция вам поможет:

Function NextNum(s As String, n as Integer) As String
  v = Split(s, ".")
  For i = 0 To UBound(v) - 1
    res = res & IIf(i = n - 1, Trim(Str(Val(v(i) + 1))), v(i)) & "."
  Next
  NextNum = res
End Function

вместо: Cells(li, 1) = Replace(Val(Cells(li - 1, 1)) + "0,1", ",", ".&") & "."
пишите: Cells(li, 1) = NextNum(Cells(li - 1, 1), 2)
для NextNum
1 параметр - это предыдущее значение
2 параметр - какую группу цифр увеличить на 1
предыдущее значение - это строка c любым количеством групп чисел разделенных точкой "." #.#.#.и т.д.

[Артур Иваныч]

Большое спасибо!