Заменить точку


Function zamentochku(r As Range)
Dim arr() As String
Dim count As Integer
count = 0
ReDim arr(Len(r))
For i = 1 To Len(r)
  arr(i) = Mid(r, i, 1)
  If Mid(r, i, 1) = "." Then
     count = count + 1
     If count = 2 Then Exit For
     arr(i) = ","
  End If
  
'  If Mid(r, i, 1) = cr Then arr(i) = " "
Next i
zamentochku = Join(arr(), "")

If Len(zamentochku) > 5 Then zamentochku = Left(zamentochku, Len(zamentochku) - 1)
End Function

Добавить комментарий

Ваш адрес email не будет опубликован.